home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / arteffect2.0 / rexx / repaint.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-12  |  710b  |  42 lines
  1. /**/
  2.  
  3. options results
  4.  
  5. address "ArtEffect"
  6.  
  7. dummy = random(,,time(seconds))
  8.  
  9. createbrush rec size 10 prop 50 angle 45
  10.  
  11. curve = ""
  12. do i=1 to 128
  13.     curve = curve || '255'
  14.     if i~=128 then curve = curve || ','
  15. end
  16. brushattr intensity curve
  17.  
  18. curve = ""
  19. do i=1 to 128
  20.     curve = curve || i
  21.     if i~=128 then curve = curve || ','
  22. end
  23. brushattr density curve
  24.  
  25. curve = ""
  26. do i=1 to 128
  27.     curve = curve || '5'
  28.     if i~=128 then curve = curve || ','
  29. end
  30. brushattr roughness curve
  31.  
  32. get stem pinfo. pictureinfo
  33. xmax = pinfo.width
  34. do i=0 to xmax+100 by 3
  35.     x1 = i-100+random(0,10)-5
  36.     y1 = random(0,20)
  37.     x2 = i+random(0,10)-5
  38.     y2 = random(pinfo.height-20,pinfo.height)
  39.     line x1 y1 x2 y2 pt cloner mode impressionist strength 100
  40. end
  41.  
  42.