Superellipse: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: syntax coloured, added online link) |
(Added XPL0 example.) |
||
Line 1,694: | Line 1,694: | ||
} |
} |
||
}</lang> |
}</lang> |
||
=={{header|XPL0}}== |
|||
<lang XPL0>def X0=640/2, Y0=480/2, Scale=25.0, N=2.5; |
|||
real X, Y; int IX, IY; |
|||
proc OctPoint; [ |
|||
Point(X0+IX, Y0-IY, $F); |
|||
Point(X0-IX, Y0-IY, $F); |
|||
Point(X0+IX, Y0+IY, $F); |
|||
Point(X0-IX, Y0+IY, $F); |
|||
Point(X0+IY, Y0-IX, $F); |
|||
Point(X0-IY, Y0-IX, $F); |
|||
Point(X0+IY, Y0+IX, $F); |
|||
Point(X0-IY, Y0+IX, $F); |
|||
]; |
|||
[SetVid($101); \VESA graphics 640x480x8 |
|||
IX:= 0; |
|||
repeat X:= float(IX)/Scale; |
|||
Y:= Pow(200.0 - Pow(X,N), 1.0/N); |
|||
IY:= fix(Y*Scale); |
|||
OctPoint; |
|||
IX:= IX+1; |
|||
until IX >= IY; |
|||
]</lang> |
|||
{{out}} |
|||
<pre> |
|||
http://www.xpl0.org/rcell.gif |
|||
</pre> |
|||
=={{header|Yabasic}}== |
=={{header|Yabasic}}== |