diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2007-04-17 05:25:46 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2007-04-17 05:25:46 +0000 |
| commit | 271bd5960eb6d11edb21ed7070dc92cbb4aa48a6 (patch) | |
| tree | e14a3909c98c2393b83389a0f51649e8bf4812b5 /simplified_cubic_seat.pd | |
| parent | 9326d1df4dde05b6ce826d87dd9feef78b3fcb4b (diff) | |
went on a curve binge at the Patching Circle. I also discovered that Cyrille's breakpoint_smooth is the same as elliptic.pd
svn path=/trunk/externals/mapping/; revision=7571
Diffstat (limited to 'simplified_cubic_seat.pd')
| -rw-r--r-- | simplified_cubic_seat.pd | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/simplified_cubic_seat.pd b/simplified_cubic_seat.pd new file mode 100644 index 0000000..87bf333 --- /dev/null +++ b/simplified_cubic_seat.pd @@ -0,0 +1,36 @@ +#N canvas 515 141 585 467 12; +#X obj 42 10 inlet; +#X obj 349 13 inlet; +#X obj 106 405 outlet; +#X obj 220 10 loadbang; +#X obj 147 9 inlet; +#X obj 147 50 purepd/float_argument \$1; +#X obj 349 54 purepd/float_argument \$2; +#X obj 42 113 moses; +#X obj 349 110 -; +#X msg 349 87 1 \$1; +#X obj 7 199 expr $f3*$f1 + (1-$f3)*$f2*(1 - pow(1 - $f1/$f2 \, 3)) +; +#X obj 147 97 moses 1; +#X obj 147 121 + 1e-06; +#X text 202 106 prevent divide by 0; +#X obj 152 275 expr $f3*$f1 + (1-$f3)*($f2 + (1-$f2)*pow(($f1-$f2) +/ (1-$f2) \, 3)); +#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 11 0; +#X connect 6 0 9 0; +#X connect 7 0 10 0; +#X connect 7 1 14 0; +#X connect 8 0 10 2; +#X connect 8 0 14 2; +#X connect 9 0 8 0; +#X connect 10 0 2 0; +#X connect 11 0 12 0; +#X connect 12 0 10 1; +#X connect 12 0 14 1; +#X connect 14 0 2 0; |