getarccd.pas

{Getarccd.PAS}
 
{ Пример программы для процедуры GetArcCoords }
 
Uses Graph;
 
Var Gd, Gm : Integer;
 ArcCoords : ArcCoordsType;
 
Begin
 Gd := Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 Arc(100, 100, 0, 270, 30);
 GetArcCoords(ArcCoords);
 With ArcCoords Do Line(Xstart, Ystart, Xend, Yend);
 ReadLn;
 CloseGraph;
End.