![]() |
![]() |
![]() |
function Arc(const rec: TRect; startAngle, endAngle: double): TPathD;
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: TPathD; 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;
![]() |
Copyright ©2019 Angus Johnson - Image32 ver. 1.54 - Documentation last updated on 7-November-2020