Дуги, окружности, эллипсы - Работа с языком Турбо Паскаль

Процедура Circle. Вычерчивает окружность.

Заголовок:

Procedure Circle(X, Y: Integer; R: Word);

Здесь X, Y - координаты центра; R - радиус в пикселях.

Окружность выводится текущим цветом. Толщина линии устанавливается текущим стилем, вид линии всегда SolidLn(Сплошная). Процедура вычерчивает правильную окружность с учетом изменения линейного размера радиуса в зависимости от его направления относительно сторон графического экрана, т. е. с учетом коэффициента GetAspectRatio. В связи с этим параметр R определяет количество пикселей в горизонтальном направлении.

Процедура Arc. Чертит дугу окружности.

Заголовок:

Procedure Arc(X, Y: Integer; BegA, EndA, R: Word);

Здесь X, Y - координаты центра; BegA, EndA - соответственно начальный и конечный углы дуги; R - радиус.

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

Нулевой угол соответствует горизонтальному направлению вектора слева направо. Если задать значения начального угла 0 и конечного - 359, то будет выведена полная окружность. При вычерчивании дуги окружности используется те же соглашения относительно линии радиуса, что и в процедуре Circle.

Процедура Ellipse. Вычерчивает эллипсную дугу.

Заголовок:

Procedure Ellipse(X, Y: Integer; BegA, EndA, Rx, RY: Word);

Здесь X, Y - координаты центра; BegA, EndA - соответственно начальный и конечный углы дуги; RX, RY - горизонтальный и вертикальный радиусы эллипса в пикселях.

При вычерчивании дуги эллипса используется те же соглашения относительно линии, что и в процедуре Circle, ите же соглашения относительно углов, что и в процедуре Arc. Если радиусы согласовать с учетом масштабного коэффициента GetAspectRatio, будут вычерчена правильная окружность.

Похожие статьи




Дуги, окружности, эллипсы - Работа с языком Турбо Паскаль

Предыдущая | Следующая