FillEllipse

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

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.