HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 марта. В 1965 году (54 года назад) - Запуск американской автоматической межпланетной станции "Рейнджер-9" с целью доставки на лунную поверхность контейнера с оборудованием при условии жесткой посадки и передачи телевизионного изображения лунной поверхности при подлете к Луне.
 
 

Turbo Pascal Documentation

Процедура GetArcCoords

Модуль Graph


     Функция: Позволяет пользователю выдавать запрос о коор-
динатах последней команды Аrс.
     Описание: GetArcCoords(var координаты: ArcCoordsType)
     Примечания: Данная процедура возвращает переменную типа
CoordType, который является предописанным и определен следу-
ющим образом:

      type
        ArcCoordsType :
        Х,Y : integer; Хнач, Yнач, Хкон,
        Yкон : word;
      end;

     Процедура GetArcCoords возвращает переменную,  содержа-
щую  точку центра (Х,Y), начальную позицию (Хнач,Yнач) и ко-
нечную позицию (Хкон,Yкон) последней команды Аrс. Эти значе-
ния могут быть полезными, если вы хотите, например, провести
прямую, начинающуюся от конца дуги.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры Arc, Ellipse, PieSlice,
PieSliseXY.
     Пример:

var
  ArcCoords : ArcCoordsType;
begin
  ...
  Arc(100,100,0,89,30);
  GetArcCoords(ArcCoorsType);
  MoveTo(100,100);
  with ArcCoords do
        Line(Xstart, Ystart, Xend, Yend);
  ...
  end.




HOME