Построение дуг, эллипсов и окружностей.
1. Построение дуг. Arc(x, y, a1, a2, r) - процедура построения дуги. Здесь х,у: integer -центр окружности дуги, а1, а2:word - начальный и конечный углы, отсчитываемые от горизонтальной оси против часовой стрелки, r: word - радиус. Если а1=0 градусов, а2=360 градусов, то вычерчивается полная окружность. (x,y) r a1 a2
2. Построение эллипса. Ellipse( x, y, a1, a2, rx, ry) - процедура построения эллипса. Здесь - х,у:integer центр эллипса, а1,а2: word - начальный и конечный углы, отсчитываемые от горизонтальной оси против часовой стрелки, rx,ry: word - горизонтальная и вертикальная полуоси. Если а1=0 град., а2=360 градусов, то вычерчивается полный эллипс. Если углы не 0 и вычерчивается дуга эллипса. (х,у) r1 r2 Процедура FillEllipse(x,y,rx,ry) - строит полный закрашенный эллипс. Процедура Sector( x, y, a1, a2, rx, ry) -строит закрашенный сектор эллипса.
3. Построение окружности. Circle ( x, y, r ) - процедура построения окружности. Здесь х,у: integer - центр окружности, r: word -радиус. Окружность рисуется цветом, заданным процедурой Setcolor. (x,y) r Процедура PieSlice( x, y, a1, a2, r) - выводит на экран закрашенный сектор круга. Контур круга рисуется рабочим цветом. Внутренняя часть круга закрашивается шаблоном и цветом, установленным процедурой SetFillStyle. Если а1=0 град., а2-360 градусов, то рисуется закрашенная окружность.