15 lines
252 B
Text
15 lines
252 B
Text
SCREEN 12
|
|
CLS
|
|
a = 200
|
|
b = 200
|
|
n = 2.5
|
|
na = 2 / n
|
|
t = .01
|
|
|
|
LINE -(520, 245), 0, BF
|
|
FOR i = 0 TO 314
|
|
xp = a * SGN(COS(t)) * ABS((COS(t))) ^ na + 320
|
|
yp = b * SGN(SIN(t)) * ABS((SIN(t))) ^ na + 240
|
|
t = t + .02
|
|
LINE -(xp, yp), 1, BF
|
|
NEXT i
|