PROGRAM   FillStyl ;
USES   Graph ;

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

   {Column 1}

   SetFillStyle ( EmptyFill , White );
   Bar ( 0,0  ,  90,40 );

   SetFillStyle ( SolidFill , White );
   Bar ( 0,50  ,  90,90 );

   SetFillStyle ( LineFill , White );
   Bar ( 0,100  ,  90,140 );

   SetFillStyle ( LtSlashFill , White );
   Bar ( 0,150  ,  90,190 );

   {Column 2}

   SetFillStyle ( SlashFill , White );
   Bar ( 100,0  ,  190,40 );

   SetFillStyle ( BkSlashFill , White );
   Bar ( 100,50  ,  190,90 );

   SetFillStyle ( LtBkSlashFill , White );
   Bar ( 100,100  ,  190,140 );

   SetFillStyle ( HatchFill , White );
   Bar ( 100,150  ,  190,190 );

   {Column 3}

   SetFillStyle ( XHatchFill , White );
   Bar ( 200,0  ,  290,40 );

   SetFillStyle ( InterleaveFill , White );
   Bar ( 200,50  ,  290,90 );

   SetFillStyle ( WideDotFill , White );
   Bar ( 200,100  ,  290,140 );

   SetFillStyle ( CloseDotFill , White );
   Bar ( 200,150  ,  290,190 );

(* UserFill        = 12; *)

   ReadLn ;
   CloseGraph ;
END.
