1 files changed, 62 insertions, 0 deletions
diff --git a/abs/cart2sph.pd b/abs/cart2sph.pd
new file mode 100644
index 0000000..b2f084a
--- /dev/null
+++ b/abs/cart2sph.pd
@@ -0,0 +1,62 @@
+#N canvas 437 75 639 390 10;
+#X obj 259 82 inlet z;
+#X text 63 26 convert cartesian to spherical coordinates;
+#X obj 99 82 inlet x;
+#X obj 179 82 inlet y;
+#X obj 99 351 outlet r;
+#X obj 199 351 outlet phi;
+#X obj 279 351 outlet theta;
+#X obj 99 125 unpack 0 0 0;
+#X text 263 136 r=sqrt(x^2+y^2+z^2);
+#X text 263 158 phi=atan2(y \, x);
+#X text 262 179 theta=atan2(z \, sqrt(x^2+y^2));
+#X obj 99 170 *;
+#X obj 199 325 atan2;
+#X obj 279 331 atan2;
+#X obj 99 325 sqrt;
+#X obj 279 270 sqrt;
+#X obj 99 299 +;
+#X obj 99 150 t f f f;
+#X obj 138 191 *;
+#X obj 138 171 t f f f;
+#X obj 99 220 +;
+#X obj 99 245 t f f;
+#X obj 192 169 *;
+#X obj 192 149 t f f f;
+#X obj 279 292 pack;
+#X obj 199 271 pack;
+#X msg 199 298 \$2 \$1;
+#X msg 279 312 \$2 \$1;
+#X obj 99 105 pack \$1 \$2 \$3;
+#X text 464 24 part of zexy;
+#X connect 0 0 28 2;
+#X connect 2 0 28 0;
+#X connect 3 0 28 1;
+#X connect 7 0 17 0;
+#X connect 7 1 19 0;
+#X connect 7 2 23 0;
+#X connect 11 0 20 0;
+#X connect 12 0 5 0;
+#X connect 13 0 6 0;
+#X connect 14 0 4 0;
+#X connect 15 0 24 0;
+#X connect 16 0 14 0;
+#X connect 17 0 11 0;
+#X connect 17 1 11 1;
+#X connect 17 2 25 0;
+#X connect 18 0 20 1;
+#X connect 19 0 18 0;
+#X connect 19 1 18 1;
+#X connect 19 2 25 1;
+#X connect 20 0 21 0;
+#X connect 21 0 16 0;
+#X connect 21 1 15 0;
+#X connect 22 0 16 1;
+#X connect 23 0 22 0;
+#X connect 23 1 22 1;
+#X connect 23 2 24 1;
+#X connect 24 0 27 0;
+#X connect 25 0 26 0;
+#X connect 26 0 12 0;
+#X connect 27 0 13 0;
+#X connect 28 0 7 0;