Процедура FillEllipse

Модуль GRAPH

Рисует закрашенный эллипс.

Объявление:

Procedure FillEllipse(X, Y : Integer; XRadius, YRadius : Word) 

Режим:

 Protected,  Real

Замечание:

Точка (X, Y) - центр эллипса, XRadius и YRadius - горизонтальный и вертикальный радиусы соответственно. Закраска идет стилем и цветом, определенными обращением к процедуре SetFillStyle.

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

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

Пример:

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

Uses Graph;

Const R = 30;

Var Driver, Mode : Integer;
      Xasp, Yasp : Word;
Begin
 { Инициализируем графику }
 Driver:=Detect;
 InitGraph(Driver, Mode, '');
 If GraphResult < 0 Then Halt(1);
 { Рисуем и закрашиваем эллипс }
 FillEllipse(GetMaxX Div 2, GetMaxY Div 2, 50, 50);
 GetAspectRatio(Xasp, Yasp);
 { Эллипс в виде окружности }
 FillEllipse(R, R, R, R * Longint(Xasp) Div Yasp);
 ReadLn;
 CloseGraph;
End.