Модуль 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.