Turbo Pascal Documentation

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