Ein Stück vom Kreis erstellen

[Peter666]

Sorry die Frage hatte sich am nächsten morgen quasi von selbst gelöst, nach einem Arbeitstag hat man mitunter nicht mehr den Kopf frei für so quasi banales Zeug.

Delphi-Quellcode:

procedure Arc2D(const Center: TPointF; const rad, Start, endp: Single;
  var Poly: TPolygon);
var
  angle: Single;
  step: Single;
  i: integer;
begin
  angle := Start;
  step := 0.01;
  Setlength(Poly, trunc((endp - Start) / step) + 2);
  Poly[0] := Center;
  Poly[high(Poly)] := Center;

  for i := 1 to high(Poly) - 1 do
  begin
    Poly[i] := PointF(Center.X + rad * sin(angle), Center.Y + rad * cos(angle));
    angle := angle + step;
  end;
end;