Изграждане на кръгове, елипси и дъги Free Pascal

Анкета последните координати на дъгата на кръг или елипса

Точката с координати (х, у) определя центъра на кръг или елипса. Тъй като стойностите на координатите са SMALLINT вид, те могат да бъдат отрицателни. Това предполага, че центърът може да се намира извън графичен дисплей, но видимата част на съответния mye очертанията ще бъде изтеглен само в областта на екрана. Ъгъл a1 определя началото на дъгата и се дава в градуси, които се отчитат от

посока х-ос на часовниковата стрелка. Ъгъл а2 определя крайната точка на дъгата (строителството винаги се извършва от А1 до А2). И двата ъгли трябва да са не-отрицателен (Word тип стойност). Позволени комбинации a1> а2 или a1

За радиус елипса или дъга дефинирани два съответстващи полуремаркета оси на елипсата насочена по координатните оси.

С процедура GetArcCoords за определяне на координатите на граничните точки на последната построена дъгата или окръжността. Аргументът на тази процедура е името на ArcCoordsType тип запис:

Типове ArcCoordsType = запис

х: SMALLINT; // X координата на център Y: SMALLINT; // Y координата на центъра

xstart: SMALLINT; // X координата на старта на ystart дъгата: SMALLINT; // Y координата на началото на дъга xend: SMALLINT; // X координата на край yend на дъгата: SMALLINT; // Y координата на края на дъгата

Пример строителство кръг и елипсовидни дъги показани на Фиг. 15.7 е получено от програмата в Обявата 15.6.

Обявата 01 май 0.6. Според Отстраняване д носа около Rouge са ТН, д л и IPS и др HS

програма arc_crc_ell; използва графика;

GD, г: SMALLINT; започвам

GD: = D8bit; г: = m800x600; initgraph (GD, г "); Кръг (100,100,40); Line (100100200100); Line (100,100,180,20); Arc (100,100,0,45,75);

Arc (100,100,45,360,80); Елипса (300,100,0,360,90,60); Елипса (300,100,0,45,95,65); Line (300100420100); Line (300,100,380,20);

Фиг. 15.7. Изграждане на дъги, окръжности и елипси