Окружности, эллипсы, дуги.

Процедура Circle

Функция: выводит окружность с центром в точке (x, y) и радиусом r.

Описание: Circle(x, y, r).

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

Program Examp_9;

Процедура Arc

Функция: Рисует дугу окружности от начального угла до конечного угла.

Описание: Arc(x, y, нач_угол, кон_угол, радиус).

Примечания: Рисует дугу окружности с центром (x, y) и радиусом "радиус". Дуга рисуется от начального угла ("нач_угол") до конечного угла ("кон_угол"). При этом используется текущий цвет. Начальный угол, равный 0⁰ и конечный угол, равный 360⁰, задают вычерчивание полной окружности.

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

Program Examp_10;

Процудура Ellipse

Рисует эллиптическую дугу от начального угла до конечного угла, используя (x, y) в качестве точки центра.

Описание:

Ellipse (x, y, нач_угол, кон_угол, радХ, радY).

Примечания: Процедура рисует эллиптическую дугу, используя (x, y), как точку центра, а "радХ", "радY" – как горизоньальную и вертикальную оси. Дуга эллипса вычерчивается от начального угла (параметр "нач_угол") до конечного угла (параметр "кон_угол") текущим цветом. Углы для процедур Arc, Ellipse и PieSlice задаются по направлению против часовой стрелки. При этом значение (в градусах) 0 соответствует 3 часам, 90 градусов – 12 часам и т.д.

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

Program Examp_11;

Процедура FillEllipse

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

Описание: FillEllipse (x, y, Xрадиус, Yрадиус).

Примечания: Используя точку с координатами (x, y) в качестве центра, а Храдиус и Yрадиус – в качестве горизонтальной и вертикальной осей, рисует закрашенный эллипс.

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

Program Examp_12;

Сектор

Процедура PieSlice

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

Описание: PieSlice(x, y, нач_угол, кон_угол, радиус).

Примечания: (x, y) используются в качестве центра окружности, а сектор рисуется от начального угла (параметр "нач_угол") до конечного угла ("параметр "кон_угол"). Контур сектора вычерчивается текущим цветом, а при закрашивании используются тип и цвет закраски, заданные процедурами SetFillStyle и SetFillPattern. Начальный угол, равный 0 градусов и конечный угол, равный 360 градусов, задают вычерчивание полной окружности.

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

Program Examp_13;

Процедура Sector

Функция: вычерчивает и заполняет эллиптический сектор.

Описание: Sector(x, y, нач_угол, кон_угол, Храдиус, Yрадиус).

Примечания: Процедура использует (x, y) как точку центра, параметры "Xрадиус" и Yрадиус" определяют горизонтальный и вертикальный радиусы. Сектор вычерчивается от начального угла (параметр "нач_угол") до конечного угла ("параметр "кон_угол"). Сектор рисуется текущим цветом и закрашивается с использованием образца закраски и цвета, заданных с помощью процедур SetFillStyle и SetFillPattern. Если задан начальный угол 0⁰ и конечный угол 360⁰, то будет нарисован и закрашен полный эллипс.

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

Program Examp_14;