Процедура 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.
 

См. также: