Otevřít hlavní menu

Circle

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.