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 / VisualTextureB.rexx < prev    next >
OS/2 REXX Batch file  |  1999-07-14  |  3KB  |  161 lines
  1. /*
  2.  
  3.    v1.00 Visual Texture B
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. signal on error            /* Setup a place for errors to go */
  15.  
  16. if arg()=0 then exit
  17. x1=arg(1)
  18.  
  19. MARK x1 PRIMARY
  20.  
  21. 'REQUEST "Please select one of these effects." "1|2|3|4|Cancel"'
  22. res=result
  23. if res=="0" then exit
  24.  
  25.  
  26.   select
  27.  
  28.     when res == 1 then do
  29.  
  30.       CONVOLVE x1 "IE:Convolves/Emboss_High"
  31.       x2=result
  32.  
  33.       CONVERT_TO_GREY x2
  34.       x3=result
  35.       CLOSE x2
  36.  
  37.       REFLECT_X x3
  38.       x4=result
  39.       CLOSE x3
  40.  
  41.       REFLECT_Y x4
  42.       x5=result
  43.       CLOSE x4
  44.  
  45.       MARK x1 ALPHA
  46.       MARK x5 SECONDARY
  47.       COMPOSITE 0 0 MIX 50
  48.       final=result
  49.       CLOSE x5
  50.  
  51.     end
  52.  
  53.     when res == 2 then do
  54.  
  55.       BRIGHTNESS x1 100
  56.       x2=result
  57.  
  58.       CONVOLVE x2 "IE:Convolves/Emboss_High"
  59.       x3=result
  60.       CLOSE x2
  61.  
  62.       CONVERT_TO_GREY x3
  63.       x4=result
  64.       CLOSE x3
  65.  
  66.       MARK x1 ALPHA
  67.       MARK x4 SECONDARY
  68.       COMPOSITE 0 0 SUBTRACT
  69.       final=result
  70.       CLOSE x4
  71.     end
  72.  
  73.  
  74.     when res == 3 then do
  75.  
  76.       PROJECT_INFO x1 WIDTH
  77.       WIDTH=result
  78.       PROJECT_INFO x1 HEIGHT
  79.       HEIGHT=result
  80.  
  81.       RESIZE x1 WIDTH*2 HEIGHT*2 TILE
  82.       x2=result
  83.  
  84.       CROP x2 WIDTH/2 HEIGHT/2 WIDTH/2*3-1 HEIGHT/2*3-1
  85.       tmp=result
  86.       MARK tmp PRIMARY
  87.  
  88.       MINIMUM x2 5 5
  89.       x3=result
  90.       CLOSE x2
  91.  
  92.       CROP x3 WIDTH/2 HEIGHT/2 WIDTH/2*3-1 HEIGHT/2*3-1
  93.       x4=result
  94.       CLOSE x3
  95.  
  96.       CONVOLVE x4 "IE:Convolves/Emboss_High"
  97.       x5=result
  98.       CLOSE x4
  99.  
  100.       CONVERT_TO_GREY x5
  101.       x6=result
  102.       CLOSE x5
  103.  
  104.       MARK tmp ALPHA
  105.       MARK x6 SECONDARY
  106.       COMPOSITE 0 0 ALPHA
  107.       final=result
  108.       CLOSE x6
  109.       CLOSE tmp
  110.  
  111.     end
  112.  
  113.  
  114.     when res == 4 then do
  115.  
  116.       BRIGHTNESS x1 100
  117.       x2=result
  118.  
  119.       CONVOLVE x2 "IE:Convolves/Emboss_High"
  120.       x3=result
  121.       CLOSE x2
  122.  
  123.       CONVERT_TO_GREY x3
  124.       x4=result
  125.       CLOSE x3
  126.  
  127.       MARK x1 ALPHA
  128.       MARK x4 SECONDARY
  129.       COMPOSITE 0 0 ALPHA
  130.       final=result
  131.       CLOSE x4
  132.  
  133.     end
  134.  
  135.   otherwise
  136.     exit
  137.   end
  138.  
  139.  
  140. RENDER final
  141.  
  142. exit
  143.  
  144. /*******************************************************************/
  145. /* This is where control goes when an error code is returned by IE */
  146. /* It puts up a message saying what happened and on which line     */
  147. /*******************************************************************/
  148. error:
  149. if RC=5 then do            /* Did the user just cancel us? */
  150.     IE_TO_FRONT
  151.     LAST_ERROR
  152.     'REQUEST "'||RESULT||'"'
  153.     exit
  154. end
  155. else do
  156.     IE_TO_FRONT
  157.     LAST_ERROR
  158.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  159.     exit
  160. end
  161.