Линии и прямоугольники

Для вывода линий и прямоугольников в модуле Graph имеются несколько процедур.

Процедура Line

Функция: рисует прямую линию из точки (x1, y1) в точку (x2, y2).

Описание: Line (x1, y1, x2, y2).

Примечания: Толщина и тип линии задаются процедурой SetLineStyle, а цвет линии устанавливается процедурой SetColor.

Пример программы:

Program Examp_5;

Программа рисует линии в точках, выбираемых случайным образом, пока не нажата любая клавиша. Поэкспериментируйте с процедурой SetLineStyle, изменяя в ней тип линии, толщину линии (см. таблицу).

Процедура Rectangle

Функция: рисует прямоугольник, используя текущий цвет и тип строки.

Описание: Rectangle (x1, y1, x2, y2).

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

Пример программы:

Examp_6;

Программа рисует 6 прямоугольников, расположенных горизонтально.

Процедура Bar

Функция: рисует закрашенный прямоугольник.

Описание: Bar (x1, y1, x2, y2).

Описание: Рисуется закрашенный столбец, что можно использовать, например, в гистограммах. При этом используется образец и цвет закраски с помощью процедур SetFilllStyle и SetFillPattern.

Пример программы:

Program Examp_7.

Программа рисует 11 прямоугольников с различными стилями заполнения.

Процедура Bar3D

Описание: Bar3D(x1, y1, x2, y2: Integer,

глубина: Word;, вершина: Boolean).

Примечания: Рисуется заполненный трехмерный параллелепипед. При этом используется тип и цвет закраски, заданные с помощью процедур SetFillStyle и SetFillPattern. Трехмерный контур переллелепипеда вычерчивается тем цветом и типом линии, которые установлены процедурами SetLineStyle и SetColor, Параметр "глубина" представляет собой число элементов изображения, задающих глубину трехмерного контура. Если переменная, указанная в качестве параметра "вершина" принимает истинное значение (True), то для параллелепипеда рисуется трехмерная вершина, в противном случае вершина не рисуется (что позволяет рисовать несколько параллелепипедов, расположенных один на другом). Типичный параметр глубины можно вычислить, взяв за основу 25% ширины параллелепипеда:

Bar3D (x1, y1, x2, y2, (x2-x1) div 4, TopOn).

Пример программы:

Program Examp_8;