lots of curves inspired by Golan Levin's processing shapers

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

1 files changed, 48 insertions, 0 deletions

diff --git a/logistic_sigmoid.pd b/logistic_sigmoid.pd
new file mode 100644
index 0000000..11c52f9
--- /dev/null
+++ b/logistic_sigmoid.pd
@@ -0,0 +1,48 @@
+#N canvas 564 83 610 403 10;
+#X obj 42 10 inlet;
+#X obj 168 349 outlet;
+#X obj 426 21 loadbang;
+#X obj 353 20 inlet;
+#X obj 353 61 purepd/float_argument \$1;
+#X obj 353 113 expr 1/(1-$f1) - 1;
+#X obj 353 158 expr 1 / (1 + exp($f1));
+#X text 340 157 B;
+#X text 340 111 a;
+#X text 28 177 A;
+#X obj 42 175 expr 1 / (1 + exp(0 - (($f1 - 0.5) * $f2 * 2)));
+#X obj 407 191 expr 1 / (1 + exp(0 - $f1));
+#X text 395 191 C;
+#X obj 168 292 expr ($f1 - $f2)/($f3 - $f2);
+#N canvas 0 22 466 316 constrain 0;
+#X obj 71 17 inlet;
+#X obj 107 229 outlet;
+#X obj 71 169 bang;
+#X text 151 169 constrain to >0;
+#X obj 71 149 moses 0.0001;
+#X msg 71 190 0.0001;
+#X obj 71 66 moses 1;
+#X text 120 66 constraing to <1;
+#X obj 110 86 bang;
+#X msg 110 107 0.9999;
+#X connect 0 0 6 0;
+#X connect 2 0 5 0;
+#X connect 4 0 2 0;
+#X connect 4 1 1 0;
+#X connect 5 0 1 0;
+#X connect 6 0 4 0;
+#X connect 6 1 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 4 0;
+#X restore 353 89 pd constrain to 0<x<1;
+#X connect 0 0 10 0;
+#X connect 2 0 4 0;
+#X connect 3 0 4 0;
+#X connect 4 0 14 0;
+#X connect 5 0 6 0;
+#X connect 5 0 10 1;
+#X connect 5 0 11 0;
+#X connect 6 0 13 1;
+#X connect 10 0 13 0;
+#X connect 11 0 13 2;
+#X connect 13 0 1 0;
+#X connect 14 0 5 0;