Процедура MoveRel

Модуль GRAPH

Перемещает текущий указатель (CP) на заданное расстояние относительно его текущей позиции.

Объявление:

Procedure MoveRel(Dx, Dy : Integer);

Режим:

Real, Protected

Замечание:

Если текущий указатель CP находится в точке с координатами (X1, Y1), то MoveRel перемещает его в точку с координатами (X1+Dx, Y1+Dy).

Пример:

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

Uses Graph;

Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 MoveTo(1, 2);
 MoveRel(10, 10); { Перемещаем CP в точку (11, 12) }
 PutPixel(GetX, GetY, GetMaxColor);
 ReadLn;
 CloseGraph;
End.