home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / biz / haage / ArtEffect4Demo.lha / ArtEffect4-Demo / Rexx / repaint.rexx < prev    next >
OS/2 REXX Batch file  |  1998-05-23  |  727b  |  46 lines
  1. /**/
  2.  
  3. options results
  4.  
  5. address "ArtEffect"
  6.  
  7. lockgui
  8.  
  9. dummy = random(,,time(seconds))
  10.  
  11. createbrush rec size 10 prop 50 angle 45
  12.  
  13. curve = ""
  14. do i=1 to 128
  15.     curve = curve || '255'
  16.     if i~=128 then curve = curve || ','
  17. end
  18. brushattr intensity curve
  19.  
  20. curve = ""
  21. do i=1 to 128
  22.     curve = curve || i
  23.     if i~=128 then curve = curve || ','
  24. end
  25. brushattr density curve
  26.  
  27. curve = ""
  28. do i=1 to 128
  29.     curve = curve || '5'
  30.     if i~=128 then curve = curve || ','
  31. end
  32. brushattr roughness curve
  33.  
  34. get stem pinfo. pictureinfo
  35. xmax = pinfo.width
  36. do i=0 to xmax+100 by 3
  37.     x1 = i-100+random(0,10)-5
  38.     y1 = random(0,20)
  39.     x2 = i+random(0,10)-5
  40.     y2 = random(pinfo.height-20,pinfo.height)
  41.     line x1 y1 x2 y2 pt pen mode impressionist strength 100
  42. end
  43.  
  44. unlockgui
  45.  
  46.