Method code for $math.rectangular_cylindrical()

[Turn off line numbering]

---

  1: arg coords;
  2: var a;
  3: 
  4: a = atan2(coords[2], coords[1]);
  5: if (a < 0)
  6:     a += pi2;
  7: return [.distance(coords.subrange(1, 2), origin_2d), a, coords[3]];

---

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