Здесь мы приведем сиснтаксис основных подпрограмм, используемых при создании графических приложений.

    Перечислим основные процедуры работы с графическими объектами.

   

Таблица 1. Основные процедуры и функции

Процедура (функция)	Назначение
Line (x1,y1,x2,y2: Integer);	Построение отрезка из точки с координатами (x1,y1) до точки (x2,y2) текущим цветом.
Rectangle (x1,y1,x2,y2: Integer);	Построение прямоугольника с координатами диагонали (x1,y1) и (x2,y2). Сама диагональ не изображается.
Bar (x1,y1,x2,y2: Integer);	Построение закрашенного прямоугольника с координатами диагонали (x1,y1) и (x2,y2).
Circle (x,y: Integer,r:Word);	Построение окружности с центром в точке (x,y) и радиусом r.
SetColor (c: Word);	Задание цвета изображения.
SetBkColor(c: Word);	Установка цвета фона.
ClearDevice;	Очистка экрана в графическом режиме.
PutPixel (x,y:Integer,c:Word);	Вывод на экран точки с координатами (x,y) цветом c.
MoveTo (x,y: Integer);	Перемещение графического курсора в точку с координатами (x,y).
GetMaxX:Integer;	Функция, возвращающая максимальное значение координаты X.
GetMaxY:Integer;	Функция, возвращающая максимальное значение координаты Y.
SetFillStyle (p:Word, c: Word);	Задание образца закраски области; p - вид штриховки, с - ее цвет.
FloodFill (x,y: Integer, b: Word );	Закраска области, внутри которой находится точка с координатами (x,y). Параметр b определяет цвет границы закрашиваемой области.
OutText (s: String);	Вывод строки текста с текущего местоположения курсора.
OutTextXY (x,y: Integer;s: String);	Вывод строки текста, начиная с точки (x,y).

    Возможные цвета и виды штриховки перечислены в таблицах 2 и 3.

    Приведём пример программы, использующей некоторые из рассмотренных графических процедур.

    Изобразить окружность, заштриховать её и сделать подпись. Приведем текст программы, реализующей эту задачу.

Program Okr;
Uses Graph; {Подключение  графического модуля.}
Var
   gd,gm,x,y,r: Integer;
Begin
   gd:=detect;{Автоматический выбор типа и режима работы.}
   Writeln('Задайте координаты центра окружности');
   Readln(x,y);
   Writeln('Радиус окружности: ');
   Readln(r);
   {Перевод экрана в графический режим.}
   InitGraph(gd,gm,'F:\BP\BGI'); 
   SetColor(Green); {Установка цвета}
                    {выводимой  окружности.}
   SetBkColor(Yellow); {Установка цвета фона.}
   ClearDevice; {Очистка экрана.}
   Circle(x,y,r); {Построение окружности.}
   SetFillStyle(9,Red); {Задание вида штриховки.}
   FloodFill(x,y,Green); {Закрашивание окружности.}
   OutTextXY(x,y+10+r,'Окружность'); {Вывод подписи.}
   Readln; {Задержка.}
   CloseGraph; {Перевод экрана дисплея в текстовый режим.}
End. 

    Прокомментируем некоторые фрагменты программы.
    1. Третий параметр процедуры InitGraph будет иметь различные значения, в зависимости от инсталляции среды программирования Pascal.
    2. В процедуре FloodFill третий параметр задает цвет границы закрашиваемой области, а не цвет закраски!
    3. Закрашиваемая область должна быть замкнута и быть одного цвета! Это требование связано со способом закраски области. Если хотя бы одно из этих требований будет нарушено, краска "выльется" и "зальет" весь экран.

    На следующем шаге мы разберем несколько примеров составления графических программ.

Предыдущий шаг Содержание Следующий шаг