Method code for $math.rectangular_spherical()

[Turn on line numbering]

---

arg coords;
var a, d;

a = atan2(coords[2], coords[1]);
if (a < 0)
    a += pi2;
return [(d = .distance(coords, origin_3d)), a, atan2(coords[3], .distance(coords.subrange(1, 2), origin_2d))];

---

// Miroslav Silovic
// Created 19-Oct-1996 as a part of ColdCore, see: @help Credit