Otevřít hlavní menu

Kreslí kruhový oblouk od počátečního úhlu ke koncovému úhlu.

Deklarace
procedure Arc (X,Y; Integer; StAngle, EndAngle, Radius; Word);
Režim
Reálný, Chráněný
Poznámky
Arc kreslí oblouk kolem středu (X,Y) s poloměrem Radius. Oblouk začíná v úhlu StAngle a končí v úhlu EndAngle, kreslí se aktuální barvou.
Omezení
Je nutno být v grafickém režimu.
Viz také
Circle
Ellipse
GetArcCoords
GetAspectRatio
PieSlice


Vzorový příklad

{Arc.PAS}
{Vzorový příklad pro proceduru Arc .}
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
    Arc(100, 100, 0, 90, Radius * 10);
  Readln;
  CloseGraph;
end.