PROGRAM   FillPol_ ;
USES   Graph ;

CONST
   G_MyPoly1 : Array[0..4] of PointType = (
      ( x :   0 ; y :  0 ),
      ( x : 200 ; y :  0 ),
      ( x : 200 ; y : 50 ),
      ( x :   0 ; y : 50 ),
      ( x :   0 ; y :  0 )
   );

VAR
   G_GraphDriver : Integer ;
   G_GraphMode   : Integer ;
BEGIN
   G_GraphDriver := Detect ;
   G_GraphMode   := Detect ;
   InitGraph ( G_GraphDriver , G_GraphMode , 'C:\Lib\BGI' );

   SetFillStyle ( LtSlashFill , Green );
   FillPoly ( 5 , G_MyPoly1 );

   ReadLn ;
   CloseGraph ;
END.
