Superellipse: Difference between revisions

(Added solution for Action!)
Line 1,684:
color 0,0,255
for i = 0 to 314
xp=a*signsig(cos(t))*abs((cos(t)))^na+350
yp=b*signsig(sin(t))*abs((sin(t)))^na+275
t=t+.02
line to xp, yp
next i
sub sign(x)
if x<0 return 1
if x>0 return -1
if x=0 return 0
end sub</lang>
 
=={{header|zkl}}==
672

edits