home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / amiga-magazin / visualengineer / ve-full.lha / arexx / GaussianFeather.rexx < prev    next >
OS/2 REXX Batch file  |  1999-07-08  |  1KB  |  64 lines
  1. /*
  2.  
  3.    v1.21 Gaussian Feather
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10. address IMAGEENGINEER
  11.  
  12. Options results
  13. signal on error            /* Setup a place for errors to go */
  14.  
  15. if arg()==0 then exit
  16.  
  17. x0=arg(1)
  18.  
  19.  
  20. THRESHOLD x0 255
  21. x1=result
  22.  
  23. CONVOLVE x1 "IE:Convolves/GaussianBlur5x5"
  24. x2=result
  25. CLOSE x1
  26.  
  27. if exists("ie:convolves/SmoothEdge_Low") == "0" then do
  28.   'REQUEST "Please download VE-Extras.lha" "Ok"'
  29.   exit
  30. end
  31.  
  32. CONVOLVE x2 "IE:Convolves/SmoothEdge_Low"
  33. final=result
  34. CLOSE x2
  35.  
  36. MARK x0 PRIMARY
  37. MARK x0 ALPHA
  38. MARK final SECONDARY
  39. COMPOSITE 0 0 MAX
  40.  
  41. CLOSE final
  42.  
  43.  
  44.  
  45. exit
  46.  
  47. /*******************************************************************/
  48. /* This is where control goes when an error code is returned by IE */
  49. /* It puts up a message saying what happened and on which line     */
  50. /*******************************************************************/
  51. error:
  52. if RC=5 then do            /* Did the user just cancel us? */
  53.     IE_TO_FRONT
  54.     LAST_ERROR
  55.     'REQUEST "'||RESULT||'"'
  56.     exit
  57. end
  58. else do
  59.     IE_TO_FRONT
  60.     LAST_ERROR
  61.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  62.     exit
  63. end
  64.