home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / Channel.ifx < prev    next >
Encoding:
Text File  |  1994-07-30  |  415 b   |  26 lines
  1. /*
  2.  *    Channel.ifx
  3.  *    Select which of the three channels to operate on
  4.  *
  5.  *    by Steve Tibbett
  6.  */
  7.  
  8. Options Results
  9.  
  10. SeqNum=Word(Arg(1),4);
  11.  
  12. Settings=GetClip("ImpChannelParameters"SeqNum);
  13. if (Settings="") then do
  14.     RequestNotify "ImpChannelParameters invalid in ImpChannel.ifx"
  15.     return 20
  16.     End
  17.  
  18. Parse Var Settings R G B
  19.  
  20. Str=""
  21. if (R=1) then Str="R"
  22. if (G=1) then Str=Str||"G"
  23. if (B=1) then Str=Str||"B"
  24.  
  25. Channel Str
  26.