home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / Adjust_RGB.ifx < prev    next >
Encoding:
Text File  |  1994-07-30  |  511 b   |  26 lines
  1. /*
  2.  *    Adjust_RGB.ifx
  3.  *    Script to alter the red, green, and/or blue values
  4.  *    of pixels in an image: The PreScript sets up the
  5.  *    ImpAlterRGBParameters clip variable with the
  6.  *    RGB deltas.
  7.  *
  8.  *    by Steve Tibbett
  9.  */
  10.  
  11. Options Results
  12.  
  13. SeqNum=Word(Arg(1),4);
  14.  
  15. Settings=GetClip("ImpAdjustRGBParameters"SeqNum);
  16. if (Settings="") then do
  17.     RequestNotify "ImpAdjustRGBParameters invalid in ImpAdjustRGB.ifx"
  18.     return 20
  19.     End
  20.  
  21. Parse Var Settings R G B
  22.  
  23. If (R~=0) then Red R
  24. If (G~=0) then Green G
  25. If (B~=0) then Blue B
  26.