home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDOperators / Saturation.fred < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.7 KB  |  89 lines
  1. /*
  2. ** Saturation.fred
  3. **
  4. ** $VER: Saturation.fred 1.1.0 (5.11.93)
  5. **
  6. ** This program can be run from an InvokeADPro list to run the current
  7. ** frame through the Saturation operator.
  8. **
  9. ** Clips Imported:
  10. **    FREDSaturationType    -    Type of saturation.
  11. **    FREDSaturationAmt    -    Amount of saturation.
  12. **
  13. ** NOTE: Clip names are case sensitive.
  14. **
  15. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  16. ** ADPro v2.5.0 (or higher).
  17. **
  18. ** Copyright © 1993 ASDG Incorporated  All Rights Reserved
  19. */
  20.  
  21.  
  22. ADDRESS "ADPro"
  23. OPTIONS RESULTS
  24.  
  25. PARSE ARG FrameNum FrameFName Length LoadFlag FirstCallSeq FirstCallCell
  26.  
  27. NL = '0A'X
  28. SQ = '27'X
  29. DQ = '22'X
  30. TRUE  = 1
  31. FALSE = 0
  32.  
  33.  
  34. /*
  35. ** Get the required clips.  Error if any are missing.
  36. */
  37.  
  38. SaturationType = GETCLIP( "FREDSaturationType" )
  39. IF (SaturationType = "") THEN DO
  40.     ADPRO_TO_FRONT
  41.     OKAY1 "Required clip, FREDSaturationType," || NL ||,
  42.         "is not specified."
  43.     SCREEN_TO_FRONT "FRED"
  44.     EXIT 10
  45. END
  46.  
  47. SaturationAmt = GETCLIP( "FREDSaturationAmt" )
  48. IF (SaturationAmt = "") THEN DO
  49.     ADPRO_TO_FRONT
  50.     OKAY1 "Required clip, FREDSaturationAmt," || NL ||,
  51.         "is not specified."
  52.     SCREEN_TO_FRONT "FRED"
  53.     EXIT 10
  54. END
  55.  
  56.  
  57. /*
  58. ** See what type of data is loaded in ADPro/MorphPlus.
  59. */
  60.  
  61. CALL "FREDSCRIPTS:FREDFunctions/CheckForRawImageData" TRUE
  62. IF (RESULT ~= 0) THEN
  63.     EXIT 10
  64.  
  65. CALL "FREDSCRIPTS:FREDFunctions/CheckForColorImageData" TRUE
  66. IF (RESULT ~= 0) THEN
  67.     EXIT 10
  68.  
  69.  
  70. /*
  71. ** Perform the Saturation operation.
  72. */
  73.  
  74. OPERATOR "SATURATION" SaturationType (SaturationAmt)
  75. IF (RC ~= 0) THEN DO
  76.     Why = ADPRO_RESULT
  77.     ADPRO_TO_FRONT
  78.     OKAY1 "The operator, Saturation," || NL ||,
  79.         "failed to execute." || NL ||,
  80.         Why || NL ||,
  81.         "Arguments:" || NL ||,
  82.         "Type: " || SaturationType || NL ||,
  83.         "Amount: " || (SaturationAmt)
  84.     SCREEN_TO_FRONT "FRED"
  85.     EXIT 10
  86. END
  87.  
  88. EXIT 0
  89.