home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / graphics / conversion / imageengineerv2.1a / arexx / extractcomponent.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-11-20  |  1.4 KB  |  56 lines
  1. /*******************************/
  2. /* Image Engineer Macro script */
  3. /* by Simon Edwards            */
  4. /* 22/6/95                     */
  5. /*                             */
  6. /* Extract a colour component  */
  7. /*******************************/
  8.  
  9. Options results
  10. signal on error            /* Setup a place for errors to go */
  11.  
  12. if arg()==0 then exit
  13.  
  14. PROJECT_INFO arg(1) TYPE
  15. if RESULT~="COLOUR" then exit
  16.  
  17. 'REQUEST "Colour component to extract" "Red|Green|Blue|All"'
  18. reply=RESULT
  19.  
  20. select
  21.     when reply=1 then do
  22.         'BRIGHTNESS' arg(1) '-255 GREEN BLUE'
  23.         end
  24.     when reply=2 then do
  25.         'BRIGHTNESS' arg(1) '-255 RED BLUE'
  26.         end
  27.     when reply=3 then do
  28.         'BRIGHTNESS' arg(1) '-255 RED GREEN'
  29.         end
  30.     when reply=0 then do
  31.         'BRIGHTNESS' arg(1) '-255 GREEN BLUE'
  32.         'BRIGHTNESS' arg(1) '-255 RED BLUE'
  33.         'BRIGHTNESS' arg(1) '-255 RED GREEN'
  34.         end
  35. end
  36.  
  37. exit
  38.  
  39. /*******************************************************************/
  40. /* This is where control goes when an error code is returned by IE */
  41. /* It puts up a message saying what happened and on which line     */
  42. /*******************************************************************/
  43. error:
  44. if RC=5 then do            /* Did the user just cancel us? */
  45.     IE_TO_FRONT
  46.     LAST_ERROR
  47.     'REQUEST "'||RESULT||'"'
  48.     exit
  49. end
  50. else do
  51.     IE_TO_FRONT
  52.     LAST_ERROR
  53.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  54.     exit
  55. end
  56.