Процедура GetArcCoords
Модуль Graph
Получает координаты последней команды Arc
Объявление:
Procedure GetArcCoords(Var ArcCoords : ArcCoordsType);
Режим:
Замечания:
Процедура GetArcCoords возвращает переменную типа ArcCoordsType.
GetArcCoords возвращает переменную, содержащую координаты центра (X, Y),
координаты начальной точки (XStart, YStart) и координаты конечной точки
(XEnd, YEnd), полученные при последнем обращении к процедурам Ellipse и Arc
Эти значения могут быть полезны, если вам нужно соединить линию с одной из
крайних точек дуги окружности или эллипса.
Нужно быть в графическом режиме.
Пример:
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.
См. также: