fillpoly.pas

 {FillPoly.PAS}
 
 { Пример программы для процедуры 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, 'C:\BP\BGI'); { Путь к BGI-драйверам }
  If GraphResult <> grOk Then Halt(1);
  FillPoly(SizeOf(Triangle) Div SizeOf(PointType), Triangle);
  ReadLn;
  CloseGraph;
 End.