Процедуры и функции графического режима
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);
Действие:
Проверяет графический адаптер и определяет, какой графический драйвер и режим используются.