/*
Angle returns the angle between the origin (x0, y0) and a point (x1, y1).
The angle will be a number in degrees between 0 and 359
*/
proc/Angle (x0, y0, x1, y1)
{
    var/quadrant_modifier = 0
    var/list/vector1 = list(x1-x0, y1-y0)
    var/list/vector2
    if(vector1[2] < 0)
    {
        vector2 = list(-1,0)
        quadrant_modifier = 180
    }
    else vector2 = list(1,0)
    var/angle = (arccos (Dot_Product (vector1, vector2) / (Magnitude (vector1) * Magnitude (vector2)))) + quadrant_modifier
    return angle
}

/*
Dot_Product performs an equation from vector calculus. This equation is
essential for determining the angle between two vectors.
*/
proc/Dot_Product (vector1[2], vector2[2])
{
    var/product = (vector1[1] * vector2[1]) + (vector1[2] * vector2[2])
    return product
}

/*
Magnitude determines the magnitude of a vector. Magnitude is essential
for determining the angle between two vectors
*/
proc/Magnitude (vector[2])
{
    return sqrt((vector[1]**2)+(vector[2]**2))
}