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 / GaussianEdge.rexx < prev    next >
OS/2 REXX Batch file  |  1999-07-08  |  2KB  |  108 lines
  1. /*
  2.  
  3.    v1.56 Gaussian Edge
  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. x=arg(1)
  18. parse var x x0 type lowp .
  19.  
  20. MARK x0 PRIMARY
  21.  
  22.  
  23. if type == "" then do
  24.  
  25.   if exists("ie:prefs/vegaussianedge.cfg") == "1" then
  26.     do
  27.       call open("temp","ie:prefs/vegaussianedge.cfg","R")
  28.       values=readln("temp")
  29.       parse var values ok type lowp .
  30.       call close("temp")
  31.     end
  32.   else
  33.     do
  34.       type=1
  35.       lowp=1
  36.     end
  37.  
  38.   ' FORM "Gaussian Edge" "Use|Cancel"',
  39.   ' CYCLE,"Type","Low|Normal|High",'type'',
  40.   ' INTEGER,"Value of lowpass",1,25,'lowp',SLIDER',
  41.  
  42.   values=result
  43.   parse var values ok type lowp .
  44.  
  45.   if ok = 0 then exit
  46.  
  47.   call open("temp","ie:prefs/vegaussianedge.cfg","W")
  48.   res=writeln("temp",values)
  49.   call close("temp")
  50.  
  51. end
  52.  
  53.  
  54.  
  55. THRESHOLD x0 255
  56. x1=result
  57.  
  58.  
  59. CONVOLVE x1 "IE:Convolves/GaussianBlur5x5"
  60. x2=result
  61.  
  62. CLOSE x1
  63.  
  64. if lowp~="1" then do
  65.   LOWPASS x2 lowp lowp
  66.   x3=result
  67.   CLOSE x2
  68. end
  69. else x3=x2
  70.  
  71.  
  72.  
  73. if type == "0" | upper(type) == "LOW" then sedge="Low"
  74. if type == "1" | upper(type) == "NORMAL" then sedge="Normal"
  75. if type == "2" | upper(type) == "HIGH" then sedge="High"
  76.  
  77.  
  78. if exists("ie:convolves/SmoothEdge_"sedge) == "0" then do
  79.   'REQUEST "Please download VE-Extras.lha" "Ok"'
  80.   exit
  81. end
  82.  
  83. CONVOLVE x3 "ie:convolves/SmoothEdge_"sedge
  84. final=result
  85. CLOSE x3
  86.  
  87.  
  88.  
  89. exit
  90.  
  91. /*******************************************************************/
  92. /* This is where control goes when an error code is returned by IE */
  93. /* It puts up a message saying what happened and on which line     */
  94. /*******************************************************************/
  95. error:
  96. if RC=5 then do            /* Did the user just cancel us? */
  97.     IE_TO_FRONT
  98.     LAST_ERROR
  99.     'REQUEST "'||RESULT||'"'
  100.     exit
  101. end
  102. else do
  103.     IE_TO_FRONT
  104.     LAST_ERROR
  105.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  106.     exit
  107. end
  108.