#N canvas 222 84 642 346 12;
#X floatatom 75 227 0 0 0;
#N canvas 159 26 495 266 output 0;
#X obj 338 160 t b;
#X obj 338 110 f;
#X obj 338 60 inlet;
#X text 344 29 mute;
#X obj 338 185 f;
#X msg 425 178 0;
#X msg 338 85 bang;
#X obj 338 135 moses 1;
#X obj 425 153 t b f;
#X obj 397 117 moses 1;
#X obj 83 148 dbtorms;
#X obj 397 92 r master-lvl;
#X obj 83 42 r master-lvl;
#X obj 338 210 s master-lvl;
#X obj 22 181 inlet~;
#X obj 199 41 inlet;
#X text 199 18 level;
#X obj 199 100 s master-lvl;
#X msg 96 65 set \$1;
#X obj 96 89 outlet;
#X msg 214 64 \; pd dsp 1;
#X obj 83 194 line~;
#X obj 22 212 *~;
#X obj 22 241 dac~;
#X obj 83 171 pack 0 50;
#X text 20 158 audio;
#X text 93 110 show level;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 13 0;
#X connect 5 0 13 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 7 1 8 0;
#X connect 8 0 5 0;
#X connect 9 1 4 1;
#X connect 10 0 24 0;
#X connect 11 0 1 1;
#X connect 11 0 9 0;
#X connect 12 0 10 0;
#X connect 12 0 18 0;
#X connect 14 0 22 0;
#X connect 15 0 17 0;
#X connect 15 0 20 0;
#X connect 18 0 19 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 22 0 23 1;
#X connect 24 0 21 0;
#X restore 46 255 pd output;
#X msg 123 227 MUTE;
#X text 166 225 <-- output amplitude;
#X obj 46 173 tabread4~ mtof;
#X obj 46 197 osc~;
#N canvas 0 0 600 396 tables 0;
#X obj 111 138 loadbang;
#X graph graph1 0 0 123 10 387 156 587 56;
#X array dbtorms 123 float 0;
#X pop;
#X text 589 149 0;
#X text 591 49 10;
#X text 406 159 ------ 123 samples ------;
#X graph graph2 0 0 130 12000 394 333 594 233;
#X array mtof 130 float 0;
#X pop;
#X text 404 341 ------ 130 samples ------;
#X text 603 326 0;
#X text 605 226 12000;
#X msg 111 161 \; dbtorms read dbtorms.txt \; mtof read mtof.txt;
#X connect 0 0 9 0;
#X restore 490 225 pd tables;
#X text 35 6 PORTAMENTO;
#X obj 46 149 line~;
#X obj 46 101 r pitch;
#X msg 316 101 36;
#X msg 345 101 48;
#X msg 372 101 60;
#X msg 429 101 72;
#X msg 401 101 67;
#X msg 483 101 76;
#X msg 457 101 74;
#X obj 451 165 s pitch;
#X msg 514 101 84;
#X msg 544 101 96;
#X floatatom 143 125 0 0 0;
#X text 173 126 <-- change speed;
#X floatatom 451 139 0 0 0;
#X obj 46 125 pack 0 100;
#X obj 388 192 loadbang;
#X msg 387 214 \; pitch 72;
#X text 363 293 updated for Pd version 0.34;
#X text 40 37 Portamento can be done using just line~ \, but you still
might want to sweep in pitch \, not frequency:;
#X connect 0 0 1 1;
#X connect 1 0 0 0;
#X connect 2 0 1 2;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 8 0 4 0;
#X connect 9 0 23 0;
#X connect 10 0 22 0;
#X connect 11 0 22 0;
#X connect 12 0 22 0;
#X connect 13 0 22 0;
#X connect 14 0 22 0;
#X connect 15 0 22 0;
#X connect 16 0 22 0;
#X connect 18 0 22 0;
#X connect 19 0 22 0;
#X connect 20 0 23 1;
#X connect 22 0 17 0;
#X connect 23 0 8 0;
#X connect 24 0 25 0;
