Circle
Verze z 4. 10. 2012, 16:11, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (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
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.
