RosettaCodeData/Task/Superellipse/EasyLang/superellipse.easy
2024-03-06 22:25:12 -08:00

10 lines
189 B
Text

n = 2.5
a = 200
b = 200
linewidth 0.2
while t <= 360
x = pow abs cos t (2 / n) * a * sign cos t
y = pow abs sin t (2 / n) * b * sign sin t
line x / 5 + 50 y / 5 + 50
t += 0.5
.