home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / misc / sci / lynx / rexx / sobel.imrx < prev    next >
Encoding:
Text File  |  1995-05-29  |  973 b   |  57 lines
  1. /* Opérateur de Sobel */
  2.  
  3. SIGNAL on ERROR
  4. SIGNAL on SYNTAX
  5. SIGNAL on BREAK_C
  6.  
  7. ADDRESS 'Lynx'
  8. options results
  9.  
  10. CurrentImageName var nom
  11. AddrCurrentImage var adresse
  12. Convolve "Sobel_X"
  13. AddrCurrentImage var sobelx
  14. SelectImage nom
  15. Convolve "Sobel_Y"
  16. AddrCurrentImage var sobely
  17. AddImage sobelx module
  18. DeleteBuffer sobelx
  19. DeleteBuffer sobely
  20.  
  21. LynxEnd
  22.  
  23. exit
  24.  
  25. ERROR:
  26.   Select
  27.    when RC = 3 then say "*** Error" RC" on line "SIGL": Process Failed"
  28.    when RC = 2 then say "*** Error" RC" on line "SIGL": Invalid entries" 
  29.    when RC = 1 then say "*** Error" RC" on line "SIGL": No image !"
  30.    otherwise say "*** Error "RC" on line "SIGL
  31.   end
  32.  
  33.   say "--> "SourceLine(SIGL)
  34.   say
  35.   say 'Press [RETURN]'
  36.   pull
  37.   LynxEnd
  38.   exit
  39.  
  40. SYNTAX:
  41.   say "*** Syntax error (Code "RC") on line" SIGL
  42.   say "--> "SourceLine(SIGL)
  43.   say
  44.   say 'Press [RETURN]'
  45.   pull
  46.   LynxEnd
  47.   exit
  48.  
  49. BREAK_C:
  50.   say "User Abort"
  51.   say "--> "SourceLine(SIGL)
  52.   say
  53.   say "Press [RETURN]"
  54.   pull
  55.   LynxEnd
  56.   exit
  57.