Кроме процедур, которые заставляют Паскаль что-либо сделать, в модуле 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, то – с верхом. |