Иллюстрированный самоучитель по Turbo Pascal для начинающих

Процедуры и функции графического режима

Arc

Синтаксис:

procedure Arc(x,у: integer; УголНачала, УголКонца: integer; Радиус: integer);

Действие:

Вычерчивает дугу с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты начальной и конечной точек линии дуги, которая вычерчивается против часовой стрелки от начальной точки к конечной.

Угловые координаты задаются в градусах. Значение угловой координаты возрастает против часовой стрелки. Параметр Радиус задает радиус дуги.

Дуга вычерчивается цветом, заданным процедурой setcolor.

Bar

Синтаксис:

procedure Bar(x1,y1,x2,y2: integer);

Действие:

Вычерчивает закрашенный прямоугольник. Параметры x1 и y1 задают положение левого верхнего угла прямоугольника, х2 и у2 – правого нижнего. Используемый стиль и цвет заливки задается Процедурой SetFillStyle.

Bar3D

Синтаксис:

procedure Bar3D(x1,y1,x2,y2: integer; Глубина: word; Граница: boolean);

Действие:

Вычерчивает параллелепипед. Параметры x1 и y1 задают положение левого верхнего, а х2 и у2 – правого нижнего угла ближней грани параллелепипеда. Параметр глубина задает расстояние между передней и задней гранями. Параметр граница определяет, нужно ли вычерчивать верхнюю границу задней грани параллелепипеда.

Цвет и стиль закраски ближней грани параллелепипеда можно задать при помощи процедуры setmistyie, цвет линий границы – процедурой setcolor.

Circle

Синтаксис:

procedure Circle(х,у: integer; r: word);

Действие:

Вычерчивает окружность радиуса г с центром в точке с координатами (х,у).

Цвет окружности можно задать при помощи процедуры Setcolor.

DetectGraph

Синтаксис:

DetectGraph(var Драйвер, Режим: integer);

Действие:

Проверяет графический адаптер и определяет, какой графический драйвер и режим используются.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.