Saturday, October 22, 2022

Archimedean Spiral

Archimedean Spiral



 0 POKE65497,0:SX=144:SY=56:SZ=64:CX=320:CY=192:HSCREEN 2

10 A=1.5
20 B=1.5
30 PI=3.141592

40 HSET(160,96)

50 FOR T=0 TO 15*PI STEP .1
60  R=A+B*T  
70  HLINE-(160+2*R*SIN(T),96+R*COS(T)),PSET
80 NEXT

100 GOTO 100

No comments:

Post a Comment