Halbmond konstruieren

[Medium]

Ich hab es jetzt dann doch einfach mit 2 Kreisen gemacht. Eher empirisch und mathematisch bestimmt alles andere als haltbar, aber es sieht im Ergebnis gut genug aus.

Delphi-Quellcode:

function MakeArc(prec: Double): TPolygon32;
var
  alpha: Double;
begin
  result := TPolygon32.Create;
  alpha := -PI/3;
  repeat
    result.Add(FixedPoint(sin(alpha)*0.9, -cos(alpha)*0.9));
    alpha := alpha + prec;
  until alpha >= PI/3;
  alpha := PI/4;
  repeat
    result.Add(FixedPoint(sin(alpha), -cos(alpha) + 0.185));
    alpha := alpha - prec;
  until alpha <= -PI/4;
end;

Skaliert und zurechtgeschoben wird es nachher, das ist quasi mein Einheits-Halbmond