Gewusst wie: bestimmen den Winkel von X 1, Y1, X 2, Y2 reisen musste.
Relativen Winkel
Zeichnen einer Linie vom 100, 100, 200, bedeutet 200, dass du bist
dehnte Ihre Linie bei 135 Grad.
Diese Funktion bestimmt, dass Winkel.
Funktion RelativeAngle (X 1, Y1, X 2, Y2: Integer): Integer;
var
Theta: Verlängert;
XDist,
YDist: Integer;
beginnen
Ergebnis: = 0;
ARCTAN((Y2-Y1)/(x2-x1))
XDist: = X 2-X 1;
YDist: = Y1 - Y2;
Wenn (XDist = 0) und (YDist = 0) beenden;
Wenn YDist = 0 then
Theta: = arctan((X2-X1))
sonst
Theta: = arctan((X2-X1)/(Y1-Y2));
Ergebnis: = Round(RadToDeg(Theta));
Wenn (X 2 > = X 1) und (Y2 > = Y1) dann //Quadrant = 2
Ergebnis: = 90+(90-Abs(Result))
sonst
Wenn (X 2 < = X 1) und (Y2 > = Y1) dann //Quadrant = 3
Ergebnis: = 180 + Ergebnis
sonst
Wenn (X 2 < = X 1) und (Y2 < = Y1) dann //Quadrant = 4
Ergebnis: = 270+90-Abs(Result);
Ende;
Relativen Winkel
Relativen Winkel : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Gewusst wie: bestimmen den Winkel von X 1, Y1, X 2, Y2 reisen musste.
Relativen Winkel
Zeichnen einer Linie vom 100, 100, 200, bedeutet 200, dass du bist
dehnte Ihre Linie bei 135 Grad.
Diese Funktion bestimmt, dass Winkel.
Funktion RelativeAngle (X 1, Y1, X 2, Y2: Integer): Integer;
var
Theta: Verlängert;
XDist,
YDist: Integer;
beginnen
Ergebnis: = 0;
ARCTAN((Y2-Y1)/(x2-x1))
XDist: = X 2-X 1;
YDist: = Y1 - Y2;
Wenn (XDist = 0) und (YDist = 0) beenden;
Wenn YDist = 0 then
Theta: = arctan((X2-X1))
sonst
Theta: = arctan((X2-X1)/(Y1-Y2));
Ergebnis: = Round(RadToDeg(Theta));
Wenn (X 2 > = X 1) und (Y2 > = Y1) dann //Quadrant = 2
Ergebnis: = 90+(90-Abs(Result))
sonst
Wenn (X 2 < = X 1) und (Y2 > = Y1) dann //Quadrant = 3
Ergebnis: = 180 + Ergebnis
sonst
Wenn (X 2 < = X 1) und (Y2 < = Y1) dann //Quadrant = 4
Ergebnis: = 270+90-Abs(Result);
Ende;