Změny

Skočit na navigaci Skočit na vyhledávání

PieSlice

Přidáno 741 bajtů, 4. 10. 2012, 16:29
Created page with "Nakreslí a vyplní kruhovou výseč. ;Deklarace procedure PieSlice(X, Y: Integer; StAngle, EndAngle, Radius: Word); ;Režim :Reálný, Chráněný ;Poznámky :(X,Y) je st..."
Nakreslí a vyplní kruhovou výseč.

;Deklarace
procedure PieSlice(X, Y: Integer; StAngle, EndAngle, Radius: Word);

;Režim
:Reálný, Chráněný

;Poznámky
:(X,Y) je střed. Výseč začíná v úhlu StAngle a končí v EndAngle.

;Viz také
:[[Arc]]

:[[Circle]]

:[[Ellipse]]

:[[GetArcCoords]]

:[[GetAspectRatio]]

:[[SetFillPattern]]

:[[SetFillStyle]]

:[[SetGraphBufSize]]


Vzorový příklad

{Pieslice.PAS}
{Vzorový příklad pro proceduru PieSlice.}
uses Graph;
const Radius = 30;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
PieSlice(100, 100, 0, 270, Radius);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]

Navigační menu