1 578
editací
Změny
bez shrnutí editace
Nakreslí obrys mnohoúhelníku aktuální barvou a stylem čáry.
;Deklarace
procedure DrawPoly(NumPoints: Word; var PolyPoints);
;Režim
:Reálný, Chráněný
;Poznámky
:NumPoints udává počet souřadnic v [[PolyPoints]].
:Každá souřadnice se skládá ze dvou slov - z hodnoty X a hodnoty Y.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[FillPoly]]
:[[GetLineSettings]]
:[[GraphResult]]
:[[SetColor]]
:[[SetLineStyle]]
:[[SetWriteMode]]
Vzorový příklad
{Drawpoly.PAS}
{Vzorový příklad pro funkci Drawpoly.}
uses Graph;
const
Triangle: array[1..4] of PointType =
((X: 50; Y: 100)
, (X: 100; Y:-100)
, (X: 150; Y: 150)
, (X: 50; Y: 100));
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
DrawPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);{ 4 }
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure DrawPoly(NumPoints: Word; var PolyPoints);
;Režim
:Reálný, Chráněný
;Poznámky
:NumPoints udává počet souřadnic v [[PolyPoints]].
:Každá souřadnice se skládá ze dvou slov - z hodnoty X a hodnoty Y.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[FillPoly]]
:[[GetLineSettings]]
:[[GraphResult]]
:[[SetColor]]
:[[SetLineStyle]]
:[[SetWriteMode]]
Vzorový příklad
{Drawpoly.PAS}
{Vzorový příklad pro funkci Drawpoly.}
uses Graph;
const
Triangle: array[1..4] of PointType =
((X: 50; Y: 100)
, (X: 100; Y:-100)
, (X: 150; Y: 150)
, (X: 50; Y: 100));
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
DrawPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);{ 4 }
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]