#N canvas 179 405 536 607 10;
#X obj 193 161 inlet~;
#X obj 193 468 outlet~;
#X obj 280 161 inlet;
#X obj 320 191 / 100;
#X obj 280 281 lop~ 5;
#X obj 320 221 * 0.5;
#X obj 193 311 expr~ $v1 > $v2;
#X obj 280 251 -;
#X msg 280 221 0.5;
#X obj 193 341 -~ 0.5;
#X obj 193 438 *~ 2;
#X text 280 133 SHAPE;
#X obj 411 220 switch~;
#X obj 411 191 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 411 161 inlet;
#X text 411 133 SWITCH;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0square 300 float 0;
#X coords 0 1 299 -1 200 140 1 0 0;
#X restore 310 438 graph;
#X obj 29 438 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 29 467 metro 100;
#X obj 29 562 tabwrite~ \$0square;
#X obj 193 281 phasor~;
#X text 193 133 PITCH;
#X connect 0 0 20 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 4 0 6 1;
#X connect 5 0 7 1;
#X connect 6 0 9 0;
#X connect 7 0 4 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 1 0;
#X connect 10 0 19 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 20 0 6 0;
