#N canvas 413 152 930 452 10;
#X obj 47 27 inlet~;
#X obj 113 372 *~;
#X obj 503 372 *~;
#X obj 456 68 f \$1;
#X obj 456 39 loadbang;
#X obj 456 91 t a a a a;
#X obj 341 113 inlet~;
#X obj 128 261 expr~ max(min(max(min(($v1-$f2+$f3)/max($f3 \, 1e-6)
\, 1) \, 0)+max(min(($v1-$f2-$f3)/-max($f3 \, 1e-6) \, 1) \, 0)-1 \,
1) \, 0);
#X obj 518 261 expr~ max(min(max(min(($v1-$f2+$f3)/max($f3 \, 1e-6)
\, 1) \, 0)+max(min(($v1-$f2-$f3)/-max($f3 \, 1e-6) \, 1) \, 0)-1 \,
1) \, 0);
#X text 587 19 arg #1: width:;
#X text 637 79 in result \,;
#X text 657 119 -width/2 ~ width/2 -> cross fading;
#X obj 113 401 outlet~;
#X obj 503 401 outlet~;
#X obj 456 160 * -0.5;
#X obj 490 130 * 0.5;
#X obj 128 297 *~ 0.125;
#X obj 518 297 *~ 0.125;
#X text 168 343 sin~/cos~ input is NOT in radians! read help file;
#X text 168 363 equal power == using 3dB curve \, for ex. sin/cos;
#X text 657 139 +width/2 ~ width*(1.5) -> right fade-out;
#X text 607 39 -width*(1.5) ~ width/2 => left fade-in/out;
#X text 607 59 -width/2 ~ width*(1.5) => right fade-in/out;
#X text 657 99 -width*(1.5) ~ -width/2 -> left fade-in;
#X obj 128 320 -~ 0.25;
#X obj 128 343 cos~;
#X obj 518 343 cos~;
#X obj 518 320 -~ 0.25;
#X text 578 317 sin~ is NOT part of pd vanilla!;
#X text 578 337 [sin~] ==> [-~ 0.25]--[cos~];
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 1 0 12 0;
#X connect 2 0 13 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 14 0;
#X connect 5 1 7 2;
#X connect 5 2 15 0;
#X connect 5 3 8 2;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 16 0;
#X connect 8 0 17 0;
#X connect 14 0 7 1;
#X connect 15 0 8 1;
#X connect 16 0 24 0;
#X connect 17 0 27 0;
#X connect 24 0 25 0;
#X connect 25 0 1 1;
#X connect 26 0 2 1;
#X connect 27 0 26 0;