Angle of 2 points

[tyzer]

Can someone post me a function whicb returns an angle after I gave the function two X/Y coordinates.

The angle it should return should be in a specific format, guess this picture will explain it better

 

Till now I used this function which works in most cases but sometimes it returns in angle which leads to the opposite direction

expandcollapse popup

Func _CalcAngle($PosX, $PosY, $targetPosX, $targetPosY)
    If $PosX < $targetPosX And $PosY < $targetPosY Then
        $gegenkathete = $PosX - $targetPosX
        $ankathete = $PosY - $targetPosY
        $Quotient = $ankathete / $gegenkathete
        $x = ATan(0.5)
        $pi = 4 * ATan(1)
        $radToDeg = 180 / $pi
        $y = ATan($Quotient) * $radToDeg
        $y = $y + 90
        $y = $y - 180
        $y = $y * -1
        $y = $y - 180
        $y = $y * -1
        Return $y
    ElseIf $PosX < $targetPosX And $PosY > $targetPosY Then
        $gegenkathete = $PosX - $targetPosX
        $ankathete = $PosY - $targetPosY
        $Quotient = $ankathete / $gegenkathete
        $x = ATan(0.5)
        $pi = 4 * ATan(1)
        $radToDeg = 180 / $pi
        $y = ATan($Quotient) * $radToDeg
        $y = $y + 90
        $y = $y - 180
        $y = $y * -1
        $y = $y - 180
        $y = $y * -1
        Return $y
    ElseIf $PosX > $targetPosX And $PosY > $targetPosY Then
        $gegenkathete = $PosX - $targetPosX
        $ankathete = $PosY - $targetPosY
        $Quotient = $ankathete / $gegenkathete
        $x = ATan(0.5)
        $pi = 4 * ATan(1)
        $radToDeg = 180 / $pi
        $y = ATan($Quotient) * $radToDeg
        $y = $y + 90
        $y = $y - 180
        Return $y
    ElseIf $PosX > $targetPosX And $PosY < $targetPosY Then
        $gegenkathete = $PosX - $targetPosX
        $ankathete = $PosY - $targetPosY
        $Quotient = $ankathete / $gegenkathete
        $x = ATan(0.5)
        $pi = 4 * ATan(1)
        $radToDeg = 180 / $pi
        $y = ATan($Quotient) * $radToDeg
        $y = $y + 90
        $y = $y - 180
        Return $y
    EndIf
EndFunc

 

[tyzer]

[jchd]

"Angle between two points" is an unspecified problem.

Rephrase your question with "angle between two lines (or vectors)" and you'll get correct answers.

(Also upper 91 and 90 are badly placed in your drawing)

Edited March 20, 2017 by jchd

[Luigi]

see this,

 

[UEZ]

This might give you an idea:

 

 

[czardas]

On 20/03/2017 at 7:48 AM, jchd said:

"Angle between two points" is an unspecified problem.

180 degrees (*int)

Edited March 21, 2017 by czardas

[jchd]

What I mean is that, given only points A and B there are two very different angles one may consider.

The first is α the angle formed by vectors from the origin O to point A and to point B. The angle α doesn't depend on the length of vectors OA and OB as soon as A and B are distinct from O.
The second angle may be the angle γ between a reference direction (say North for instance) and the line AB.
Note that then B is moved to B' this angle becomes β while at the same time, α remains constant.

 

Edited March 21, 2017 by jchd

[czardas]

@jchd = best