Turbo Pascal Documentation

Процедура LineTo

Модуль Graph

     Функция: Рисует прямую линию из точки, в которой  нахо-
дится текущий указатель, в точку (x,y).
     Описание: LineTo(x, y : integer)
     Примечания: Рисует прямую, толщина и тип которой  зада-
ются  процедурой SetLineStyle, а цвет устанавливается проце-
дурой SetColor.
     Заметим, что
     MoveTo(100,100);
     LineTo(200,200);

эквивалентно

     Line(100,100,200,200);

     Первый метод требует больше времени  для  выполнения  и
большего  объема  памяти  для выполняемого кода. Используйте
процедуру LineТо только когда текущий указатель находится  в
одном из концов прямой. Отметим, что второй метод не изменя-
ет значения текущего указателя.
     Процедура LinеТо перемещает текущий указатель  в  точку
(x,y).
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См.  также  процедуры  Line,  LineRel,  MoveTo,
MoveRel, SetLineStyle.
     Пример:

  var
    Gd, Gm : integer;
  begin
    Gd := Detect;
    InitGraph(gd, Gm, '');
    if GraphResult <> 0 then
       Halt(1);
  Randomize;
  repeat
    LineTo(Random(200),Random(200));
  until KeyPressed;
  Readln;
  CloseGraph;
end.