MoveRel

Přesune ukazatel aktuální pozice (CP) o relativní vzdálenost vzhledem k aktuální poloze.

Deklarace

procedure MoveRel(Dx, Dy: Integer);

Režim

Reálný, Chráněný

Poznámky

Pokud CP je na (X1,Y1), MoveRel jej přesune do ((X1 + Dx),(Y1 + Dy)).

Viz také

LineRel

LineTo

MoveTo

Vzorový příklad

{Moverel.PAS}
{Vzorový příklad pro proceduru 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); { Přesun do bodu (11, 12) }
  PutPixel(GetX, GetY, GetMaxColor);
  Readln;
  CloseGraph;
end.