home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / demos / programme / ArtEffect26.demo / rexx / plot.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-10-06  |  267 b   |  19 lines
  1. /**/
  2. address "ArtEffect"
  3.  
  4. options results
  5.  
  6. createbrush rec size 1 prop 100 angle 0
  7. new w 128 h 128
  8.  
  9. do y = 0 to 127 by 2
  10.     do x = 0 to 127 by 2
  11.         r = trunc( x*255/127 )
  12.         g = trunc( y*255/127 )
  13.         b = x+y
  14.         setcolor r g b
  15.         plot x y pt pen mode color str 100
  16.     end
  17. end
  18.  
  19.