home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / biz / haage / ArtEffect4Demo.lha / ArtEffect4-Demo / Rexx / brushattr.rexx next >
OS/2 REXX Batch file  |  1998-05-19  |  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.