15 lines
347 B
Text
15 lines
347 B
Text
1 REM ARCHIMEDEAN SPIRAL
|
|
2 REM USING COMMODORE BASIC 7.0
|
|
3 REM OF THE COMMODORE 128
|
|
4 REM **********************************
|
|
10 GRAPHIC 1,1
|
|
20 A = 1.5
|
|
30 B = 0.7
|
|
40 X0 = 160 : Y0 = 100
|
|
50 FOR T = 0 TO 40*π STEP 0.2
|
|
60 R = A+B*T
|
|
70 X = R*COS(T)+160 : Y = R*SIN(T)+100
|
|
80 DRAW 1,X0,Y0 TO X,Y
|
|
90 X0 = X : Y0 = Y
|
|
100 NEXT T
|
|
110 GOTO 110
|