Конспект лекций по программированию для начинающих. Гладков В.П. - 129 стр.

                                     131

                         10.11. Графика в Паскале
   В классическом Паскале Н.Вирта не предусмотрены операторы работы с
графикой, поэтому рассмотрим этот вопрос в реализации Турбо Паскаля 7.0. Здесь
для работы в графическом режиме используется библиотека графических
подпрограмм, представленная в виде модуля graph. Настройка графических
процедур на работу с конкретным дисплейным адаптером графического режима
достигается подключением (инициализацией) нужного графического драйвера,
который является специальной программой для управления техническими
средствами компьютера, в данном случае графическим экраном. Здесь будем
использовать драйвер EGAVGA.BGI для адаптеров EGA и VGA, который
находится обычно в каталоге c:\tp7\bgi.
   В графическом режиме экран представляет набор пикселов (графических
точек), светимостью которых можно управлять, адресуясь к ним с помощью
координат.
   Пиксел в левом верхнем углу имеет координаты 0,0. Ось х направлена от
левого верхнего угла вправо. Максимальная координата по х определяется
функцией getmaxx.
   Ось y направлена от левого верхнего угла вниз. Максимальная координата по y
определяется функцией getmaxy.
   Для инициализации (переключения в графический режим) используется
последовательность операторов:
   uses graph;
   var       driver:integer; {используемый драйвер}
             mode :integer; {код графического режима}
             err :integer; {код ошибки}
   begin
      driver:=detect;
      initgraph(driver,mode,'c:\tp7\bgi');
      err:=graphresult;
      if err<>0
      then begin write('ОШИБКА ГРАФИКИ: ',grapherrormsg(err));
                     halt
             end;
    ...
   closegraph;
   end.
   В графическом режиме используются следующие операторы:
   Цвет фона: setbkcolor(цвет). Здесь «цвет» может иметь значение от 0 до 7.
   Цвет рисунка: setcolor(цвет). Здесь «цвет» может иметь значение от 0 до 15.
   Для «цвета» используется следующая таблица соответствий:
                           0    Черный
                           1    Синий
                           2    Зеленый
                           3    Голубой