Пример работы с графикой в системе Borland (что тоже самое - Turbo) Pascal:

USES GRAPH;                           // подключение "графической библиотеки"
 
VAR h,k,l: INTEGER;
 
BEGIN
 ...                                  // "Неграфическое" начало программы (если есть)
 
 DetectGrahp(k,l);                    // Определение параметров графики
 InitGraph(k,l,'d:\tp7\bgi\');        // Инициализация графики
 
 h:=GraphResult;                      // Проверка на ошибку запуска графики
 If h<>0 then                         // Реакция на ошибку запуска графики 
 begin
   writeln('Error - ', h);
   writeln('Press ENTER for EXIT!');  // Ожидание 
   readln; 
   halt;                               // Выход из программы
 end
 else ... ;                            // Здесь - код для работы с графикой 
 
 ...                                   // "Неграфическое" окончание программы (если есть)
 
END.

Пример работы с графикой в нашей системе.

uses oglgraph;                     // Необходимая библиотека, у нас заменяет graph
 
var 
  gd, gm: smallint;                // Имена не важны, а тип переменных - важен
 
begin
  gd := Detect;                    // Автоматическая установка разрешения
  gm := DetectMode;
  initgraph(gd, gm, '');           // Открытие "графического окна" 
 
{далее все, что Вы хотите нарисовать, например:}
 
  setcolor(green);
  line(0, 0, 100, 100);
 
{конец отрисовки}
  repeat until graphkeypressed;    // Задержка закрытия графического окна до нажатия 
                                   // клавиши для завершения работы программы - 
                                   // иначе рискуете ничего толком не увидеть
 
  closegraph();                    // закрытие графического окна - не обязательно, но рекомендуемо.
 
end.

| Определение размеров экрана для рисования рамки экрана

uses oglgraph;
 
var 
  gd, gm: smallint;
  maxx, maxy : integer;
 
begin
  gd := Detect;
  gm := DetectMode;
  initgraph(gd, gm, ''); 
 
  maxx := getmaxx();     { Выясняем ширину экрана}
  maxy := getmaxy();     { Выясняем высоту экрана} 
 
  {Внимание! Функции getmaxx и getmaxy правильно работают только после вызова initgraph }
 
  setcolor(blue);        { устанавливаем синий цвет для рисования линий }
 
  rectangle(1, 1, maxx - 1, maxy - 1); { Рисуем прямоугольник с отступом в 1 пиксель от края экрана}
 
 
  repeat until graphkeypressed;        { Сохраняем рисунок на экране до нажатия кнопки} 
 
  closegraph();           
end.

| Определение размеров экрана для рисования рамки экрана

uses oglgraph;
 
var 
  gd, gm: smallint;
  color : integer;
 
begin
  gd := Detect;
  gm := DetectMode;
  initgraph(gd, gm, ''); 
 
  setBkColor(color);                   {устанавливаем "нужный" цвет фона - ничего не происходит}
  cleardevice;                         {"очищаем" экран нужным цветом - установленным цветом фона } 
 
 
  repeat until graphkeypressed;        { Сохраняем рисунок на экране до нажатия кнопки} 
 
  closegraph();           
end.

Обратите внимание, что значение параметра не задает толщину линии, а указывает режим рисования. Написать setLineStyle(LineStyle, Pattern, 4);, вообще говоря, ошибка!

Чтобы избежать мигания экрана при перерисовке «заполненных» объектов, применяется метод двойной буферизации. При этом используются два виртуальных экрана, один из которых виден, а другой в это время - перерисовывается. Затем он показывается на экране, а видимый ранее - убирается и перерисовывается.

В начале рисования один раз командой SetDoubleBuffer(true) вызывается двойная буферизация, затем, после прорисовки каждого нового кадра, производится обмен вновь перерисованого кадра с тем, который был показан на экране, командой graphSwapBuffers.

Отключается войная буферизация командой SetDoubleBuffer(false);

m640x200x16       = VGALo;
m640x400x16       = VGAMed;
m640x480x16       = VGAHi;

{ VESA Specific video modes. }
m320x200x32k      = $10D;
m320x200x64k      = $10E;

m640x400x256      = $100;

m640x480x256      = $101;
m640x480x32k      = $110;
m640x480x64k      = $111;

m800x600x16       = $102;
m800x600x256      = $103;
m800x600x32k      = $113;
m800x600x64k      = $114;

m1024x768x16      = $104;
m1024x768x256     = $105;
m1024x768x32k     = $116;
m1024x768x64k     = $117;

m1280x1024x16     = $106;
m1280x1024x256    = $107;
m1280x1024x32k    = $119;
m1280x1024x64k    = $11A;

Все параметры графических процедур и функций — целые числа.

Ось Y направлена вниз. Следовательно, координаты левого верхнего угла - (0, 0).

Все процедуры и функции можно разбить на три группы.

Функции и процедуры, позволяющие узнать текущие настройки, начинаются с «get…» (getcolor и др.).

Процедуры, устанавливающие параметры рисования — с «set…» (setcolor и др.).

Процедуры, осуществляющие рисование и все остальные, называются кто во что горазд, но более или менее осмысленно (circle, floodfill …). «Рисующие» процедуры пользуются ранее установленными настройками или настройками по умолчанию. При изменении настроек, ранее сделанные рисунки не меняются.