Arc

function Arc(const rec: TRect; startAngle, endAngle: double): TArrayOfPointD;


The path follows an elliptical curve defined by the 'rec' parameter, starting at 'startAngle' (with 0 degrees at 3 o'clock) and progressing anti-clockwise to end at 'endAngle' (where angles are expressed in Radians).

uses 
  Image32, Image32_PNG, Image32_Vector, Image32_Draw;
...
var
  path, path2: TArrayOfPointD;
  rec: TRect;
  img: TImage32;
begin
  img := TImage32.create(256,256);
  rec := Rect(10,30, 256-10, 256-30);
  path := Ellipse(rec);
  DrawLine(img1, path, 20, clNavy32, esClosed);
  path := Arc(rec, 90 *Pi/180, 360 *Pi/180);
  DrawLine(img1, path, 5, clYellow32, esRound);
  img.SaveToFile('arc.png');
  img.Free;

See Also

Pie