fillelps.pas
Пример программы для процедуры FillEllipse.
Код примера
{Fillelps.PAS}
{ Пример программы для процедуры FillEllipse }
Uses Graph;
Const R = 30;
Var Driver, Mode : Integer;
Xasp, Yasp : Word;
Begin
{ Инициализируем графику }
Driver:=Detect;
InitGraph(Driver, Mode, 'C:\BP\BGI'); { Путь к BGI-драйверам }
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.
Скачать fillelps.pas