home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / graphic / arteffectdemodisk1.dms / arteffectdemodisk1.adf / Macros / Macros.lzh / paintpic / RandomDots < prev    next >
Text File  |  1995-01-04  |  200b  |  15 lines
  1. /* random points
  2.  */
  3.  
  4. options results
  5.  
  6. address "ArtEffect"
  7.  
  8. new 256 256 "Random Dots Example"
  9. currentwindow winid result
  10. getinfo STEM a.
  11.  
  12. do i=0 to 999
  13.     point random(1,a.width) random(1,a.height)
  14. end
  15.