Hvordan bestemme vinkelen trengte å reise fra X1, Y1 til X2, Y2.Relative anglesDrawing en linje fra 100, 100 til 200, ville 200 bety at du aredrawling din linje 135 degrees.This funksjon bestemmer at angle.function RelativeAngle (X1, Y1, X2, Y2: Integer): Integer; Var Theta: Utvidet; XDist, YDist: Integer; begynne Resultat: = 0; //arctan ((y2-y1) /(x2-x1)) XDist: = X2 - X1; YDist: = Y1 - Y2; if (XDist = 0) og (YDist = 0) og avslutter; hvis YDist = 0, så Theta: = arctan ((X2-X1)) else Theta: = arctan ((X2-X1) /(Y1-Y2)); Resultat: = Round (RadToDeg (Theta)); if (X2 > = X1) og (Y2 > = Y1) deretter //Quadrant = 2 Resultat: = 90 + (90-Abs (resultater)) else if (X2 < = X1) og (Y2 > = Y1) deretter //Quadrant = 3 Resultat: = 180 + Resultat else if (X2 < = X1) og (Y2 < = Y1) deretter //Quadrant = 4 Resultat: = 270 + 90-Abs (Resultat); end;