add a new curve

svn path=/trunk/abstractions/nusmuk/; revision=11310

1 files changed, 55 insertions, 0 deletions

diff --git a/puremapping/curve_circle.pd b/puremapping/curve_circle.pd
new file mode 100644
index 0000000..8c28619
--- /dev/null
+++ b/puremapping/curve_circle.pd
@@ -0,0 +1,55 @@
+#N canvas 316 130 527 415 10;
+#X obj 65 15 inlet;
+#X obj 195 15 inlet;
+#X obj 65 303 outlet;
+#X obj 111 188 pow 2;
+#X obj 111 228 -;
+#X msg 111 208 1 \$1;
+#X obj 111 248 pow;
+#X msg 195 170 1 \$1;
+#X obj 195 190 /;
+#X msg 111 148 1 \$1;
+#X obj 111 168 -;
+#X obj 255 86 tan;
+#X obj 255 66 * 1.5708;
+#X obj 65 106 moses 0;
+#X obj 65 129 abs;
+#X obj 65 188 pow 2;
+#X obj 65 228 -;
+#X msg 65 208 1 \$1;
+#X obj 65 248 pow;
+#X msg 65 148 1 \$1;
+#X obj 65 168 -;
+#X obj 65 269 * -1;
+#X obj 195 41 moses 0.5;
+#X obj 195 66 * 2;
+#X obj 195 137 f;
+#X connect 0 0 13 0;
+#X connect 1 0 22 0;
+#X connect 3 0 5 0;
+#X connect 4 0 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 2 0;
+#X connect 7 0 8 0;
+#X connect 8 0 6 1;
+#X connect 8 0 18 1;
+#X connect 9 0 10 0;
+#X connect 10 0 3 0;
+#X connect 11 0 24 0;
+#X connect 12 0 11 0;
+#X connect 13 0 14 0;
+#X connect 13 1 9 0;
+#X connect 14 0 19 0;
+#X connect 15 0 17 0;
+#X connect 16 0 18 0;
+#X connect 17 0 16 0;
+#X connect 18 0 21 0;
+#X connect 19 0 20 0;
+#X connect 20 0 15 0;
+#X connect 21 0 2 0;
+#X connect 22 0 23 0;
+#X connect 22 1 12 0;
+#X connect 23 0 24 0;
+#X connect 24 0 7 0;
+#X connect 24 0 3 1;
+#X connect 24 0 15 1;