1 578
editací
Změny
Created page with "Nakreslí a vyplní mnohoúhelník, přičemž použije snímací převaděč (scan converter). ;Deklarace procedure FillPoly(NumPoints: Word; var PolyPoints); ;Režim :Re..."
Nakreslí a vyplní mnohoúhelník, přičemž použije snímací převaděč (scan converter).
;Deklarace
procedure FillPoly(NumPoints: Word; var PolyPoints);
;Režim
:Reálný, Chráněný
;Poznámky
:[[PolyPoints]] je parametr bez typu, který obsahuje souřadnice všech průsečíků v mnohoúhelníku. NumPoints určuje počet souřadnic v [[PolyPoints]]. Každá souřadnice sestává z dvou slov - z hodnoty X a hodnoty Y. [[FillPoly]] vypočítá všechny horizontální průsečíky a pak vyplní mnohoúhelník aktuálním vyplňovacím stylem a barvou, definovanými pomocí [[SetFillStyle]] a [[SetFileColor]]. Obrys mnohoúhelníka se nakreslí čárou aktuálního stylu a barvy, tak jak je nastavila procedura [[SetLineStyle]].
:Pokud během vyplňování mnohoúhelníka dojde k chybě, vrátí funkce GraphResult hodnotu grNoScanMem.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[DrawPoly]]
:[[GetFillSettings]]
:[[GetLineSettings]]
:[[GraphResult]]
:[[SetFillPattern]]
:[[SetFillStyle]]
:[[SetLineStyle]]
Vzorový příklad
{FillPoly.PAS}
{Vzorový příklad pro proceduru FillPoly.}
uses Graph;
const
Triangle: array[1..3] of PointType = ((X: 50; Y: 100),
(X: 100; Y: 100), (X: 150; Y: 150));
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
FillPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure FillPoly(NumPoints: Word; var PolyPoints);
;Režim
:Reálný, Chráněný
;Poznámky
:[[PolyPoints]] je parametr bez typu, který obsahuje souřadnice všech průsečíků v mnohoúhelníku. NumPoints určuje počet souřadnic v [[PolyPoints]]. Každá souřadnice sestává z dvou slov - z hodnoty X a hodnoty Y. [[FillPoly]] vypočítá všechny horizontální průsečíky a pak vyplní mnohoúhelník aktuálním vyplňovacím stylem a barvou, definovanými pomocí [[SetFillStyle]] a [[SetFileColor]]. Obrys mnohoúhelníka se nakreslí čárou aktuálního stylu a barvy, tak jak je nastavila procedura [[SetLineStyle]].
:Pokud během vyplňování mnohoúhelníka dojde k chybě, vrátí funkce GraphResult hodnotu grNoScanMem.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[DrawPoly]]
:[[GetFillSettings]]
:[[GetLineSettings]]
:[[GraphResult]]
:[[SetFillPattern]]
:[[SetFillStyle]]
:[[SetLineStyle]]
Vzorový příklad
{FillPoly.PAS}
{Vzorový příklad pro proceduru FillPoly.}
uses Graph;
const
Triangle: array[1..3] of PointType = ((X: 50; Y: 100),
(X: 100; Y: 100), (X: 150; Y: 150));
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
FillPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]