Listing of file='12P5.BAS;01' on disk='vmedia/color_graphics_1_suits-sector.ccvf'
5 REM PROGRAM 12.5 6 REM CIRCLES ABOUT THE CORNERS 9 10 R= 2* 3.1415926:REM RADIANS IN A CIRCLE 19 20 PLOT 6,6,12,3,64,0:REM SET UP 29 30 C= 5* RND (1)+ 1:REM C IS RADIUS OF CIRCLE 39 40 PLOT 6,7* RND (1)+ 1:REM RANDOM COLOR 49 50 FOR X= 0TO 127STEP 127 59 60 FOR Y= 0TO 127STEP 127 70 GOSUB 200:REM DRAW A CIRCLE AROUND A CORNER 80 NEXT 89 90 NEXT 99 100 C= C+ 10* RND (1)+ 1:REM INCREASE RADIUS OF NEXT CIRCLE 110 IF C< 60THEN 40:REM MORE CIRCLES UNTIL THEY INTERSECT 119 120 FOR T= 1TO 2000:NEXT :REM PAUSE 129 130 GOTO 20:REM START OVER 197 198 199 REM SUBROUTINE TO DRAW A CIRCLE 200 PLOT 2 209 210 FOR J= 0TO RSTEP .1 220 X1= X+ C* COS (J):IF X1< 0OR X1> 127THEN 250 230 Y1= Y+ 1.3* C* SIN (J):IF Y1< 0OR Y1> 127THEN 250 240 PLOT X1,Y1 250 NEXT 259 260 PLOT 255:RETURN