Superellipse: Difference between revisions

=={{header|Delphi}}==

{{works with|Delphi|6.0}}

{{libheader|SysUtils,StdCtrls}}

<syntaxhighlight lang="Delphi">

procedure DrawSuperElipse(Image: TImage);

var Points: array of double;

const N = 2.5;

const Border = 10;

var A: integer;

var X: integer;

var W2,H2: integer;

begin

{Make elipse size and position based on window size}

W2:=Image.Width div 2;

H2:=Image.Height div 2;

A:=Min(W2,H2)-Border;

{Fill array with points}

SetLength(Points,A);

for X:=0 to High(Points) do

Points[X]:=Power(Power(A, N) - Power(X, N), 1 / N);

Image.Canvas.Pen.Color:=clRed;

Image.Canvas.Pen.Width:=2;

{Starting point}

Image.Canvas.MoveTo(W2+High(Points),trunc(H2-Points[High(Points)]));

{Draw Upper right}

for X:=High(Points) downto 0 do

begin

Image.Canvas.LineTo(W2+x, trunc(H2-Points[X]))

end;

{Draw Upper left}

for X:=0 to High(Points) do

begin

Image.Canvas.LineTo(W2-X, trunc(H2-Points[X]))

end;

{Draw Lower left}

for X:=High(Points) downto 0 do

begin

Image.Canvas.LineTo(W2-X, trunc(H2+Points[X]))

end;

{Draw Lower right}

for X:=0 to High(Points) do

begin

Image.Canvas.LineTo(W2+X, trunc(H2+Points[X]))

end;

{Connect back to beginning}

Image.Canvas.LineTo(W2+High(Points),trunc(H2-Points[High(Points)]));

Image.Repaint;

end;

</syntaxhighlight>

{{out}}

<pre>

Elapsed Time: 13.282 ms.

</pre>