#N canvas 515 171 797 717 12;
#N canvas 0 0 450 300 (subpatch) 0;
#X array array1 439412 float 2;
#X coords 0 1 439412 -1 200 140 1;
#X restore 315 247 graph;
#X obj 47 100 openpanel;
#X obj 47 76 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 47 152 soundfiler;
#X msg 47 126 read -resize \$1 array1;
#X obj 47 179 expr 44100 / $f1;
#X floatatom 47 240 5 0 0 0 - - -;
#X obj 47 292 phasor~;
#X obj 47 332 *~;
#X obj 316 388 hsl 200 15 0 1 0 0 empty empty empty -2 -6 0 8 -261234
-1 -1 13238 1;
#X text 314 411 0;
#X text 514 410 1;
#X obj 46 369 tabread4~ array1;
#X obj 127 546 line~;
#X msg 127 520 \$1 20;
#X floatatom 127 493 5 0 4 0 - - -;
#X obj 45 577 *~;
#X obj 44 616 dac~;
#X obj 47 265 *;
#X floatatom 286 64 5 0 0 0 - - -;
#X floatatom 287 160 5 0 0 0 - - -;
#X obj 190 332 snapshot~;
#X obj 190 292 metro 100;
#X obj 190 255 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 103 260 0;
#X text 72 73 carrega o arquivo de áudio;
#X obj 431 36 loadbang;
#X obj 190 220 receive metro;
#N canvas 4 23 1223 553 tecladinho 0;
#X obj 77 39 key;
#X obj 561 39 keyup;
#X floatatom 77 76 5 0 0 0 - - -;
#X msg 77 139 0;
#X msg 111 140 1;
#X msg 145 140 2;
#X msg 179 140 3;
#X msg 213 141 4;
#X msg 247 141 5;
#X msg 282 142 6;
#X msg 316 143 7;
#X msg 350 143 8;
#X msg 384 143 9;
#X msg 418 144 10;
#X msg 452 144 11;
#X msg 487 144 12;
#X obj 77 108 sel 97 119 115 101 100 102 116 103 121 104 117 106 107
;
#X obj 496 267 \$1 20;
#X obj 496 305 line~;
#X obj 496 231 f 1;
#X floatatom 551 83 5 0 0 0 - - -;
#X msg 551 146 0;
#X msg 585 147 1;
#X msg 619 147 2;
#X msg 653 147 3;
#X msg 687 148 4;
#X msg 721 148 5;
#X msg 756 149 6;
#X msg 790 150 7;
#X msg 824 150 8;
#X msg 858 150 9;
#X msg 892 151 10;
#X msg 926 151 11;
#X msg 961 151 12;
#X obj 551 115 sel 97 119 115 101 100 102 116 103 121 104 117 106 107
;
#X floatatom 78 220 5 0 0 0 - - -;
#X obj 496 205 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 542 226 f 0;
#X obj 78 255 outlet;
#X obj 496 344 send~ envelope;
#X obj 554 197 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X connect 0 0 2 0;
#X connect 1 0 20 0;
#X connect 2 0 16 0;
#X connect 3 0 35 0;
#X connect 4 0 35 0;
#X connect 5 0 35 0;
#X connect 6 0 35 0;
#X connect 7 0 35 0;
#X connect 8 0 35 0;
#X connect 9 0 35 0;
#X connect 10 0 35 0;
#X connect 11 0 35 0;
#X connect 12 0 35 0;
#X connect 13 0 35 0;
#X connect 14 0 35 0;
#X connect 15 0 35 0;
#X connect 16 0 3 0;
#X connect 16 1 4 0;
#X connect 16 2 5 0;
#X connect 16 3 6 0;
#X connect 16 4 7 0;
#X connect 16 5 8 0;
#X connect 16 6 9 0;
#X connect 16 7 10 0;
#X connect 16 8 11 0;
#X connect 16 9 12 0;
#X connect 16 10 13 0;
#X connect 16 11 14 0;
#X connect 16 12 15 0;
#X connect 17 0 18 0;
#X connect 18 0 39 0;
#X connect 19 0 17 0;
#X connect 20 0 34 0;
#X connect 21 0 40 0;
#X connect 22 0 40 0;
#X connect 23 0 40 0;
#X connect 24 0 40 0;
#X connect 25 0 40 0;
#X connect 26 0 40 0;
#X connect 27 0 40 0;
#X connect 28 0 40 0;
#X connect 29 0 40 0;
#X connect 30 0 40 0;
#X connect 31 0 40 0;
#X connect 32 0 40 0;
#X connect 33 0 40 0;
#X connect 34 0 21 0;
#X connect 34 1 22 0;
#X connect 34 2 23 0;
#X connect 34 3 24 0;
#X connect 34 4 25 0;
#X connect 34 5 26 0;
#X connect 34 6 27 0;
#X connect 34 7 28 0;
#X connect 34 8 29 0;
#X connect 34 9 30 0;
#X connect 34 10 31 0;
#X connect 34 11 32 0;
#X connect 34 12 33 0;
#X connect 35 0 36 0;
#X connect 35 0 38 0;
#X connect 36 0 19 0;
#X connect 37 0 17 0;
#X connect 40 0 37 0;
#X restore 284 30 pd tecladinho;
#X obj 63 428 receive~ envelope;
#X obj 44 471 *~;
#X obj 84 208 t b f b;
#X text 168 492 volume geral;
#X text 319 491 Carregue um arquivo de áudio e utilize o teclado do
computador para tocar uma escala diatônica conforme as letras abaixo.
É preciso configurar o teclado do seu computador para não repetir
as letras quando você mantém uma tecla abaixada \, caso contrário
a opção para "desligar"a nota não vai funcionar corretamente.;
#X text 317 615 a s d f g h j k;
#X text 334 596 w e t y u;
#N canvas 4 23 450 300 diatonico 0;
#X floatatom 116 179 10 0 0 0 - - -;
#X floatatom 116 98 5 0 0 0 - - -;
#X obj 116 135 expr pow (2 \, $f1/12);
#X obj 117 60 inlet;
#X obj 117 215 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X restore 288 110 pd diatonico;
#X msg 431 70 \; pd dsp 1 \; metro 1 \;;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 3 0 8 1;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 18 0;
#X connect 7 0 8 0;
#X connect 7 0 21 0;
#X connect 8 0 12 0;
#X connect 12 0 30 0;
#X connect 13 0 16 1;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 16 0 17 1;
#X connect 16 0 17 0;
#X connect 18 0 7 0;
#X connect 19 0 36 0;
#X connect 20 0 31 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 24 0 7 1;
#X connect 26 0 37 0;
#X connect 27 0 23 0;
#X connect 28 0 19 0;
#X connect 29 0 30 1;
#X connect 30 0 16 0;
#X connect 31 0 6 0;
#X connect 31 1 18 1;
#X connect 31 2 24 0;
#X connect 36 0 20 0;