home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / Adjust_RGB.ifx.pre < prev    next >
Encoding:
Text File  |  1994-07-30  |  603 b   |  27 lines
  1. /*
  2.  *    Adjust_RGB.ifx.pre
  3.  *    PreScript for adjusting Red, Green, and Blue.
  4.  *    Saves the parameters into the ImpAdjustRGBParameters
  5.  *    clip variable.
  6.  *
  7.  *    by Steve Tibbett
  8.  */
  9.  
  10. options results
  11.  
  12. Defaults=GetClip("ImpAdjustRGBParameters"arg(1));
  13. if (Defaults="") then Defaults="0 0 0"
  14.  
  15. Parse Var Defaults Red Green Blue
  16.  
  17. Gadget.1 = 'I/100/16/Red:/'Red
  18. Gadget.2 = 'I/100/30/Green:/'Green
  19. Gadget.3 = 'I/100/44/Blue:/'Blue
  20.  
  21. ComplexRequest '"RGB Adjustments (-127 to 127)"' 3 Gadget 300 80
  22. IF rc ~= 0 THEN return 10
  23.  
  24. Defaults=Result.1 Result.2 Result.3
  25. call SetClip("ImpAdjustRGBParameters"arg(1), Defaults);
  26.  
  27.