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

program userfill;
uses Graph;
const
 myfill:FillPatternType=($00,$10,$10,$FE,$38,$28,$44,$00);
var
 grDriver:integer;  { драйвер }
 grMode:integer;    { графический режим }
 grPath:string;     { место расположения драйвера }
 ErrCode: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
   begin
     writeln('Ошибка инициализации графического режима.');
     writeln('Для завершения работы нажмите <Enter>');
     readln;
     Halt(1);
  end;

 SetFillPattern(myfill,15);
 Bar(10,10,100,100);
 readln;
 CloseGraph;
end.