1 files changed, 35 insertions, 0 deletions
diff --git a/abs/pol2cart.pd b/abs/pol2cart.pd
new file mode 100644
index 0000000..0a29882
--- /dev/null
+++ b/abs/pol2cart.pd
@@ -0,0 +1,35 @@
+#N canvas 437 75 457 368 10;
+#X obj 259 82 inlet z;
+#X text 295 169 z=z;
+#X obj 259 331 outlet z;
+#X obj 99 125 unpack 0 0 0;
+#X text 294 141 x=r*cos(phi);
+#X text 295 156 y=r*sin(phi);
+#X obj 99 82 inlet r;
+#X obj 179 82 inlet phi;
+#X obj 82 331 outlet x;
+#X obj 179 331 outlet y;
+#X obj 138 160 t f f;
+#X obj 138 184 cos;
+#X obj 168 184 sin;
+#X obj 82 201 t f f;
+#X obj 82 237 * 1;
+#X obj 112 236 * 0;
+#X text 63 26 convert polar to cartesian coordinates;
+#X obj 99 105 pack \$1 \$2 \$3;
+#X text 341 8 part of zexy;
+#X connect 0 0 17 2;
+#X connect 3 0 13 0;
+#X connect 3 1 10 0;
+#X connect 3 2 2 0;
+#X connect 6 0 17 0;
+#X connect 7 0 17 1;
+#X connect 10 0 11 0;
+#X connect 10 1 12 0;
+#X connect 11 0 14 1;
+#X connect 12 0 15 1;
+#X connect 13 0 14 0;
+#X connect 13 1 15 0;
+#X connect 14 0 8 0;
+#X connect 15 0 9 0;
+#X connect 17 0 3 0;