19 lines
407 B
Text
19 lines
407 B
Text
110 LET H = 96
|
|
120 LET W = H + H / 2
|
|
130 HGR2
|
|
140 HCOLOR= 3
|
|
150 LET A = 1
|
|
160 LET B = 9
|
|
170 LET PI = 3.1415926535
|
|
180 LET M = 10 * PI
|
|
190 LET S = .02
|
|
200 FOR T = S TO M STEP S
|
|
210 LET R = A + B * T
|
|
220 LET X = R * COS (T) + W
|
|
230 LET Y = R * SIN (T) + H
|
|
240 IF X < 0 THEN 290
|
|
250 IF Y < 0 THEN 290
|
|
260 IF X > 279 THEN 290
|
|
270 IF Y > 191 THEN 290
|
|
280 HPLOT X,Y
|
|
290 NEXT
|