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