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.