Процедура LineRel

Модуль GRAPH

Рисует линию относительно текущего указателя (CP) и перемещает CP в точку с координатами (X1, Y1).

Объявление:

Procedure LineRel(Dx, Dy : Integer);

Режим:

Real, Protected

Замечание:

Рисует линию из CP (X0, Y0) в точку (X1, Y1), где

X1 = X0 + Dx
Y1 = Y0 + Dy

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для процедуры LineRel }

Uses Graph;

Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 MoveTo(1, 2);
 { Рисуем линию в точку (101,102) }
 LineRel(100, 100);
 ReadLn;
 CloseGraph;
End.