Шаблон для графики в Pascal

{ my_colors.pas, v1.02                                                                 }
{   Чтобы использовать эту функцию в какой-либо программе, текст данного модуля        }
{ нужно сохранить в файле с именем my_colors.pas и скомпилировать в папке с программой }
{ (при успешной компиляции в папке появится файл my_colors.ppu )                       }
{ После этого модуль можно стандартно подключать:    uses my_colors;                   }
unit My_Colors;
interface
  { Функция переводит компоненты BGR в упакованное 16-битное значение }
  function cRGBto16(R,G,B: Byte): Word;
  
implementation

  function cRGBto16(R,G,B: Byte): Word;
  begin
    cRGBto16 := (B shr 3) or ((G shr 2) shl 5) or ((R shr 3) shl 11)
  end;
  
end.

{ template.pas }
{ Заготовка для программ, работающих со стандартной графикой }
uses
  ptcCrt, ptcGraph;
  
var
  GraphDriver, GraphMode: Integer;
  MaxX, MaxY: Integer;
  
  { Функция преобразования RGB-компонент цвета в упакованное 16-битное значение }
  function cRGBto16(R,G,B: Byte): Word;
  begin
    cRGBto16 := (B shr 3) or ((G shr 2) shl 5) or ((R shr 3) shl 11)
  end;
  
begin
  DetectGraph(GraphDriver, GraphMode);
  InitGraph(GraphDriver, GraphMode, '');
  MaxX := GetMaxX;
  MaxY := GetMaxY;
  
  repeat
    
  until KeyPressed;
  
  Closegraph;
  writeln('Graphic screen dimensions is ', MaxX+1, 'x', MaxY+1, ' pixels')
end.