Listing of file='POLYCL.BAS;01' on disk='vmedia/demos-sector.ccvf'
1 REM THIS SPIROGRAPH PATTERN PLOTS 2 REM THE LOCUS OF A ROTATING POINT 3 REM CENTERED ON THE CIRCUMFERENCE 4 REM OF ANOTHER ROTATING POINT.... 5 PLOT 12 6 FOR K= 1TO 3 7 PLOT 29,16+ K 8 RRATIO= INT (80* RND (PEEK (33209)/ 6)+ 20) 10 WRATIO= INT (100* RND (PEEK (33209)/ 6)+ 50) 11 ST= INT (70* RND (PEEK (33209)/ 6)+ 40) 12 R1= 62/ (RRATIO+ 1) 14 R2= R1* RRATIO 16 K1= 2* 3.14193/ ST 18 K2= K1* WRATIO 20 PLOT 12,2,127,63,242 22 FOR N= 1TO ST 24 P1= K1* N 26 P2= K2* N 28 X= R1* COS (P1)+ R2* COS (P2) 30 Y= R1* SIN (P1)+ R2* SIN (P2) 32 PLOT INT (X+ 63),INT (Y+ 63) 34 NEXT N 36 PLOT 255,8 37 FOR J= 1TO 1000:NEXT J 38 NEXT K