home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / MONDRIAN.TRU < prev    next >
Encoding:
Text File  |  1984-12-19  |  518 b   |  18 lines
  1. ! Paint Mondrian pictures.
  2. !
  3. CLEAR                           ! Make sure screen is clear
  4.  
  5. FOR i = 1 TO 20                 ! Repeat 20 times
  6.  
  7.    GET point: x1, y1            ! One corner of box
  8.    PLOT x1, y1                  ! Leave cursor at that point
  9.    GET point: x2, y2            ! Opposite corner of box
  10.    PLOT x2, y2                  ! Leave cursor at new point
  11.  
  12.    SET COLOR Int(Mod(i,2)) + 2  ! Alternate red & yellow
  13.    BOX AREA x1, x2, y1, y2      ! Draw rectangle (or line)
  14.  
  15. NEXT i
  16.  
  17. END
  18.