Правила форума
FillEllipse (процедура) (модуль Graph)Язык:
Русский
English
FillEllipse (процедура) (модуль Graph)
Рисует закрашенный эллипс (или круг, если радиусы одинаковы).
Объявление
Procedure FillEllipse(X, Y : Integer; XRadius, YRadius : Word)
Режим
Real, Protected
Замечания
Точка (X, Y) — центр эллипса, XRadius и YRadius — горизонтальный и вертикальный радиусы, соответственно. Закраска идёт стилем и цветом, определёнными обращением к процедуре SetFillStyle.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры FillEllipse }
uses Graph;
const R = 30;
var
Driver, Mode : Integer;
Xasp, Yasp : Word;
begin
{ Инициализируем графику }
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP'); { Путь к 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.
const R = 30;
var
Driver, Mode : Integer;
Xasp, Yasp : Word;
begin
{ Инициализируем графику }
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP'); { Путь к 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.
::
::
::
