Процедура GetArcCoords

Модуль GRAPH

Возвращает координаты последней команды Arc.

Объявление:

Procedure GetArcCoords(Var ArcCoords : ArcCoordsType);

Режим:

Real, Protected

Замечание:

Процедура GetArcCoords возвращает переменную типа ArcCoordsType. GetArcCoords возвращает переменную, содержащую координаты центра (X, Y), координаты начальной точки (XStart, YStart) и координаты конечной точки (XEnd, YEnd), полученные при последнем обращении к процедурам Ellipse и Arc.

Эти значения могут быть полезны, если вам нужно соединить линию с одной из крайних точек дуги окружности или эллипса.

Ограничения:

Нужно быть в графическом режиме.

Пример:

{Пример программы для процедуры 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.