home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / painting / arteffectdemo / macros / macros.lzh / effects / RepaintWithChalk < prev    next >
Encoding:
Text File  |  1995-02-05  |  574 b   |  29 lines
  1. /* Repaint with chalk: fine */
  2.  
  3. address "ArtEffect"
  4.  
  5. options results
  6.  
  7. airbrush power 100 roughness 100 density 0 def 10 update
  8. setmodes pantograph airbrush
  9. paintmode copy
  10. settings dotspacing 3
  11. setbrush circle xs 13
  12.  
  13. activatewindow current
  14. sourceId=result;
  15. getinfo STEM info.
  16. new info.picwidth info.picheight info.name
  17. destId=result
  18.  
  19. settings sw sourceId sx 0 sy 0 dw destId dx 0 dy 0 lighttableon
  20.  
  21. do y=0 to info.picheight by 16
  22.     do x=-16 to info.picwidth by 4
  23.         line x y+16 x+random(16,20) y
  24.     end
  25.     do x=-16 to info.picwidth+16 by 4
  26.         line x y+16 x-random(16,20) y
  27.     end
  28. end
  29.