#N canvas 511 200 493 443 10; #X obj 29 49 inlet; #X obj 113 405 outlet~; #X obj 113 198 phasor~; #X obj 280 43 inlet; #X obj 31 94 t b f; #X msg 31 114 1; #X obj 45 135 -; #X text 77 113 invert so 1 = full power; #X obj 280 75 purepd/float_argument \$1 60; #X obj 113 172 sig~; #X obj 326 43 loadbang; #X text 43 11 after an idea from Roman Haefeli and Martin Peach; #X obj 113 226 expr~ $v1 > $v2; #X connect 0 0 4 0; #X connect 2 0 12 0; #X connect 3 0 8 0; #X connect 4 0 5 0; #X connect 4 1 6 1; #X connect 5 0 6 0; #X connect 6 0 12 1; #X connect 8 0 9 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 12 0 1 0;