Superellipse: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,684: / Line 1,684: @@
 color 0,0,255
 for i = 0 to 314
-    xp=a*sign(cos(t))*abs((cos(t)))^na+350
+    xp=a*sig(cos(t))*abs((cos(t)))^na+350
-    yp=b*sign(sin(t))*abs((sin(t)))^na+275
+    yp=b*sig(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}}==