Дополнительные процедуры и функции модуля Graph

Кроме процедур, которые заставляют Паскаль что-либо сделать, в модуле Graphимеются функции, которые могут сообщать программисту ту или иную информацию. Вот некоторые из них:

Функция Смысл
GetMaxX:Integer Выдает максимально возможную горизонтальную координату экрана
GetMaxY:Integer Выдает максимально возможную вертикальную координату экрана
GetPixel(x,y :Integer) :Word Выдает номер цвета пиксела с координатами x и y.

А вот еще процедуры рисования:

Процедура Смысл
Arc(x,y :Integer; fi1,fi2,r :Word) Рисует дугу окружности с центром в точке x,y и радиусом r. Дуга начинается от угла fi1 градусов и кончается углом fi2 градусов.
PieSlice(x,y :Integer; fi1,fi2,r :Word) Закрашенный сектор круга. Дуга сектора определяется так же, как в процедуре Arc. Цвет и стиль заливки определяются процедурой SetFillStyle.
FillEllipse(x,y :Integer; rx,ry :Word) Закрашенный эллипс с центром в точке x,y и радиусами rx,ry. Цвет и стиль заливки определяются процедурой SetFillStyle.
Sector(x,y :Integer; fi1,fi2,rx,ry :Word) Закрашенный сектор эллипса. Опирается на дугу эллипса с центром в точке x,y и радиусами rx,ry. Дуга начинается от угла fi1 градусов и кончается углом fi2 градусов.
Bar(x1,y1, x2,y2:Integer) Закрашенный прямоугольник с противоположными углами в точках (x1,y1) и (x2,y2)
Bar3D(x1,y1, x2,y2:Integer; tol:Word; top:Boolean) Трехмерный параллелепипед, обращенный к нам прямоугольной гранью с противоположными углами в точках (x1,y1) и (x2,y2). Толщина параллелепипеда – tol. Если top равно TopOff, то параллелепипед – без верха, если top равно TopOn, то – с верхом.