1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Arc
,Created page with "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..."
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.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;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.
[[Category:Graph]]
[[Category:Procedúry Graph]]
