Download raw (1.7 KB)

#N canvas 572 481 450 300 10;
#N canvas 1133 695 450 300 cosine 0;
#X obj 49 120 outlet~;
#X obj 119 147 switch~;
#X obj 169 50 inlet;
#X obj 49 60 osc~;
#X msg 119 50 0;
#X msg 169 80 1;
#X obj 119 20 r stopAll-\$0;
#X obj 49 20 inlet;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 4 0;
#X connect 7 0 3 0;
#X restore 40 216 pd cosine;
#N canvas 57 92 450 300 sawtooth 0;
#X obj 212 191 phasor~;
#X obj 215 250 outlet~;
#X obj 305 187 switch~;
#X obj 313 102 inlet;
#X msg 268 104 0;
#X msg 322 145 1;
#X obj 269 80 r stopAll-\$0;
#X obj 209 130 inlet;
#X connect 0 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X connect 7 0 0 0;
#X restore 49 236 pd sawtooth;
#N canvas 57 97 450 300 square 0;
#X obj 201 169 expr~ $v1 > 0.5;
#X obj 241 136 phasor~;
#X obj 202 239 outlet~;
#X obj 334 146 switch~;
#X obj 342 61 inlet;
#X msg 272 32 0;
#X msg 340 98 1;
#X obj 273 8 r stopAll-\$0;
#X obj 237 89 inlet;
#X obj 201 191 -~ 0.5;
#X connect 0 0 9 0;
#X connect 1 0 0 0;
#X connect 4 0 6 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 5 0;
#X connect 8 0 1 0;
#X connect 9 0 2 0;
#X restore 60 256 pd square;
#X obj 91 126 t f b;
#X obj 40 76 inlet;
#X obj 40 286 outlet~;
#X obj 118 146 s stopAll-\$0;
#X obj 91 76 inlet;
#X obj 161 76 loadbang;
#X msg 161 98 0;
#X obj 91 166 sel 0 1 2 3;
#X obj 138 186 s stopAll-\$0;
#X connect 0 0 5 0;
#X connect 1 0 5 0;
#X connect 2 0 5 0;
#X connect 3 0 10 0;
#X connect 3 1 6 0;
#X connect 4 0 0 0;
#X connect 4 0 1 0;
#X connect 4 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 0 1;
#X connect 10 1 1 1;
#X connect 10 2 2 1;
#X connect 10 3 11 0;