[DUG] Arc's

[Marshland Engineering]

Is there an easy way of drawing an arc ?  I have center, start and end co-ordinates as XY. 

>From what I can see, I need to look at least 16 combinations to work out the perimeter size depending in which quadrant the start and ends are in.  

procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);

Use Arc to draw an elliptically curved line with the current Pen. The arc traverses the perimeter of an ellipse that is bounded by the points (X1,Y1) and (X2,Y2). The arc is drawn following the perimeter of the ellipse, counterclockwise, from the starting point to the ending point. The starting point is defined by the intersection of the ellipse and a line defined by the center of the ellipse and (X3,Y3). The ending point is defined by the intersection of the ellipse and a line defined by the center of the ellipse and (X4, Y4).
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20110118/16ebea68/attachment.html