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
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.