Дуги, окружности, эллипсы

При использовании процедур Arc, Ellipse, PieSlice углы отсчитываются против часовой стрелки и указываются в градусах. Нулевой угол соответствует горизонтальному направлению вектора слева направо. Например, 0 градусов соответствует 3 часам, 90 градусов - 12 часам и т.д.

ARC(X,Y:integer;StAngle,EndAngle,R:word) процедура изображе­ния дуги окружности текущего цвета, где

X,Y - координаты центра;

StAngle - начальный угол;

EndAngle - конечный угол;

R - радиус дуги.

Если начальный угол равен 0, а конечный 360 градусов, на экране будет нарисована окружность.

Информация о последнем вызове Arc может быть получена с помощью процедуры GetArcCoords см. раздел 3.2

Circle(X,Y:integer;R:word) - процедура изображения окружности с центром в точке X,Y радиуса R текущим цветом. Линия всегда сплошная. Процедура выводит правильную окружность ( с учетом коэффициента сжатия изображения ), поэтому параметр R определяет количество пикселей в горизонтальном направлении.

PieSlice(X,Y:integer; StAngle,EndAngle,R:word) - процедура вывода на экран заштрихованного сектора окружности, с центром X,Y. Сектор изображается от начального угла - StAngle, до конечного - EndAngle.

Ellipse(X,Y:integer; StAngle,EndAngle,RX,RY:word) - процедура изображения части эллипса от начального до конечного угла (StAngle) и (EndAngle). При этом центр эллипса находится в точке с координатами X,Y и горизонтальными вертикальными полуосями RX и RY соответственно. При начальном угле равном 0, а конечном 360 будет изображен полный эллипс.

FillEllipse(X,Y:integer;RX,RY:word) - процедура вывода заштрихованного эллипса с центром в точке X,Y, с горизонтальной RX и вертикальной RY полуосями.

Sector(X,Y:integer; StAngle,EndAngle,RX,RY:word) - процедура вывода заштрихованного эллипсного сектора. Все параметры аналогичны параметрам в процедуре Ellipse.

Пример. Вывод всех рассмотренных геометрических фигур.

Uses Graph,Crt;

var

x,y,Driver,Mode:Integer;

begin

Driver:=Detect;

InitGraph(Driver,Mode,'c:\bin\tp');

SetColor(2);

x:=50; y:=50;

OutText(' Circle Ellipse Arc');

Circle(x,y,40);

SetColor(3);

Ellipse(x*3,y,0,360,30,20);

SetColor(1);

Arc(x*6,y,0,180,40);

MoveTo(0,y*2);

OutText(' PieSlice FillEllipse Sector');

PieSlice(x,y*3,0,270,40);

FillEllipse(x*3,y*3,30,20);

Sector(x*6,y*3,0,270,40,30);

readln;

CloseGraph

end.