Detecting the Mouse Angle - Easily - Page 3

Code

First step is to get the position of the objects:

Comment:   	get the origin position
Set Variable: 	"origin_x" = GetProperty ( "/origin",_x )
Set Variable: 	"origin_y" = GetProperty ( "/origin",_y)
Set Variable: 	"mouse_x" = GetProperty ( "/mouse_clip",_x )
Comment:   	get the mouse position
Set Variable: 	"mouse_y" = GetProperty ( "/mouse_clip",_y)
Set Variable: 	"dist_x" = mouse_x - origin_x
Set Variable: 	"dist_y" = mouse_y - origin_y

Second step is the determination of the normalisation factor, this is the sum of the absolute values of the distance (x and y) of the mouse from the origin:

Comment: set the normalisation factor
If (dist_x<0)
      Set Variable: "normalise" = -1*dist_x
Else
      Set Variable: "normalise" = dist_x
End If
If (dist_y<0)
      Set Variable: "normalise" = normalise + (-1*dist_y)
Else
      Set Variable: "normalise" = normalise + dist_y
End If