diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2007-04-10 05:38:15 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2007-04-10 05:38:15 +0000 |
| commit | 3739ef59d6ffde0f8833626b8fee143a26470e9f (patch) | |
| tree | 4a3e9740036c841cc4836c75b5e9882fcdb743ce /elliptic_sigmoid.pd | |
| parent | fa15d34df1b8e89fa4847912684ec8400ed0a812 (diff) | |
lots of curves inspired by Golan Levin's processing shapers
svn path=/trunk/externals/mapping/; revision=7553
Diffstat (limited to 'elliptic_sigmoid.pd')
| -rw-r--r-- | elliptic_sigmoid.pd | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/elliptic_sigmoid.pd b/elliptic_sigmoid.pd new file mode 100644 index 0000000..afd8093 --- /dev/null +++ b/elliptic_sigmoid.pd @@ -0,0 +1,32 @@ +#N canvas 150 221 565 447 10; +#X obj 62 10 inlet; +#X obj 327 9 inlet; +#X obj 106 405 outlet; +#X obj 240 10 loadbang; +#X obj 167 9 inlet; +#X obj 167 50 purepd/float_argument \$1; +#X obj 327 50 purepd/float_argument \$2; +#X obj 74 113 moses; +#X obj 167 97 moses 1; +#X obj 167 118 + 1e-06; +#X text 217 104 prevent divide by 0; +#X obj 7 199 expr $f3 * (1 - (sqrt(pow($f2 \, 2) - pow($f1 \, 2)) / +$f2)); +#X obj 152 275 expr $f3 + ( ((1 - $f3)/(1 - $f2)) * sqrt(pow(1 - $f2 +\, 2) - pow($f1 - 1 \, 2)) ); +#X connect 0 0 7 0; +#X connect 1 0 6 0; +#X connect 3 0 5 0; +#X connect 3 0 6 0; +#X connect 4 0 5 0; +#X connect 5 0 7 1; +#X connect 5 0 8 0; +#X connect 6 0 11 2; +#X connect 6 0 12 2; +#X connect 7 0 11 0; +#X connect 7 1 12 0; +#X connect 8 0 9 0; +#X connect 9 0 11 1; +#X connect 9 0 12 1; +#X connect 11 0 2 0; +#X connect 12 0 2 0; |