Процедура Ellipse

Модуль GRAPH

Рисует дугу эллипса.

Объявление:

Procedure Ellipse(X, Y : Integer; StAngle, EndAngle : Word;
                                    XRadius, YRadius : Word);

Режим:

Real, Protected

Замечание:

Рисует дугу из начального угла StAngle к конечному углу EndAngle, используя параметры XRadius и YRadius, как радиусы эллипса, и значения X и Y, как координаты центра.

Ограничения:

Нужно быть в графическом режиме.

Пример:

{Пример программы для процедуры Ellipse}

Uses Graph;

Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 Ellipse(100, 100, 0, 360, 30, 50);
 Ellipse(100, 100, 0, 180, 50, 30);
 ReadLn;
 CloseGraph;
End.