home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / painting / arteffectdemo / macros / macros.lzh / examples / convolve < prev    next >
Encoding:
Text File  |  1995-01-04  |  552 b   |  34 lines
  1. /*
  2.  * test PicoPainter arexx port
  3.  */
  4.  
  5. options results
  6.  
  7. address "ArtEffect"
  8.  
  9. openwindow convolve
  10. currentwindow convolve
  11. getinfo stem info.
  12. say info.scrwidth;
  13. say info.width;
  14. say info.winbleft;
  15. say info.winbright;
  16. say info.scrbarheight;
  17.  
  18. movewindow leftedge (info.scrwidth - info.width - info.winbleft - info.winbright) topedge info.scrbarheight
  19.  
  20. convolve matrix7
  21.  
  22. do i=0 to 6
  23.     do j=0 to 6
  24.         convolve pos i+j*7 value (j%3)*i-1
  25.     end
  26. end 
  27.  
  28. convolve strength 50
  29. convolve threshold 64
  30.  
  31. convolve saveas "Dummy"
  32. convolve load "StoneArt"
  33. convolve load "Dummy"
  34.