home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / graphic / arteffectdemodisk1.dms / arteffectdemodisk1.adf / Macros / Macros.lzh / paintpic / Moire < prev    next >
Text File  |  1995-01-26  |  274b  |  24 lines
  1. /* hello world
  2.  */
  3.  
  4. options results
  5.  
  6. address "ArtEffect"
  7.  
  8. new VAR id 320 256 "Moire Demo"
  9.  
  10. say id
  11. currentwindow winid id
  12.  
  13. palette r 255 g 240 b 20
  14. paintmode color
  15. setbrush box xs 1 ys 1
  16.  
  17. do i=0 to 320 by 5
  18.     line i 0 320-i 256
  19. end
  20.  
  21. do i=0 to 256 by 5
  22.     line 0 256-i 320 i
  23. end
  24.