Построение дуг, эллипсов и окружностей

Процедура Arc(X,Y:integer; a1, a2,R:word); строит дугу. Здесь X,Y – центр окружности дуги, a1, a2 – начальный и конечный углы, отсчитываемые от горизонтальной оси против часовой стрелки, R – радиус. Если a1=00, а a2=3600, то вычерчивается полная окружность.

Процедура Ellipse(X,Y:integer; a1,a2,Rx,Ry:word); предназначена для построения эллиптических дуг. Здесь X,Y – центр эллипса, a1, a2 – начальный и конечный углы, отсчитываемые от горизонтальной оси против часовой стрелки, и Ry – горизонтальная и вертикальная полуоси. Если a1=00, а a2=3600, то вычерчивается полный эллипс.

Процедура FillEllipse(X,Y:integer; Rx,Ry:word);строит полный закрашенный эллипс.

Процедура Circle(X,Y:integer; R:word); выводит на экран изображение окружности с центром X,Y и радиусом R. Окружность рисуется цветом, заданным SetColor.

Процедура PieSlice(X,Y:integer; a1,a2,R:word); выводит на экран изображение закрашенного сектора круга, используя в качестве центра круга точку X,Y, начального угла a1, конечного угла a2 и радиуса R. Контур сектора высвечивается текущим цветом. При заполнении сектора используются шаблон и цвет, установленные процедурой SetFillStyle. Если a1=00, а a2=3600 то на экран выводится закрашенная окружность.

Процедура Sector(X,Y:integer; a1, a2,Rx,Ry:word); строит закрашенный сектор эллипса.