Listing of file='SPIROG.BAS;01' on disk='vmedia/games-sector.ccvf'
1 REM THIS "SPIROGRAPH" PROGRAM PLOTS 2 REM THE LOCUS OF A ROTATING POINT 3 REM CENTERED ON THE CIRCUMFERENCE OF 4 REM ANOTHER ROTATING POINT 7 PLOT 12 10 INPUT "R-";RRATIO:REM RATIO OF OUTER TO INNER RAD. 11 INPUT "W-";WRATIO:REM RATIO OF ANGULAR VELOCITIES 12 INPUT "S-";ST:REM NUMBER OF STEPS TAKEN IN LOCUS 20 R1= 62/ (RRATIO+ 1) 30 R2= R1* RRATIO 40 K1= 2* 3.141593/ ST 50 K2= K1* WRATIO 60 PLOT 12,2,127,63,242 70 FOR N= 1TO ST 80 P1= K1* N 90 P2= K2* N 100 X= R1* COS (P1)+ R2* COS (P2) 110 Y= R1* SIN (P1)+ R2* SIN (P2) 120 PLOT INT (X+ 63),INT (Y+ 63) 130 NEXT N 140 PLOT 255,8 145 PRINT "R-";RRATIO 146 PRINT "W-";WRATIO 147 PRINT "S-";ST 150 GOTO 10