| 245 | // Convert polar to rectangular coordinates. |
| 246 | |
| 247 | void PolToRec(real a, real r, real *x, real *y) |
| 248 | { |
| 249 | if (a == 0.0) |
| 250 | a = rSmall; |
| 251 | *x = r*RCos(a); |
| 252 | *y = r*RSin(a); |
| 253 | } |
| 254 | |
| 255 | |
| 256 | // Convert rectangular to spherical coordinates. |