LlAtan2

De DigiWiki.

default
{
  state_entry()
  {
    float num1 = llFrand(100.0);
    float num2 = llFrand(100.0);
 
    llOwnerSay("y = " + (string)num1);
    llOwnerSay("x = " + (string)num2);
 
    llOwnerSay("The arctangent of y divided by x is " + (string)llAtan2(num1, num2));
  }
}

//Function with input of a vector determining the position of a target and returning
//a string with the literal compass-direction of that target towards your position
//by Ramana Sweetwater 2009/01, any use allowed license :-)
//corrected by Patrick Muggins
 
string compass (vector target) 
{
    vector source = llGetPos();
    list DIRS =["W","NW","N","NE","E","SE","S","SW","W"];
    integer index = llCeil(3.5 - (4 * llAtan2(target.y - source.y, target.x - source.x) / PI));
    return llList2String(DIRS, index);
}