kollabs/fadecurve.pd

#N canvas 87 101 860 610 10;
#X text 492 542 (c)2012 Marian Weger;
#X obj 16 396 tabread4 \$1;
#X obj 94 541 outlet;
#N canvas 774 81 317 328 init 0;
#X obj 54 -61 loadbang;
#X obj 157 51 float \$2;
#X obj 157 73 sel 0;
#X msg 157 95 100;
#X obj 54 51 list prepend \$1;
#X obj 54 103 list append;
#X obj 54 -9 t b b;
#X obj 54 143 list append \$3;
#X msg 54 168 \; \$1 bounds 1 1 \$2 0 \; \$1/resolution \$2 \; \$1/quality
\$3 \;;
#X obj 119 -61 r \$1/loadbang;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 5 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 6 1 1 0;
#X connect 7 0 8 0;
#X connect 9 0 6 0;
#X coords 0 328 1 327 85 60 0;
#X restore 490 331 pd init;
#X obj 382 241 s \$1/shape;
#X obj 430 219 s \$1/weight;
#X obj 479 197 s \$1/resolution;
#X obj 246 421 + 1;
#X obj 152 443 tabread \$1;
#X obj 246 443 tabread \$1;
#X text 19 30 fadecurve <name> <resolution> <quality>;
#X obj 527 177 s \$1/quality;
#X obj 139 175 r \$1/quality;
#N canvas 466 47 586 541 demux 0;
#X obj 64 99 inlet;
#X obj 451 99 inlet;
#X obj 64 227 spigot 1;
#X obj 166 429 outlet;
#X obj 64 429 outlet;
#X obj 166 227 spigot 0;
#X obj 211 181 == 1;
#X obj 331 181 == 2;
#X obj 286 429 outlet;
#X obj 286 227 spigot 0;
#X obj 406 429 outlet;
#X obj 406 227 spigot 0;
#X obj 406 400 + 1;
#X obj 307 325 - 1;
#X obj 406 378 * 99;
#X obj 286 400 + 1;
#X obj 286 378 * 99;
#X obj 166 400 + 1;
#X obj 166 378 * 99;
#X obj 307 273 r \$1/resolution;
#X obj 307 295 clip 10 10000;
#X obj 109 181 <= 0;
#X obj 451 181 >= 3;
#X connect 0 0 2 0;
#X connect 0 0 5 0;
#X connect 0 0 9 0;
#X connect 0 0 11 0;
#X connect 1 0 6 0;
#X connect 1 0 7 0;
#X connect 1 0 21 0;
#X connect 1 0 22 0;
#X connect 2 0 4 0;
#X connect 5 0 18 0;
#X connect 6 0 5 1;
#X connect 7 0 9 1;
#X connect 9 0 16 0;
#X connect 11 0 14 0;
#X connect 12 0 10 0;
#X connect 13 0 14 1;
#X connect 13 0 16 1;
#X connect 13 0 18 1;
#X connect 14 0 12 0;
#X connect 15 0 8 0;
#X connect 16 0 15 0;
#X connect 17 0 3 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 13 0;
#X connect 21 0 2 1;
#X connect 22 0 11 1;
#X restore 94 297 pd demux;
#X obj 109 396 tabread \$1;
#X obj 109 344 + 0.5;
#X obj 109 366 int;
#X obj 341 443 wrap;
#X obj 227 396 t f f f;
#X obj 139 229 int;
#X obj 225 175 r \$1/weight;
#X obj 225 207 > 0;
#X obj 139 271 *;
#X obj 225 229 t b f;
#X obj 94 133 clip 0 1;
#N canvas 221 88 964 756 curve-calculation 0;
#X obj 87 350 until;
#X obj 87 379 f;
#X obj 127 379 + 1;
#X obj 87 322 t f b;
#X msg 127 350 0;
#X obj 328 104 t b f;
#X obj 51 1233 tabwrite \$1;
#X obj 237 466 - 1;
#X obj 166 550 / 99;
#X obj 87 152 f 0;
#X obj 328 79 f 0;
#X obj 166 466 moses 100;
#X obj 87 401 t f f;
#X msg 51 608 0;
#X obj 127 446 moses 2;
#X obj 114 229 + 3;
#X obj 87 297 f 103;
#X msg 81 608 1;
#X obj 166 488 - 1;
#X obj 193 784 s \$0-linear;
#X obj 260 1117 r \$0-linear;
#X obj 166 1143 expr ($f1*$f3) + ($f2*(1.0-$f3));
#X obj 166 608 t b f;
#X obj 166 909 f 0;
#X obj 87 178 t b f;
#X obj 166 992 list append;
#X obj 166 941 pack 0 0 0 0 0;
#X obj 487 646 f 0;
#X obj 543 433 moses 0;
#X obj 797 469 moses 1;
#X obj 543 469 moses -1;
#X obj 502 520 * -1;
#X obj 621 596 + 1;
#X obj 878 520 - 1;
#X obj 612 701 pack 0 0 0 0 0;
#X obj 836 572 + 2;
#X obj 797 520 * -1;
#X obj 797 596 + 1;
#X obj 543 520 + 2;
#X msg 758 596 0;
#X msg 723 596 0;
#X msg 689 596 0;
#X msg 652 596 0;
#X obj 502 572 - 1;
#X obj 588 596 * -1;
#X obj 836 520 * -1;
#X obj 166 1016 unpack 0 0 0 0 0 0 0 0 0 0;
#X obj 166 1058 *;
#X obj 201 1058 *;
#X obj 236 1058 *;
#X obj 271 1058 *;
#X obj 307 1058 *;
#X obj 166 1084 expr $f1+$f2+$f3+$f4+$f5;
#X obj 442 572 max 2;
#X obj 487 362 t b f;
#X obj 234 608 unpack 0 0 0 0 0;
#X obj 201 738 spigot;
#X obj 224 718 spigot;
#X obj 247 698 spigot;
#X obj 270 678 spigot;
#X obj 294 658 spigot;
#X obj 612 723 s \$0-weight-list;
#X obj 229 969 r \$0-weight-list;
#X obj 234 581 r \$0-weight-list;
#X obj 878 596 min 1;
#X obj 836 596 max 0;
#X obj 502 596 min 1;
#X obj 543 596 max 0;
#X obj 17 34 r \$1/shape;
#X obj 337 904 expr pow($f1 \, $f2);
#X obj 337 814 expr sin($f1*1.570796326794897);
#X obj 87 34 r \$1/resolution;
#X obj 87 56 t b f;
#X obj 198 152 clip 10 10000;
#X obj 328 34 r \$1/weight;
#X obj 328 56 clip 0 1;
#X msg 141 274 resize \$1;
#X obj 141 297 s \$1;
#X obj 114 251 t f f;
#X obj 198 178 t f f f;
#X obj 337 784 expr 1.0-pow(1.0-$f1 \, $f2);
#X obj 337 874 expr 1.0-cos($f1*1.570796326794897);
#X obj 337 844 expr pow(sin($f1*1.570796326794897) \, 2);
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 12 0;
#X connect 2 0 1 1;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 1 1;
#X connect 5 0 9 0;
#X connect 5 1 21 2;
#X connect 7 0 8 1;
#X connect 8 0 22 0;
#X connect 9 0 24 0;
#X connect 10 0 5 0;
#X connect 11 0 18 0;
#X connect 11 1 17 0;
#X connect 12 0 14 0;
#X connect 12 1 6 1;
#X connect 13 0 6 0;
#X connect 14 0 13 0;
#X connect 14 1 11 0;
#X connect 15 0 78 0;
#X connect 16 0 3 0;
#X connect 17 0 6 0;
#X connect 18 0 8 0;
#X connect 20 0 21 1;
#X connect 21 0 6 0;
#X connect 22 0 23 0;
#X connect 22 1 19 0;
#X connect 22 1 60 0;
#X connect 22 1 59 0;
#X connect 22 1 58 0;
#X connect 22 1 57 0;
#X connect 22 1 56 0;
#X connect 23 0 26 0;
#X connect 24 0 16 0;
#X connect 24 1 54 0;
#X connect 25 0 46 0;
#X connect 26 0 25 0;
#X connect 27 0 34 0;
#X connect 28 0 30 0;
#X connect 28 1 29 0;
#X connect 29 0 34 3;
#X connect 29 0 36 0;
#X connect 29 0 40 0;
#X connect 29 1 33 0;
#X connect 29 1 39 0;
#X connect 29 1 45 0;
#X connect 29 1 53 0;
#X connect 30 0 31 0;
#X connect 30 0 38 0;
#X connect 30 0 42 0;
#X connect 30 1 41 0;
#X connect 30 1 44 0;
#X connect 30 1 32 0;
#X connect 31 0 43 0;
#X connect 31 0 53 0;
#X connect 32 0 34 2;
#X connect 33 0 64 0;
#X connect 34 0 61 0;
#X connect 35 0 65 0;
#X connect 36 0 37 0;
#X connect 37 0 34 2;
#X connect 38 0 67 0;
#X connect 39 0 34 2;
#X connect 39 0 34 1;
#X connect 39 0 27 1;
#X connect 40 0 34 1;
#X connect 40 0 27 1;
#X connect 40 0 34 4;
#X connect 41 0 34 3;
#X connect 41 0 27 1;
#X connect 41 0 34 4;
#X connect 42 0 34 2;
#X connect 42 0 34 3;
#X connect 42 0 34 4;
#X connect 43 0 66 0;
#X connect 44 0 34 1;
#X connect 45 0 35 0;
#X connect 46 0 47 0;
#X connect 46 1 48 0;
#X connect 46 2 49 0;
#X connect 46 3 50 0;
#X connect 46 4 51 0;
#X connect 46 5 47 1;
#X connect 46 6 48 1;
#X connect 46 7 49 1;
#X connect 46 8 50 1;
#X connect 46 9 51 1;
#X connect 47 0 52 0;
#X connect 48 0 52 1;
#X connect 49 0 52 2;
#X connect 50 0 52 3;
#X connect 51 0 52 4;
#X connect 52 0 21 0;
#X connect 53 0 69 1;
#X connect 53 0 80 1;
#X connect 54 0 27 0;
#X connect 54 1 28 0;
#X connect 55 0 56 1;
#X connect 55 1 57 1;
#X connect 55 2 58 1;
#X connect 55 3 59 1;
#X connect 55 4 60 1;
#X connect 56 0 80 0;
#X connect 57 0 70 0;
#X connect 58 0 82 0;
#X connect 59 0 81 0;
#X connect 60 0 69 0;
#X connect 62 0 25 1;
#X connect 63 0 55 0;
#X connect 64 0 34 4;
#X connect 65 0 34 3;
#X connect 66 0 27 1;
#X connect 67 0 34 1;
#X connect 68 0 9 0;
#X connect 69 0 26 4;
#X connect 70 0 26 1;
#X connect 71 0 72 0;
#X connect 72 0 9 0;
#X connect 72 1 73 0;
#X connect 73 0 79 0;
#X connect 74 0 75 0;
#X connect 75 0 10 0;
#X connect 76 0 77 0;
#X connect 78 0 16 1;
#X connect 78 1 76 0;
#X connect 79 0 15 0;
#X connect 79 1 11 1;
#X connect 79 2 7 0;
#X connect 80 0 23 1;
#X connect 81 0 26 3;
#X connect 82 0 26 2;
#X coords 0 756 1 755 85 60 0;
#X restore 490 351 pd curve-calculation;
#N canvas 0 22 290 330 resize 0;
#X obj 80 100 r \$0-resolution;
#X obj 80 124 + 3;
#X obj 80 148 list prepend \$1;
#X msg 80 176 \; \$1 resize \$2 \;;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X restore 490 371 pd resize;
#X obj 152 470 expr ($f1*(1.0-$f3)) + ($f2*$f3);
#X obj 382 101 inlet control;
#X obj 94 101 inlet;
#X obj 382 133 route shape weight resolution quality vis;
#X obj 593 401 r \$1/vis;
#X obj 593 423 t b;
#X msg 593 445 vis 1;
#X obj 576 157 s \$1/vis;
#X obj 593 467 s pd-\$1;
#X obj 490 401 table \$1 100;
#X connect 1 0 2 0;
#X connect 7 0 9 0;
#X connect 8 0 27 0;
#X connect 9 0 27 1;
#X connect 12 0 19 0;
#X connect 13 0 2 0;
#X connect 13 1 15 0;
#X connect 13 2 18 0;
#X connect 13 3 1 0;
#X connect 14 0 2 0;
#X connect 15 0 16 0;
#X connect 16 0 14 0;
#X connect 17 0 27 2;
#X connect 18 0 8 0;
#X connect 18 1 7 0;
#X connect 18 2 17 0;
#X connect 19 0 22 0;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 22 0 13 1;
#X connect 23 0 22 0;
#X connect 23 1 22 1;
#X connect 24 0 13 0;
#X connect 27 0 2 0;
#X connect 28 0 30 0;
#X connect 29 0 24 0;
#X connect 30 0 4 0;
#X connect 30 1 5 0;
#X connect 30 2 6 0;
#X connect 30 3 11 0;
#X connect 30 4 34 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 35 0;
#X coords 0 610 1 609 85 60 0;