renamed my [curve] to [sinusoid] since it only handles those kind of curves; Cyrille's [_curve] is now [curve], but with the curve shape 2nd inlet opterating over a range of 0-to-1

svn path=/trunk/externals/mapping/; revision=4550

1 files changed, 56 insertions, 34 deletions

diff --git a/curve.pd b/curve.pd
index 8d09a66..7c4d919 100644
--- a/curve.pd
+++ b/curve.pd
@@ -1,34 +1,56 @@
-#N canvas 12 269 577 490 10;
-#X obj 50 36 inlet;
-#X obj 165 34 inlet;
-#X obj 165 57 symbol;
-#X obj 47 411 outlet;
-#X obj 50 150 pack float symbol;
-#X msg 50 175 \$2 \$1;
-#X obj 39 256 atan;
-#X obj 123 260 cos;
-#X obj 152 260 sin;
-#X obj 188 273 print [curve];
-#X msg 189 251 ERROR: argument not supported \$1;
-#X obj 194 96 symbol_argument \$1;
-#X obj 51 100 * 3.14159;
-#X obj 39 277 / 1.26263;
-#X obj 50 198 route atan cos sin;
-#X obj 190 225 symbol;
-#X connect 0 0 12 0;
-#X connect 1 0 2 0;
-#X connect 2 0 4 1;
-#X connect 4 0 5 0;
-#X connect 5 0 14 0;
-#X connect 6 0 13 0;
-#X connect 7 0 3 0;
-#X connect 8 0 3 0;
-#X connect 10 0 9 0;
-#X connect 11 0 4 1;
-#X connect 12 0 4 0;
-#X connect 13 0 3 0;
-#X connect 14 0 6 0;
-#X connect 14 1 7 0;
-#X connect 14 2 8 0;
-#X connect 14 3 15 0;
-#X connect 15 0 10 0;
+#N canvas 709 238 508 486 10;
+#X obj 106 325 pow 1;
+#X obj 62 10 inlet;
+#X obj 357 9 inlet;
+#X obj 106 405 outlet;
+#X obj 271 243 exp;
+#X msg 287 177 2;
+#X obj 287 198 log;
+#X obj 271 221 *;
+#X obj 62 248 moses 0;
+#X obj 62 283 * -1;
+#X obj 62 325 pow 1;
+#X obj 62 352 * -1;
+#X obj 257 30 loadbang;
+#X obj 257 50 any_argument \$1;
+#X obj 257 70 route float;
+#X obj 257 155 t f b;
+#N canvas 784 233 470 320 process 0;
+#X obj 96 30 inlet;
+#X obj 132 283 outlet;
+#X obj 97 100 moses 0;
+#X obj 96 128 * -1;
+#X obj 96 180 * -1;
+#X obj 96 69 * 2;
+#X obj 142 128 pow 3;
+#X obj 96 153 pow 3;
+#X text 22 4 this is just a guess \, there is probably a better formula
+for this.;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 2 1 6 0;
+#X connect 3 0 7 0;
+#X connect 4 0 1 0;
+#X connect 5 0 2 0;
+#X connect 6 0 1 0;
+#X connect 7 0 4 0;
+#X restore 257 117 pd process curve value;
+#X connect 0 0 3 0;
+#X connect 1 0 8 0;
+#X connect 2 0 13 1;
+#X connect 4 0 0 1;
+#X connect 4 0 10 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 1;
+#X connect 7 0 4 0;
+#X connect 8 0 9 0;
+#X connect 8 1 0 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 3 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 16 0;
+#X connect 15 0 7 0;
+#X connect 15 1 5 0;
+#X connect 16 0 15 0;