Turbo Pascal Documentation

Процедура Line

Модуль Graph

     Функция: Рисует прямую линию из точки (x1,y1)  в  точку
(x2,y2).
     Описание: Line(x1, y1, x2, y2 : integer)
     Примечания: Рисует прямую, толщина и тип которой  зада-
ются  процедурой SetLineStyle, а цвет устанавливается проце-
дурой SetColor.
     Заметим, что

     MoveTo(100,100);
     LineTo(200,200);

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

     LineTo(100,100,200,200);
     MoveTo(200,200);

     Используйте данную процедуру только в том случае, когда
текуший  указатель  находится  в одном из концов строки, или
когда вы хотите, чтобы позиция текущего указателя после  вы-
черчивания  линии автоматически изменилась. Заметим, что ли-
ния не изменяет текущий указатель.
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры LineTo, MoveTo,  Rectangle,
SetColor, SetLineStyle.
     Пример:

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

Процедура LineRel

Модуль Graph

     Функция:  Проводит прямую в точку, заданную
относительным расстоянием от текущего указателя (СР).
     Описание: LineRel(Dx,Dy)
     Примечания:  Данная  процедура вычерчивает прямую линию
из текущей точки в точку,  заданную относительным растоянием
(Dх,Dу) от текущего указателя. Процедура рисует прямую,
толщина и тип которой задаются  процедурой SetLineStyle, а
цвет
устанавливается процедурой  SetColor.  Относительные команды
перемещения и рисования  полезны при  вычерчивании различных
объектов на экране, у которых начальная точка может быть
изменена (чтобы, например, вычертить ту же самую фигуру в
другом месте экрана).
     Ограничения: Должен использоваться графический режим.
     Прочее: См.  также  процедуры  Line,  LineTo,  MoveRel,
MoveTo, SetLineStyle.
     Пример:

uses Graph;
  var
    Gd, Gm : integer;
  begin
    Gd := Detect;
    InitGraph(gd, Gm, '');
    if GraphResult <> 0 then
       Halt(1);
begin
  MoveTo(1,2);
  LineRel(10,10);       { провести прямую в точку (11,12) }
  end;
  Readln;
  CloseGraph;
end.

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