Zobrazení zdroje stránky LineRel

Nakreslí čáru do bodu, který je dán relativní vzdáleností z aktuální pozice (CP).

;Deklarace
 procedure LineRel(Dx, Dy: Integer);

;Režim
:Reálný, Chráněný

;Poznámky
:Nakreslí úsečku z pozice CP (x0, y0) do bodu (x1, y1), kde

 x1 = x0 + Dx
 y1 = y0 + Dy

;Viz také
:[[Line]]

:[[LineTo]]

:[[MoveRel]]

:[[MoveTo]]

:[[SetLineStyle]]

:[[SetWriteMode]]


Vzorový příklad

 {Linerel.PAS}
 {Vzorový příklad pro proceduru LineRel.}
 uses Graph;
 var Gd, Gm: Integer;
 begin
   Gd := Detect;
   InitGraph(Gd, Gm, ' ');
   if GraphResult <> grOk then
     Halt(1);
   MoveTo(1, 2);
   LineRel(100, 100);   { Kreslit do bodu (101,102) }
   Readln;
   CloseGraph;
 end.
[[Category:Graph]]
[[Category:Procedúry Graph]]