1 578
editací
Změny
Line
,Created page with "Nakreslí čáru z (X1, Y1) do (X2, Y2). ;Deklarace procedure Line(x1, y1, x2, y2: Integer); ;Režim :Reálný, Chráněný ;Poznámky :Nakreslí čáru ve stylu a tlouš..."
Nakreslí čáru z (X1, Y1) do (X2, Y2).
;Deklarace
procedure Line(x1, y1, x2, y2: Integer);
;Režim
:Reálný, Chráněný
;Poznámky
:Nakreslí čáru ve stylu a tloušťce, definované procedurou [[SetLineStyle]], a použije barvu, nastavenou pomocí [[SetColor]]. Procedurou [[SetWriteMode]] můžete určit, zda se čára na obrazovku zkopíruje nebo nakreslí operací [[XOR]].
:Pamatujte, že
MoveTo(100, 100);
LineTo(200, 200);
:je ekvivalentní s
Line(100, 100, 200, 200);
MoveTo(200, 200);
:Použijte proceduru [[LineTo]], když ukazatel pozice (CP) je na jednom konci budoucí čáry. Pokud chcete mít při nakreslení čáry automaticky aktualizovanou pozici CP, použijte LineRel pro kreslení úsečky do bodu daného relativními souřadnicovými rozdíly vůči CP. Line neaktualizuje CP.
;Omezení
:Je nutno být v grafickém režimu. Pro kreslení horizontálních čar je procedura Bar rychlejší než Line.
;Viz také
:[[LineTo]]
:[[MoveTo]]
:[[Rectangle]]
:[[SetColor]]
:[[SetLineStyle]]
:[[SetWriteMode]]
Vzorový příklad
{Line.PAS}
{Vzorový příklad pro proceduru Line.}
uses Crt, Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Randomize;
repeat
Line(Random(200), Random(200), Random(200), Random(200));
until KeyPressed;
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure Line(x1, y1, x2, y2: Integer);
;Režim
:Reálný, Chráněný
;Poznámky
:Nakreslí čáru ve stylu a tloušťce, definované procedurou [[SetLineStyle]], a použije barvu, nastavenou pomocí [[SetColor]]. Procedurou [[SetWriteMode]] můžete určit, zda se čára na obrazovku zkopíruje nebo nakreslí operací [[XOR]].
:Pamatujte, že
MoveTo(100, 100);
LineTo(200, 200);
:je ekvivalentní s
Line(100, 100, 200, 200);
MoveTo(200, 200);
:Použijte proceduru [[LineTo]], když ukazatel pozice (CP) je na jednom konci budoucí čáry. Pokud chcete mít při nakreslení čáry automaticky aktualizovanou pozici CP, použijte LineRel pro kreslení úsečky do bodu daného relativními souřadnicovými rozdíly vůči CP. Line neaktualizuje CP.
;Omezení
:Je nutno být v grafickém režimu. Pro kreslení horizontálních čar je procedura Bar rychlejší než Line.
;Viz také
:[[LineTo]]
:[[MoveTo]]
:[[Rectangle]]
:[[SetColor]]
:[[SetLineStyle]]
:[[SetWriteMode]]
Vzorový příklad
{Line.PAS}
{Vzorový příklad pro proceduru Line.}
uses Crt, Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Randomize;
repeat
Line(Random(200), Random(200), Random(200), Random(200));
until KeyPressed;
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]