Compucolor.org – Virtual Media

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