7 lines
146 B
Text
7 lines
146 B
Text
10 a=1.5:b=2
|
|
20 mode 2:rad:move 320,200
|
|
30 for t=0 to 40*pi step 0.2
|
|
40 r=a+b*t
|
|
50 draw r*sin(t)+320,r*cos(t)+200
|
|
60 next
|
|
70 while inkey$="":wend
|