#N canvas 0 22 650 492 10; #X obj 91 291 samphold~; #X obj 76 320 -~; #X obj 185 54 inlet; #X obj 76 406 +~ 2; #X obj 76 434 wrap~; #X obj 259 144 samplerate~; #X obj 259 175 expr 1/($f1/1000); #X obj 244 205 f; #X obj 244 251 vline~; #X obj 174 328 vline~; #X msg 174 298 \$1; #X obj 76 363 +~; #X obj 259 115 loadbang; #X obj 76 467 outlet~; #X msg 244 228 -1 0 0 \, 0 0 \$1; #X text 287 250 one-sample pulse; #X text 279 437 .mmb; #X obj 185 169 t f b; #X obj 76 54 inlet~; #X obj 185 82 expr if($f1>=0 \, modf($f1) \, 1-abs(modf($f1))); #X text 459 81 wrap; #N canvas 208 79 474 300 argument 1; #X obj 42 40 inlet~; #X obj 134 162 samphold~; #X obj 186 132 expr~ $v1==0; #X obj 133 63 sig~ \$1; #X obj 133 133 *~ -1; #X obj 134 185 +~ \$1; #X obj 43 221 +~; #X obj 43 251 outlet~; #X obj 187 111 *~; #X obj 254 42 inlet; #X msg 254 64 0 0 0 \, 1 0 \$1; #X obj 254 85 vline~; #X text 212 108 in case signal is already present on load.; #X connect 0 0 6 0; #X connect 0 0 8 0; #X connect 1 0 5 0; #X connect 2 0 1 1; #X connect 3 0 4 0; #X connect 4 0 1 0; #X connect 5 0 6 1; #X connect 6 0 7 0; #X connect 8 0 2 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 11 0 8 1; #X restore 76 107 pd argument; #X obj 76 192 phasor~; #X connect 0 0 1 1; #X connect 1 0 11 0; #X connect 2 0 19 0; #X connect 3 0 4 0; #X connect 4 0 13 0; #X connect 5 0 6 0; #X connect 6 0 7 1; #X connect 6 0 21 1; #X connect 7 0 14 0; #X connect 8 0 0 1; #X connect 9 0 11 1; #X connect 10 0 9 0; #X connect 11 0 3 0; #X connect 12 0 5 0; #X connect 14 0 8 0; #X connect 17 0 10 0; #X connect 17 1 7 0; #X connect 18 0 21 0; #X connect 19 0 17 0; #X connect 21 0 22 0; #X connect 22 0 1 0; #X connect 22 0 0 0;