home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / CIRCLE.TRU < prev    next >
Encoding:
Text File  |  1985-01-05  |  574 b   |  21 lines
  1. ! Draw a circle picture.
  2. !
  3. PICTURE Circle(sides)
  4.  
  5.     FOR i = 0 to sides
  6.        LET u = (i*2*Pi)/sides       ! Find next angle
  7.        PLOT Cos(u), Sin(u);         ! Plot next segment
  8.     NEXT i
  9.     PLOT                            ! Turn off beam
  10.  
  11. END PICTURE
  12.  
  13. SET WINDOW -15, 15, -10, 10         ! Set the window
  14. ASK MAX COLOR cmax                  ! Maximum colors
  15.  
  16. FOR j = 1 to 30                     ! Draw a bunch of circles
  17.    SET COLOR Mod(j,cmax) + 1        ! In different colors
  18.    DRAW Circle(j) with Scale(j/3)   ! Bigger and better
  19. NEXT j
  20. END
  21.