Графические процедуры и функции для формирования экрана, окна, страницы:
ClearDevice - процедура. Гасит экран и устанавливает параметры графического драйвера на стандартное значение.
SetViewPort (xl,yl,x2,Y2:intеgеr;clip:boolean) -процедура. Создает окно с левым верхним углом (х1,у1) и правым нижним углом (х2,у2), устанавливая при этом курсор в верхний левый угол окна. Параметр clip устанавливает, пересекают ли символы границы окна.
ClearViewPort - процедура. Содержимое окна гасится и окрашивается в цвет, заданный фоновым.
SetVisualPage (p:word) - процедура. Некоторые графические адаптеры (например, EGA, VGA, Hercules) поддерживают несколько страниц. Процедура SetVisualPage устанавливает, какая страница видна.
SetActivePage (p:word) - процедура. Устанавливает, на какой странице строится изображение.
GetMaxX - функция. Возвращает максимально возможную координату Х для установленного драйвера и режима.
GetMaxY - функция. Возвращает максимально возможную координату Y для установленного драйвера и режима.
Графические процедуры и функции для работы с точечными изображениями:
PutPixel (x,y:integer;col:word) -процедура. В точке с координатами (х,у) рисуется точка, цвет который определяется значением переменной col.
GetPixel (x,y:integer) - функция. Возвращает номер цвета элемента графического изображения в точке с координатами (х,у).
GetX - функция. Возвращает координату Х текущей позиции курсора.
GetY - функция. Возвращает координату Y текущей позиции курсора.
Графические процедуры и функции для работы с графическими примитивами типа "линия":
Line (xl,yl,x2,y2:integer) - процедура. Вычерчивает отрезок прямой от точки (х1,у1) до точки (х2,у2). Тип линии устанавливается процедурой SetLineStyle. Положение курсора не меняется.
LineTo (х,у: integer) - процедура. Вычерчивает отрезок прямой из текущей позиции курсора до точки (х,у). После вызова процедуры положение курсора (х,у).
LineRel (dx,dy:integer) - процедура. Курсор находится в позиции (х,у), начиная с которой вычерчивается прямая до точки (х+dx, y+dy).
MoveTo (x,y:integer) - процедура. Устанавливает курсор в точку (х,у).
MoveRel (dx,dy:integer) - процедура. Перемещает курсор из текущей позиции (х,у) в точку (x+dx,y+dy).
SetLineStyle (stil,muster,w:word) - процедура. Устанавливает тип линии для следующих операций над графическими изображениями (Line, LineTo, Arc, Circle, DrawPoly, Rectangle). Для переменной stil в модуле Graph определены следующие константы:
const
solidln = 0; { сплошная линия }
dotteln = 1; { пунктирная линия }
centerln = 2; { штрихпунктирная линия}
dasheln = 3; { штриховая линия }
userbitln = 4; { определенная пользователем линия }
Параметр muster имеет значение только при stil = userbitln. Для параметра w определены следующие константы:
const
normwidth = 1; { обычная толщина }
thickwidth = 3; { жирная линия)
Графические процедуры и функции для работы с дугами, фигурами, штриховкой:
Arc (x,y:integer;w1, w2, r:word) -процедура. Из центра (х,у) вычерчивает дугу радиусом г от угла wl до угла w2. Угол задается в градусах.
Circle (x,y:integer;r:word) - процедура. Вычерчивает окружность радиусом r с центром в точке (х,у).
Rectangle (xl,yl,x2,y2:integer) - процедура. Вычерчивает прямоугольник с координатами левого верхнего угла (х1,у1) и координатами правого нижнего угла (х2,у2).
Bar (xl,yl,x2,y2:integer) - процедура. Вычерчивает прямоугольник с координатами левого верхнего угла (xl,yl) и координатами правого нижнего угла (х2,у2), причем прямоугольник закрашивается в соответствии с образцом, заданным процедурамиSetFillStyle илиSetFillPattern.
Bar3d (xl,yl,x2,y2:integer;t:word;top:boolean) - процедура. Вычерчивает трехмерный брусок с прямоугольным основанием с координатами (х1,у1) и (х2,у2). Переменная t задает пространственную глубину в элементах изображения. Прямоугольник заполняется в соответствии с образцом, заданным процедурами SetFillStyle или SetFillPattern. Переменная top задает, должен ли брусок иметь верхнее замыкание или нет.
DrawPoly (an:word;var p) - процедура. Вычерчивает многоугольник с an вершинами. Переменная р является массивом, содержащим координаты вершин, то есть переменная р имеет тип аггау[1..аn] of pointtype, где
type pointtype = record
х,у: word;
end;
FillPoly (an:word;var p) - процедура. Вычерчивает многоугольник с an вершинами. Координаты точек могут задаваться через определенный в модуле graph тип pointtype. После того как многоугольник построен (последняя точка должна совпадать с первой, чтобы ломанная замкнулась), он заполняется в соответствии с образцом, определенными процедурамиSetFUlStyle илиSetFUlPattern.
SetFUlStyle (muster,f:word) - процедура. Устанавливает образец для заполнения площадки. Для muster существуют следующие константы:
const
emptyfill = 0; { Заполнение цветом фона)
solidfill = 1; { Сплошное заполнение }
linefill=2; {——}
Ltslashfill=3; {\\\\}
slashfill = 4; {\\\\, линии утолщенные}
bkslashfill = 5; {////,линии утолщенные }
Ltbkslashfill=6; {////}
hatehfill = 7; { легкая штриховка}
xhatchfill = 8; { частая штриховка, пересекающаяся } interleavefill = 9; { чередующиеся линии}
widedofill =10; { далеко отстоящие одна от другой точки } closedotfill =11; { жирные точки}
Переменная f определяет цвет заполнения.
SetFiIlPattern (mustcr:fillpatterntype;f:word) - процедура. Устанавливает образец заполнения и цвет для одной из вызываемых процедур FillPoly, FloodFiIl, Bar, Bar3d, Pieslice. Для этого в модуле Graph имеется тип
type
fillpatterntype = аrrау[1..8] of byte;
При этом каждому биту этого массива соответствует один элемент изображения (пиксел). Каждый байт определяет восемь расположенных рядом точек. Восемь байтов устанавливаются один за другим. Переменная f устанавливает цвет заполнения.
FloodFill (x,y,rand:word) - процедура. Если точка (x,y) находится внутри ограниченной некоторыми линиями цвета rand поверхности, она закрашивается в соответствии с образцом, определенными процедурамиSetFillStyle илиSetFillPattern.
Pieslice (x,y:integer;wl,w2,r:word) -процедура.Из центра (х,у) вычерчивает дугу радиусом г от угла wl до угла w2. Угол задается в градусах. Затем такая "вырезка" заполняется согласно установленному с помощью SetFillStyle или SetFillPattern образцу.
Ellipse (x,y:integer;al,a2,rX,rY:word) - процедура. Вычерчивает эллиптическую дугу радиусами гХ, rY от угла а1 до угла а2, координаты точки (х,у) задают центр эллипса.
Графические процедуры и функции для работы с цветом и палитрой:
SetBkColor (f:word) - процедура. Переменная f устанавливает фоновый цвет.
SetCoIor (f:word) - процедура. Переменная f устанавливает текущий цвет.
Графические процедуры и функции работы с текстом:
OutText (str: string) - процедура. С позиции курсора выводится строка str. Автоматической переверстки строк не производится. Шрифт устанавливается с помощью процедур SctTextJustify, SetTextStyle, SetUserCharSize.
