PROGRAM   FillPat1 ;
USES   Graph ;

CONST
   G_MyPattern1 : FillPatternType = ( $01,$03,$07,$0F , $1F,$3F,$7F,$FF );

         { Hexa values in binary :  Bits: 84218421
                                    --------------
                                    $01 = .......X
                                    $03 = ......XX
                                    $07 = .....XXX
                                    $0F = ....XXXX
                                    $1F = ...XXXXX
                                    $3F = ..XXXXXX
                                    $7F = .XXXXXXX
                                    $FF = XXXXXXXX
         }

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

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

   ReadLn ;
   CloseGraph ;
END.

