Демонстрация стилей заполнения областей — Pascal(Паскаль)

program setfill;
uses Graph;

const
 FillConst : array[0..11] of string =
            ( 'EmptyFill',     'SolidFill',  'LineFill',
              'LtSlashFill',   'SlashFill',  'BkSlashFill',
              'LtBkSlashFill', 'HatchFill',  'XHatchFill',
              'InterleaveFill','WideDotFill','CloseDotFill');
var
 grDriver:integer;  { драйвер }
 grMode:integer;    { графический режим }
 grPath:string;     { место расположения драйвера }
 ErrCode:integer;   { результат инициализации граф. режима }

 i,j:integer;
 x,y:integer; { координаты верхнего левого узла очередного прямоугольника }
 w,h:integer; { ширина и высота прямоугольника }

begin
 grDriver := VGA;     { режим VGA}
 grMode:=VGAHi;       { разрешение 640х480}
 grPath:='d:\tp\bgi'; { драйвер, файл EGAVGA.BGI, находится
                        в каталоге d:\tp\bgi }

 InitGraph(grDriver, grMode,grPath);
 ErrCode := GraphResult;
 if ErrCode <> grOk then Halt(1);

 w:=60;
 h:=60;
 for i:=0 to 2 do
    for j:=0 to 3 do
      begin
        x:=10+j*120;
        y:=10+i*100;
        SetFillStyle(i*4+j,White);
        Bar(x,y,x+w,y+h);
        OutTextXY(x,y+h+5,FillConst[i*4+j]);
      end;

 readln;
 CloseGraph;
end.