home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / arteffect2.0 / rexx / brushattr.rexx next >
OS/2 REXX Batch file  |  1997-04-11  |  321b  |  20 lines
  1. /**/
  2. options results
  3.  
  4. address 'ArtEffect'
  5.  
  6. entries = ""
  7. do i=128 to 1 by -1
  8.     value = i*2-1
  9.     entries = entries || value
  10.     if i~=1 then entries = entries || ','
  11. end
  12.  
  13. 'brushattr INTENSITY ' entries
  14. if rc~=0 then say rc2
  15. 'brushattr DENSITY ' entries
  16. if rc~=0 then say rc2
  17. 'brushattr ROUGHNESS ' entries
  18. if rc~=0 then say rc2
  19.  
  20.