1 578
editací
Změny
Created page with "Nakreslí kruh, přičemž jako střed použije (X, Y). ;Deklarace procedure Circle(X,Y: Integer; Radius: Word); ;Režim :Reálný, Chráněný ;Poznámky :Kruh je kreslen..."
Nakreslí kruh, přičemž jako střed použije (X, Y).
;Deklarace
procedure Circle(X,Y: Integer; Radius: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Kruh je kreslen v aktuální barvě, nastavené procedurou [[SetColor]]. Každý grafický řídící program (driver) obsahuje korekční poměr (aspect ratio), používaný procedurami [[Circle]], [[Arc]] a [[PieSlice]].
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[Arc]]
:[[Ellipse]]
:[[GetArcCoords]]
:[[GetAspectRatio]]
:[[PieSlice]]
Vzorový příklad
{Circle.PAS}
{Vzorový příklad pro proceduru Circle.}
uses Graph;
var
Gd, Gm: Integer;
Radius: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
for Radius := 1 to 5 do
Circle(100, 100, Radius * 10);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure Circle(X,Y: Integer; Radius: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Kruh je kreslen v aktuální barvě, nastavené procedurou [[SetColor]]. Každý grafický řídící program (driver) obsahuje korekční poměr (aspect ratio), používaný procedurami [[Circle]], [[Arc]] a [[PieSlice]].
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[Arc]]
:[[Ellipse]]
:[[GetArcCoords]]
:[[GetAspectRatio]]
:[[PieSlice]]
Vzorový příklad
{Circle.PAS}
{Vzorový příklad pro proceduru Circle.}
uses Graph;
var
Gd, Gm: Integer;
Radius: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
for Radius := 1 to 5 do
Circle(100, 100, Radius * 10);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]