GetArcCoords

Umožní uživateli zjistit souřadnice posledního příkazu Arc.

Deklarace

procedure GetArcCoords(var ArcCoords: ArcCoordsType);

Režim

Reálný, Chráněný

Poznámky

GetArcCoords vrací proměnnou typu ArcCoordsType. GetArcCoords vrací proměnnou obsahující střed (X, Y), počáteční pozici (Xstart, Ystart) a koncovou pozici (Xend ,Yend) posledního příkazu Arc nebo Ellipse.

Tyto hodnoty jsou užitečné, pokud chcete na konec oblouku navázat jinou čárou.

Omezení

Je nutno být v grafickém režimu.

Viz také

Arc

Circle

Ellipse

PieSlice

Vzorový příklad

{Getarccd.PAS}
{Vzorový příklad pro proceduru GetArcCoords.}
uses Graph;
var
  Gd, Gm: Integer;
  ArcCoords: ArcCoordsType;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Arc(100, 100, 0, 270, 30);
  GetArcCoords(ArcCoords);
  with ArcCoords do
    Line(Xstart, Ystart, Xend, Yend);
  Readln;
  CloseGraph;
end.