FillEllipse: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(Created page with "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...") |
m (1 revízia: Unit Graph) |
(Žádný rozdíl)
|
Aktuální verze z 4. 10. 2012, 17:01
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
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.