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.