home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / misc / sci / lynx / rexx / gradientrotationnel.imrx next >
Encoding:
Text File  |  1995-05-29  |  1.1 KB  |  60 lines
  1. /* Gradient rotationnel */
  2.  
  3. SIGNAL on ERROR
  4. SIGNAL on SYNTAX
  5. SIGNAL on BREAK_C
  6.  
  7. if ~ SHOW('L', "rexxreqtools.library") then
  8.   say addlib('rexxreqtools.library',0,-30)
  9.  
  10. ADDRESS 'Lynx'
  11. options results
  12.  
  13. AddrCurrentImage var adresse
  14.  
  15. /*angle = rtgetlong('2','-180° -> +180°', 'Angle du gradient',, 'rt_pubscrname=ImageScreen')*/
  16.  
  17. say "Angle Xcenter Ycenter ?"
  18. pull angle x y
  19. Rotate angle x y
  20.  
  21. AddrCurrentImage var adresse2
  22. SubImage adresse
  23. Normalize (-2048) 2048
  24. DeleteBuffer adresse2
  25. LynxEnd
  26. exit
  27.  
  28. ERROR:
  29.   Select
  30.    when RC = 3 then say "*** Error" RC" on line "SIGL": Process Failed"
  31.    when RC = 2 then say "*** Error" RC" on line "SIGL": Invalid entries" 
  32.    when RC = 1 then say "*** Error" RC" on line "SIGL": No image !"
  33.    otherwise say "*** Error "RC" on line "SIGL
  34.   end
  35.  
  36.   say "--> "SourceLine(SIGL)
  37.   say
  38.   say 'Press [RETURN]'
  39.   pull
  40.   LynxEnd
  41.   exit
  42.  
  43. SYNTAX:
  44.   say "*** Syntax error (Code "RC") on line" SIGL
  45.   say "--> "SourceLine(SIGL)
  46.   say
  47.   say 'Press [RETURN]'
  48.   pull
  49.   LynxEnd
  50.   exit
  51.  
  52. BREAK_C:
  53.   say "User Abort"
  54.   say "--> "SourceLine(SIGL)
  55.   say
  56.   say "Press [RETURN]"
  57.   pull
  58.   LynxEnd
  59.   exit
  60.