Method code for $math.spherical_rectangular()

[Turn on line numbering]

---

arg coords;
var r, phi, theta, r1;

r = coords[1];
phi = coords[2];
theta = coords[3];
r1 = r * cos(theta);
return [r1 * cos(phi), r1 * sin(phi), r * sin(theta)];

---

["// Various Contributors, including: Miroslav Silovic, Bruce Mitchner, Nolan, Sean R. Lynch, Technobunny", "// Created 19-Oct-1996 as a part of ColdCore, see: @help Credit"]