Количество пикселов на экране может отличаться от указанного. Для определения размерности экрана используются функции GetMaxX и GetMaxY. Эти функции возвращают, соответственно, максимальную координату по горизонтали и максимальную координату по вертикали.
В приведенном фрагменте программы переменным x и y присваиваются координаты центра экрана:
1 2 3 4 5 6 7 8 9 10 11 12 |
uses Graph; var x, y : integer; . . . BEGIN . . . x:=GetMaxX div 2; y:=GetMaxY div 2; . . . END. |
Рассмотрим кратко основные процедуры и функции модуля Graph.
ClerDevice – очищает экран и устанавливает начальные значения графических праметров;
SetColor (c) – устанавливает цвет выводимого изображения, c – номер заданного цвета (см. табл. 2.1);
SetBkColor (c) – устанавливает цвет фона, c – номер заданного цвета;
PutPixel(x,y,c) – закрашивает пиксел с координатами (x,y) цветом с номером c;
MoveTo(x,y) – перемещает текущий указатель в точку с координатами (x,y);
LineTo(x,y) – проводит прямую из точки, где находится указатель в точку с координатами (x,y) текущим цветом. Текущий указатель перемещается в точку (x,y);
Line(x1,y1,x2,y2) – проводит прямую из точки (x1,y1) в точку (x2,y2) текущим цветом. Положение текущего казателя не изменяется;
Rectangle(x1,y1,x2,y2) – рисует прямоугольник с координатами (x1,y1) – верхний левый угол, и (x2,y2) – нижний правый угол;
Bar(x1,y1,x2,y2) – рисует закрашенный прямоугольник с координатами (x1,y1) – верхний левый угол, и (x2,y2) – нижний правый угол, используя установленный цвет закраски;
Circle(x,y,r) – рисует окружность с центром в точке (x,y) радиусом r текущим цветом;
OutText(text) – выдает на экран строку text, начиная с текущей позиции указателя. Текущий указатель при этом перемещается в конец строки;
OutTextXY(x,y,text) — выдает на экран строку text, начиная с точки (x,y). Положение текущего указателя не изменяется.
Модуль Graph содержит также некоторые другие процедуры и функции, описание которых мы не рассматриваем. Для их изучения рекомендуется обратиться к специальной литературе.