Вывод отрезков прямых линий

Перед выводом изображения необходимо задать цвет линии, её толщину и тип. Эту задачу решают, используя процедуру SetLineStyle модуля Graph, формат обращения к которой имеет вид:

SetLineStyle (Type, Pattern, Thickness);

Здесь Type, Pattern и Thickness – переменные типа word.

Переменная Type может принимать пять значений, определяемых константами модуля Graph:

const

SolidLn= 0; (* Сплошная линия *)

DotteLn= 1; (* Точечная линия *)

CenterLn = 2; (* Штрихпунктирная линия *)

DasheLn= 3; (* Пунктирная линия *)

UserBitLn = 4; (* Узор линии определяет программист *)

Переменную Pattern (образец) используют, если задан тип UserBitLn, определяемый программистом. Параметр Pattern задаёт отрезок линии длиной в 16 пикселей, который периодически повторяется на протяжении всей линии. Каждый бит, приравненный к единице, соответствует светящемуся пикселу в этом отрезке линии.

Параметр Thickness может принимать одно из двух значений:

NormWidth =1; – толщина линии равна одному пикселю,

ThickWidth = 3; – толщина линии равна трём пикселям.

Установленный тип линии используется в дальнейшем при вычерчивании не только прямых, но и кривых фигур.

Процедура SetBkColor (color: word) модуля Graph устанавливает цвет фона, который по умолчанию чёрный. Переменная color может принимать 16 значений, определяемых константами цвета, входящими в модуль Graph:

Процедура SetColor (color: word) модуля Graph устанавливает цвет, которым будет осуществляться рисование линий, точек и т.д.

Процедура Line (x1, y1, x2, y2: integer) модуля Graph рисует линию от точки с графическими координатами x1, y1 до точки с графическими координатами x2, y2. Линия вычерчивается текущим стилем и текущим цветом. Положение указателя после вывода линии остаётся неопределённым, т.е. не обязательно сохраняется в конечной точке x2, y2 линии.

ПроцедураLineRel (dx, dy: integer) модуля Graph рисует линию от текущего местоположения указателя к точке, заданной приращением графических координат dx и dy.

ПроцедураLineTo (x, y: integer) модуля Graph рисует линию от местоположения текущего указателя к точке с графическими координатами x, y.