PROGRAM   FillPat2 ;
USES   Graph ;

CONST
   G_MyPattern2 : FillPatternType = ( $00,$42,$24,$18 , $18,$24,$42,$00 );

         { Hexa values in binary :  Bits: 84218421
                                    --------------
                                    $00 = ........
                                    $42 = .X....X.
                                    $24 = ..X..X..
                                    $18 = ...XX...
                                    $18 = ...XX...
                                    $24 = ..X..X..
                                    $42 = .X....X.
                                    $00 = ........
         }

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

   SetFillPattern ( G_MyPattern2 , White );
   Bar ( 0,0  ,  250,100 );

   ReadLn ;
   CloseGraph ;
END.
