home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / biz / haage / ArtEffect4Demo.lha / ArtEffect4-Demo / Rexx / io.rexx < prev    next >
OS/2 REXX Batch file  |  1998-05-19  |  756b  |  25 lines
  1. /*
  2.     I/O Rexx Example
  3. */
  4.  
  5. options results
  6.  
  7. address "ArtEffect"
  8.  
  9. loadpic 'arteffect:pictures/strand_320.jpg'
  10. savepic 'temp:pic.iff' plugin gibtsnicht
  11. say RC2
  12. savepic 'temp:pic.iff' plugin 'IFF-ILBM'
  13. savepic 'temp:90.jpg' plugin 'JFIF-JPEG' quality 90 smoothing 0
  14. savepic 'temp:70.jpg' plugin 'JFIF-JPEG' quality 70 smoothing 0
  15. savepic 'temp:50.jpg' plugin 'JFIF-JPEG' quality 50 smoothing 0
  16. savepic 'temp:30.jpg' plugin 'JFIF-JPEG' quality 30 smoothing 0
  17. savepic 'temp:10.jpg' plugin 'JFIF-JPEG' quality 10 smoothing 0
  18. savepic 'temp:5.jpg' plugin 'JFIF-JPEG' quality 5 smoothing 0
  19.  
  20. loadbrush 'temp:5.jpg'
  21. changebrush sw 20 sh 20 p feather 5 rot 20
  22. savebrush 'temp:brush.iff' plugin 'IFF-ILBM'
  23. savebrush 'temp:brush.jpg' plugin 'JFIF-JPEG' adjust quality 80
  24.  
  25.