FillEllipse

Nakreslí vyplněnou elipsu.

Deklarace

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

Režim

Reálný, Chráněný

Poznámky

(X, Y) je střed, a XRadius a YRadius jsou horizontální, resp. vertikální osy.

Omezení

Je nutno být v grafickém režimu.

Viz také

Arc

Circle

Ellipse

GetArcCoords

GetAspectRatio

PieSlice

Vzorový příklad

{Fillelps.PAS}
{Vzorový příklad pro proceduru FillEllipse.}
uses Graph;
const R = 30;
var
  Driver, Mode: Integer;
  Xasp, Yasp: Word;
begin
  Driver := Detect;   { Přepnutí do grafického režimu }
  InitGraph(Driver, Mode, ' ');
  if GraphResult < 0 then
    Halt(1);
  { Nakreslení elipsy }
  FillEllipse(GetMaxX div 2, GetMaxY div 2, 50, 50);
  GetAspectRatio(Xasp, Yasp);
  { Kruhová elipsa }
  FillEllipse(R, R, R, R * Longint(Xasp) div Yasp);
  Readln;
  CloseGraph;
end.