Построение дуг, эллипсов и окружностей. презентация

дуги.
Здесь х,у: integer -центр окружности дуги, а1, а2:word -
начальный и конечный углы, отсчитываемые от
горизонтальной оси против часовой стрелки, r: word -
радиус. Если а1=0 градусов, а2=360 градусов, то
вычерчивается полная окружность.

(x,y)

r

a1

a2

процедура построения
эллипса. Здесь - х,у:integer центр эллипса, а1,а2: word -
начальный и конечный углы, отсчитываемые от
горизонтальной оси против часовой стрелки, rx,ry: word -
горизонтальная и вертикальная полуоси. Если а1=0 град.,
а2=360 градусов, то вычерчивается полный эллипс.
Если углы не 0 и 360 - вычерчивается дуга эллипса.

(х,у)

r1

r2

Процедура FillEllipse(x,y,rx,ry) - строит полный закрашенный
эллипс. Процедура Sector( x, y, a1, a2, rx, ry) -строит
закрашенный сектор эллипса.

построения окружности.
Здесь х,у: integer - центр окружности, r: word -радиус.
Окружность рисуется цветом, заданным процедурой
Setcolor.

(x,y)

r

Процедура PieSlice( x, y, a1, a2, r) - выводит на экран закрашенный
сектор круга. Контур круга рисуется рабочим цветом. Внутренняя
часть круга закрашивается шаблоном и цветом, установленным
процедурой SetFillStyle. Если а1=0 град., а2-360 градусов, то
рисуется закрашенная окружность.