1 578
editací
Změny
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..."
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.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;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.
[[Category:Graph]]
[[Category:Procedúry Graph]]