#N canvas 91 93 1600 817 10;
#X declare -stdpath ./;
#X declare -stdpath ./;
#N canvas -42 98 1600 817 Harmonizer 0;
#X obj 777 15 adc~;
#N canvas 243 241 1029 592 voz 0;
#X obj 227 518 *~;
#X obj 350 445 line~;
#X floatatom 350 182 0 0 0 0 - - - 0;
#X obj 350 419 pack 0 200;
#X obj 350 156 r window;
#X obj 227 203 exp;
#X floatatom 227 229 6 0 0 0 - - - 0;
#X obj 227 319 /;
#X obj 275 253 * 0.001;
#X obj 449 506 line~;
#X obj 449 481 pack 0 200;
#X floatatom 457 429 0 0 0 0 - - - 0;
#X obj 449 404 r delay;
#X obj 227 544 +~;
#X obj 164 570 cos~;
#X obj 165 615 *~;
#X obj 305 641 +~;
#X obj 291 447 wrap~;
#X obj 386 501 *~;
#X obj 386 553 +~;
#X obj 323 580 cos~;
#X obj 323 607 *~;
#X obj 275 280 t b f;
#X floatatom 227 345 6 0 0 0 - - - 0;
#X obj 291 420 +~ 0.5;
#X obj 164 518 -~ 0.5;
#X obj 164 544 *~ 0.5;
#X obj 323 500 -~ 0.5;
#X obj 323 552 *~ 0.5;
#X obj 227 256 - 1;
#X obj 227 177 * 0.05776;
#X obj 227 282 * -1;
#X obj 227 376 phasor~;
#X obj 449 457 max 1.5;
#X obj 350 209 max 1;
#X text 383 182 <= window (msec);
#X obj 292 737 outlet~;
#X obj 499 29 inlet~;
#X obj 493 81 delwrite~ PS1-del 5000;
#X obj 394 628 vd~ PS1-del;
#X obj 227 590 vd~ PS1-del;
#X msg 757 397 \; transpose 0 \; window 100 \; delay 0;
#X obj 757 371 loadbang;
#X obj 756 274 declare -stdpath ./;
#X obj 171 59 inlet;
#X connect 0 0 13 0;
#X connect 1 0 0 1;
#X connect 1 0 18 1;
#X connect 2 0 34 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 29 0;
#X connect 7 0 23 0;
#X connect 8 0 22 0;
#X connect 9 0 13 1;
#X connect 9 0 19 1;
#X connect 10 0 9 0;
#X connect 11 0 33 0;
#X connect 12 0 11 0;
#X connect 13 0 40 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 36 0;
#X connect 17 0 18 0;
#X connect 17 0 27 0;
#X connect 18 0 19 0;
#X connect 19 0 39 0;
#X connect 20 0 21 0;
#X connect 21 0 16 1;
#X connect 22 0 7 0;
#X connect 22 1 7 1;
#X connect 23 0 32 0;
#X connect 24 0 17 0;
#X connect 25 0 26 0;
#X connect 26 0 14 0;
#X connect 27 0 28 0;
#X connect 28 0 20 0;
#X connect 29 0 31 0;
#X connect 30 0 5 0;
#X connect 31 0 7 0;
#X connect 32 0 0 0;
#X connect 32 0 25 0;
#X connect 32 0 24 0;
#X connect 33 0 10 0;
#X connect 34 0 8 0;
#X connect 34 0 3 0;
#X connect 37 0 38 0;
#X connect 39 0 21 1;
#X connect 40 0 15 1;
#X connect 42 0 41 0;
#X connect 44 0 30 0;
#X restore 895 119 pd voz 1;
#X floatatom 1147 126 5 0 0 0 - - - 0;
#X obj 1210 179 int;
#X obj 1171 210 -;
#X floatatom 1195 316 5 0 0 0 - - - 0;
#X obj 1171 263 int;
#X obj 1171 240 * 2;
#X obj 1195 288 +;
#X obj 1195 341 mod 12, f 9;
#X msg 1232 681 4, f 1;
#X msg 1254 680 3, f 1;
#X floatatom 1234 536 5 0 0 0 - - - 0;
#X obj 1234 617 sel 0 2 4 5 7 9 11, f 29;
#X msg 1329 688 7;
#X msg 1370 688 6;
#N canvas -88 203 1440 818 voz 0;
#X obj 227 518 *~;
#X obj 350 445 line~;
#X floatatom 350 182 0 0 0 0 - - - 0;
#X obj 350 419 pack 0 200;
#X obj 350 156 r window;
#X obj 227 203 exp;
#X floatatom 227 229 6 0 0 0 - - - 0;
#X obj 227 319 /;
#X obj 275 253 * 0.001;
#X obj 449 506 line~;
#X obj 449 481 pack 0 200;
#X floatatom 457 429 0 0 0 0 - - - 0;
#X obj 449 404 r delay;
#X obj 227 544 +~;
#X obj 164 570 cos~;
#X obj 165 615 *~;
#X obj 305 641 +~;
#X obj 291 447 wrap~;
#X obj 386 501 *~;
#X obj 386 553 +~;
#X obj 323 580 cos~;
#X obj 323 607 *~;
#X obj 275 280 t b f;
#X floatatom 227 345 6 0 0 0 - - - 0;
#X obj 291 420 +~ 0.5;
#X obj 164 518 -~ 0.5;
#X obj 164 544 *~ 0.5;
#X obj 323 500 -~ 0.5;
#X obj 323 552 *~ 0.5;
#X obj 227 256 - 1;
#X obj 227 177 * 0.05776;
#X obj 227 282 * -1;
#X obj 227 376 phasor~;
#X obj 449 457 max 1.5;
#X obj 350 209 max 1;
#X text 383 182 <= window (msec);
#X obj 292 737 outlet~;
#X obj 499 29 inlet~;
#X msg 757 397 \; transpose 0 \; window 100 \; delay 0;
#X obj 757 371 loadbang;
#X obj 756 274 declare -stdpath ./;
#X obj 171 59 inlet;
#X obj 493 81 delwrite~ PS2-del 5000;
#X obj 394 628 vd~ PS2-del;
#X obj 227 590 vd~ PS2-del;
#X connect 0 0 13 0;
#X connect 1 0 0 1;
#X connect 1 0 18 1;
#X connect 2 0 34 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 29 0;
#X connect 7 0 23 0;
#X connect 8 0 22 0;
#X connect 9 0 13 1;
#X connect 9 0 19 1;
#X connect 10 0 9 0;
#X connect 11 0 33 0;
#X connect 12 0 11 0;
#X connect 13 0 44 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 36 0;
#X connect 17 0 18 0;
#X connect 17 0 27 0;
#X connect 18 0 19 0;
#X connect 19 0 43 0;
#X connect 20 0 21 0;
#X connect 21 0 16 1;
#X connect 22 0 7 0;
#X connect 22 1 7 1;
#X connect 23 0 32 0;
#X connect 24 0 17 0;
#X connect 25 0 26 0;
#X connect 26 0 14 0;
#X connect 27 0 28 0;
#X connect 28 0 20 0;
#X connect 29 0 31 0;
#X connect 30 0 5 0;
#X connect 31 0 7 0;
#X connect 32 0 0 0;
#X connect 32 0 25 0;
#X connect 32 0 24 0;
#X connect 33 0 10 0;
#X connect 34 0 8 0;
#X connect 34 0 3 0;
#X connect 37 0 42 0;
#X connect 39 0 38 0;
#X connect 41 0 30 0;
#X connect 43 0 21 1;
#X connect 44 0 15 1;
#X restore 804 107 pd voz 2;
#X obj 1195 447 -;
#X obj 1147 100 sigmund~ -hop 1024 pitch;
#X obj 1171 150 moses 0;
#X obj 691 733 dac~;
#X obj 446 356 *~;
#X obj 379 357 *~;
#X obj 423 454 == 0;
#X obj 161 129 tgl 35 0 empty empty On/Off 0 -6 0 15 #fcfcfc #000000
#000000 0 1;
#X obj 380 452 *~;
#X obj 380 408 +~;
#X obj 379 492 +~;
#X obj 605 131 vsl 30 150 0 1 0 0 empty empty Quinta 0 -9 0 20 #fcfcfc
#000000 #000000 0 1;
#X obj 521 130 vsl 30 150 0 1 0 0 empty empty Tercera 0 -9 1 20 #ffffff
#000000 #000000 0 1;
#X obj 109 249 hradio 32 1 0 12 empty empty Do\\\ \\\ Do#\\\ Re\\\ Re#\\\ Mi\\\ Fa\\\ Fa#\\\ Sol\\\ Sol#\\\ La\\\ La#\\\ Si
0 -8 0 15 #fcfcfc #000000 #000000 0;
#X floatatom 388 135 4 0 0 0 Tu\ Nota - - 16;
#X obj 989 235 mod 12, f 8;
#X obj 1195 476 moses 0;
#X obj 1195 504 + 12;
#X text 265 203 Selector de escala (Mayor);
#X connect 0 0 18 0;
#X connect 0 0 1 1;
#X connect 0 0 16 1;
#X connect 0 0 20 0;
#X connect 0 1 18 0;
#X connect 0 1 1 1;
#X connect 0 1 16 1;
#X connect 0 1 20 1;
#X connect 1 0 21 0;
#X connect 2 0 19 0;
#X connect 3 0 4 1;
#X connect 3 0 8 1;
#X connect 4 0 7 0;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 5 0;
#X connect 9 0 17 0;
#X connect 10 0 1 0;
#X connect 11 0 1 0;
#X connect 12 0 13 0;
#X connect 13 0 10 0;
#X connect 13 0 14 0;
#X connect 13 1 11 0;
#X connect 13 1 14 0;
#X connect 13 2 14 0;
#X connect 13 2 11 0;
#X connect 13 3 14 0;
#X connect 13 3 10 0;
#X connect 13 4 14 0;
#X connect 13 4 10 0;
#X connect 13 5 14 0;
#X connect 13 5 11 0;
#X connect 13 6 15 0;
#X connect 13 6 11 0;
#X connect 14 0 16 0;
#X connect 15 0 16 0;
#X connect 16 0 22 0;
#X connect 17 0 33 0;
#X connect 18 0 2 0;
#X connect 19 1 3 0;
#X connect 19 1 32 0;
#X connect 19 1 4 0;
#X connect 21 0 26 1;
#X connect 22 0 26 0;
#X connect 23 0 27 1;
#X connect 24 0 23 1;
#X connect 24 0 25 1;
#X connect 25 0 27 0;
#X connect 26 0 25 0;
#X connect 27 0 20 0;
#X connect 27 0 20 1;
#X connect 28 0 22 1;
#X connect 29 0 21 1;
#X connect 30 0 17 1;
#X connect 32 0 31 0;
#X connect 33 0 34 0;
#X connect 33 1 12 0;
#X connect 34 0 12 0;
#X coords 0 -1 1 1 600 200 1 100 100;
#X restore 388 229 pd Harmonizer;