Superellipse: Difference between revisions
Superellipse en QBasic
(Superellipse en QBasic) |
|||
Line 1,243:
Next
End Sub</lang>
=={{header|QBasic}}==
<lang QBasic>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</lang>
|