1.4. Цвета.
Процедура
Procedure SetColor (Color: Word);
устанавливает текущий цвет Color для выводимых линий и символов. В модуле Graph определены точно так же те константы для задания цвета, как и в модуле Сrt.
Функция
Function GetColor:Word
возвращает код текущего цвета, а функция
Function GetMaxColor:Word
возвращает максимально доступный код цвета, который можно использовать для обращения к функции SetColor.
Процедура
Procedure SetBkColor (Color:Word)
устанавливает цвет фона, а функция
Function GetBkColor:Word
возвращает значение, соответствующее текущему цвету фона.
Процедура
Procedure ClearDevice;
заполняет экран цветом фона, а графический указатель устанавливает в левый верхний угол экрана.
1.5. Линии и точки.
Процедура
Procedure PutPixel (X,Y: Integer): Word
выводит точку с координатами X, Y цветом Color.
Функция
Procedure GetPixel (X,Y: Integer): Word
возвращает значение, соответствующее цвету пиксела с координатами (X,Y).
Процедура
Procedure Line (X1, Y1, X2, Y2:: Integer);
вычерчивает линию с координатами начала (X1,Y1) и конца (X2,Y2). Линия вычерчиваетcя текущим стилем (смотри далее) и текущим цветом
Процедура
Procedure LineTo(X,Y: Integer);
вычерчивает линию от текущего положения указателя до положения, заданного его новыми координатами (X,Y). Aналогичным образом,
Процедура
Procedure LineRel(dX,dY: Integer);
вычерчивает линию от текущего положения указателя до положения, заданного приращением его новыми координатами. В процедурах LineTo и LineRel линия вычерчивается текущим стилем и текущим цветом.
Процедура
Procedure SetLineStyle (Type, Pattern, Thick:Word);
устанавливает новый стиль вычерчивания линий. Тип линии Type может быть задан с помощью одной из следующих констант:
Const
Solidln = 0; {Сплошная линия}
Dottedln = 1; {Точечная линия}
Centerln = 2; {Штрихпунктирная линия}
Dashedln = 3; {Пунктирная линия}
UserBittn = 4; {Узор линии определяется пользователем}
Параметр Pattern учитывается только для линий, вид которых определяется пользователем (т.е. Type=UserBitln).
Толщина линий Thick может быть задана одним из двух значений:
Const
NormWidth = 1; {Толщина в один пиксель}
ThickWidth = 3; {Толщина в три пикселя}
Установленный процедурой SetLineStyle стиль линий используется также при построении прямоугольников, и других фигур.
1.6. Многоугольники.
Процедура
Procedure Rectаngle( X1,Y1,X2,Y2: Integer );
вычерчивает прямоугольник с координатами левого верхнего угла (X1,Y1) и правого нижнего угла (X2,Y2).Прямоугольник вычерчивается с использованием текущего цвета и текущего стиля линий.
Процедура
Procedure DrawPoly(N:Word;var Points);
вычерчивает произвольную ломаную линию, заданную координатами точек излома. Здесь:
N – количество точек излома, включая обе крайние точки,
Points – одномерный массив из элементов типа PointType, описанного в модуле Graph следующим образом:
Type
PointType = Record
x,y:Word;
При вычерчивании используется текущий цвет и текущий стиль линии.
1.7. Дуги, окружности, эллипсы.
Процедура
Procedure Circle( X,Y: Integer; R: Word );
вычерчивает окружность с центром в точке (X,Y) и радиусом R. Окружность выводится текущим цветом. Толщина линии устанавливается текущим стилем, вид линии всегда SolidLine (сплошная).
Процедура
Procedure Arc (X,Y: Integer; BegA, EndA, RX, RY:Word);
Чертит дугу окружности. Здесь X,Y – координаты центра; BegA, EndA – соответственно начальный и конечный углы дуги; R - радиус. Углы отсчитываются против часовой стрелки, указываются в градусах. Нулевой угол соответствует горизонтальному направлению вектора слева направо. На рисунке 5.2 изображены дуги с углами 0 и 90, а также 270 и 540 градусов.
Процедура
Procedure Ellipse (X,Y: Integer; BegA, EndA, RX, RY:Word);
вычерчивает дугу. Здесь X,Y – координаты центра; BegA, EndA – соответственно начальный и конечный углы дуги; RX,RY – горизонтальный и вертикальный радиусы эллипса в пикселях. При вычерчивании дуги эллипса используются те же соглашения относительно линий, что и в процедуре Circle, и те же соглашения относительно углов, что и в процедуре Arc.