The patch "aburrido2" for use with cammomile plugin, is necesary save "ratios_temperamento_1.txt" (below) in the same folder. Other information about the patch but ins't important really http://postimg.org/image/teptd2g2b/

aburrido2.txt

#N canvas 171 130 1195 874 10;
#X obj 62 678 *~ 1;
#X obj -12 456 pack 0 0 0;
#X obj 64 584 lop~ 19000;
#X obj 64 562 lop~ 19000;
#X obj 64 609 hip~ 35;
#X obj 63 632 hip~ 35;
#N canvas 587 474 716 452 voz(2) 0;
#X obj 110 29 inlet;
#X obj 110 77 unpack;
#N canvas 277 206 393 451 secuecia 0;
#X obj 155 -254 >= 1;
#X obj 155 -349 inlet;
#X floatatom 155 -326 5 0 0 0 - - -;
#X msg 81 -70 0;
#X obj 81 -38 spigot;
#X obj 81 -210 sel 1;
#X obj 155 -227 t f f;
#X floatatom 295 -90 5 0 0 0 - - -;
#X obj 114 -94 r \$0-sinc_on/off;
#X obj 81 -13 s \$0-sinc(2);
#X obj 155 -190 s \$0-env_miller_turn(2);
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 3 0;
#X connect 6 0 10 0;
#X connect 6 1 5 0;
#X connect 8 0 4 1;
#X restore 175 119 pd secuecia;
#X obj 175 94 t f f;
#N canvas 391 404 241 378 op1 0;
#X obj 52 -482 osc~;
#N canvas 449 232 450 300 ratio_op1 0;
#N canvas 610 206 498 288 op2 0;
#X obj 81 -348 + 1;
#X obj 191 -340 pow 1;
#X obj 261 -357 / 12;
#X floatatom 191 -316 5 0 0 0 - - -;
#X obj 234 -391 t b f;
#X msg 191 -374 2;
#X obj 81 -325 outlet;
#X obj 334 -374 outlet;
#X obj 191 -290 outlet;
#X obj 234 -427 inlet;
#X obj 81 -407 r \$0-op1_ratio;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 4 1 2 0;
#X connect 5 0 1 0;
#X connect 9 0 4 0;
#X connect 10 0 0 0;
#X restore 138 -1007 pd op2;
#X obj 146 -819 outlet~;
#X obj 146 -878 *;
#X obj 146 -913 *;
#X obj 146 -847 sig~;
#X obj 44 -976 r \$0-temp(2);
#X obj 138 -1032 r \$0-tune_fine_op1;
#X connect 0 0 3 1;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X restore 52 -529 pd ratio_op1;
#X obj 51 -330 outlet~;
#X obj 50 -360 *~;
#X obj 51 -408 *~ 1;
#X obj 89 -499 r \$0-sinc(2);
#X obj 51 -436 *~ 0.6;
#N canvas 376 108 1113 823 env1_op1 0;
#X obj 311 -183 *;
#X obj 393 -476 * 0.01;
#X obj 393 -433 - 0.27;
#X obj 393 -455 t f b;
#X obj 245 -331 t b f;
#X obj 257 -209 *;
#X obj 178 -314 f;
#X obj 320 -253 f;
#X obj 393 -388 + 0.26;
#X obj 393 -410 * 0.7;
#X obj 382 -183 r \$0-control_de_ataque_op1;
#X obj 480 72 r \$0-control_de_deca_op1;
#X obj 634 -59 r \$0-control_de_release_op1;
#X obj 320 -313 r \$0-control_de_sost_op1;
#X obj 178 -385 r \$0-control_de_pico_op1;
#X obj 107 -202 sel 0;
#X msg 107 -110 stop;
#X obj 188 -185 moses;
#X obj 215 -129 t b;
#X obj 215 0 pack 0 \$2;
#X obj 215 -49 f \$1;
#X obj 214 167 line~;
#X obj 168 -155 t b b;
#X msg 114 -24 0;
#X obj 299 -20 del \$3;
#X obj 299 16 f \$4;
#X obj 299 45 * 0.01;
#X obj 370 62 * \$1;
#X obj 370 89 pack 0 \$2;
#X obj 430 -42 pack 0 \$5;
#X obj 212 245 outlet~;
#X obj 215 25 unpack;
#X obj 430 -16 unpack;
#X obj 430 10 sqrt;
#X obj 430 33 sqrt;
#X obj 370 111 unpack;
#X obj 328 128 sqrt;
#X obj 328 151 sqrt;
#X obj 214 60 sqrt;
#X obj 214 83 sqrt;
#X obj 213 196 *~;
#X obj 213 222 *~;
#X obj 393 -498 r \$0-vel(2);
#X obj 106 -428 r \$0-env_miller_turn(2);
#X connect 0 0 20 1;
#X connect 0 0 27 1;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 4 0 7 0;
#X connect 4 1 5 1;
#X connect 4 1 0 1;
#X connect 5 0 25 1;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 19 1;
#X connect 10 0 24 1;
#X connect 11 0 28 1;
#X connect 12 0 29 1;
#X connect 13 0 7 0;
#X connect 14 0 6 0;
#X connect 15 0 16 0;
#X connect 15 0 29 0;
#X connect 15 1 17 0;
#X connect 16 0 24 0;
#X connect 17 0 22 0;
#X connect 17 1 18 0;
#X connect 18 0 20 0;
#X connect 18 0 24 0;
#X connect 19 0 31 0;
#X connect 20 0 19 0;
#X connect 21 0 40 0;
#X connect 21 0 40 1;
#X connect 22 0 18 0;
#X connect 22 1 23 0;
#X connect 23 0 21 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 35 0;
#X connect 29 0 32 0;
#X connect 31 0 38 0;
#X connect 31 1 21 1;
#X connect 32 0 33 0;
#X connect 32 1 21 1;
#X connect 33 0 34 0;
#X connect 34 0 21 0;
#X connect 35 0 36 0;
#X connect 35 1 21 1;
#X connect 36 0 37 0;
#X connect 37 0 21 0;
#X connect 38 0 39 0;
#X connect 39 0 21 0;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 30 0;
#X connect 42 0 1 0;
#X connect 43 0 15 0;
#X restore 66 -382 pd env1_op1;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 3 1;
#X restore 111 285 pd op1;
#X obj 110 247 s \$0-temp(2);
#X obj 303 111 s \$0-vel(2);
#X obj 111 318 throw~ \$0-voice(2);
#X floatatom 138 177 5 0 0 0 - - -;
#X obj 138 152 r \$0-f_c;
#X obj 138 206 t b f;
#X obj 110 223 *;
#X connect 0 0 1 0;
#X connect 1 0 11 0;
#X connect 1 1 3 0;
#X connect 3 0 2 0;
#X connect 3 1 6 0;
#X connect 4 0 7 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 5 0;
#X restore 49 506 pd voz(2);
#N canvas 587 474 450 418 voz(3) 0;
#X obj 110 29 inlet;
#X obj 110 77 unpack;
#N canvas 277 206 393 451 secuecia 0;
#X obj 155 -254 >= 1;
#X obj 155 -349 inlet;
#X floatatom 155 -326 5 0 0 0 - - -;
#X msg 81 -70 0;
#X obj 81 -38 spigot;
#X obj 81 -210 sel 1;
#X obj 155 -227 t f f;
#X floatatom 295 -90 5 0 0 0 - - -;
#X obj 114 -94 r \$0-sinc_on/off;
#X obj 80 -11 s \$0-sinc(3);
#X obj 155 -190 s \$0-env_miller_turn(3);
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 3 0;
#X connect 6 0 10 0;
#X connect 6 1 5 0;
#X connect 8 0 4 1;
#X restore 175 119 pd secuecia;
#X obj 175 94 t f f;
#N canvas 369 395 241 286 op1 0;
#X obj 54 -514 osc~;
#N canvas 449 232 450 300 ratio_op1 0;
#N canvas 745 145 475 255 op2 0;
#X obj 54 -373 + 1;
#X obj 154 -365 pow 1;
#X obj 224 -382 / 12;
#X floatatom 154 -341 5 0 0 0 - - -;
#X obj 197 -416 t b f;
#X msg 154 -399 2;
#X obj 54 -348 outlet;
#X obj 297 -399 outlet;
#X obj 154 -315 outlet;
#X obj 197 -442 inlet;
#X obj 54 -421 r \$0-op1_ratio;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 4 1 2 0;
#X connect 5 0 1 0;
#X connect 9 0 4 0;
#X connect 10 0 0 0;
#X restore 161 -965 pd op2;
#X obj 146 -819 outlet~;
#X obj 146 -882 *;
#X obj 146 -923 *;
#X obj 146 -847 sig~;
#X obj 47 -940 r \$0-temp(3);
#X obj 161 -992 r \$0-tune_fine_op1;
#X connect 0 0 3 1;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X restore 54 -561 pd ratio_op1;
#X obj 53 -362 outlet~;
#X obj 52 -392 *~;
#X obj 53 -440 *~ 1;
#X obj 53 -468 *~ 0.6;
#X obj 91 -531 r \$0-sinc(3);
#N canvas 376 108 1113 823 env1_op1 0;
#X obj 311 -183 *;
#X obj 393 -476 * 0.01;
#X obj 393 -433 - 0.27;
#X obj 393 -455 t f b;
#X obj 245 -331 t b f;
#X obj 257 -209 *;
#X obj 178 -314 f;
#X obj 320 -253 f;
#X obj 393 -388 + 0.26;
#X obj 393 -410 * 0.7;
#X obj 382 -183 r \$0-control_de_ataque_op1;
#X obj 480 72 r \$0-control_de_deca_op1;
#X obj 634 -59 r \$0-control_de_release_op1;
#X obj 320 -313 r \$0-control_de_sost_op1;
#X obj 178 -385 r \$0-control_de_pico_op1;
#X obj 107 -202 sel 0;
#X msg 107 -110 stop;
#X obj 188 -185 moses;
#X obj 215 -129 t b;
#X obj 215 0 pack 0 \$2;
#X obj 215 -49 f \$1;
#X obj 214 167 line~;
#X obj 168 -155 t b b;
#X msg 114 -24 0;
#X obj 299 -20 del \$3;
#X obj 299 16 f \$4;
#X obj 299 45 * 0.01;
#X obj 370 62 * \$1;
#X obj 370 89 pack 0 \$2;
#X obj 430 -42 pack 0 \$5;
#X obj 212 245 outlet~;
#X obj 215 25 unpack;
#X obj 430 -16 unpack;
#X obj 430 10 sqrt;
#X obj 430 33 sqrt;
#X obj 370 111 unpack;
#X obj 328 128 sqrt;
#X obj 328 151 sqrt;
#X obj 214 60 sqrt;
#X obj 214 83 sqrt;
#X obj 213 196 *~;
#X obj 213 222 *~;
#X obj 393 -498 r \$0-vel(3);
#X obj 106 -428 r \$0-env_miller_turn(3);
#X connect 0 0 20 1;
#X connect 0 0 27 1;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 4 0 7 0;
#X connect 4 1 5 1;
#X connect 4 1 0 1;
#X connect 5 0 25 1;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 19 1;
#X connect 10 0 24 1;
#X connect 11 0 28 1;
#X connect 12 0 29 1;
#X connect 13 0 7 0;
#X connect 14 0 6 0;
#X connect 15 0 16 0;
#X connect 15 0 29 0;
#X connect 15 1 17 0;
#X connect 16 0 24 0;
#X connect 17 0 22 0;
#X connect 17 1 18 0;
#X connect 18 0 20 0;
#X connect 18 0 24 0;
#X connect 19 0 31 0;
#X connect 20 0 19 0;
#X connect 21 0 40 0;
#X connect 21 0 40 1;
#X connect 22 0 18 0;
#X connect 22 1 23 0;
#X connect 23 0 21 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 35 0;
#X connect 29 0 32 0;
#X connect 31 0 38 0;
#X connect 31 1 21 1;
#X connect 32 0 33 0;
#X connect 32 1 21 1;
#X connect 33 0 34 0;
#X connect 34 0 21 0;
#X connect 35 0 36 0;
#X connect 35 1 21 1;
#X connect 36 0 37 0;
#X connect 37 0 21 0;
#X connect 38 0 39 0;
#X connect 39 0 21 0;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 30 0;
#X connect 42 0 1 0;
#X connect 43 0 15 0;
#X restore 67 -414 pd env1_op1;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 0 1;
#X connect 7 0 3 1;
#X restore 108 269 pd op1;
#X obj 110 232 s \$0-temp(3);
#X obj 303 111 s \$0-vel(3);
#X obj 107 297 throw~ \$0-voice(3);
#X floatatom 139 167 5 0 0 0 - - -;
#X obj 139 145 r \$0-f_c;
#X obj 139 189 t b f;
#X obj 110 206 *;
#X connect 0 0 1 0;
#X connect 1 0 11 0;
#X connect 1 1 3 0;
#X connect 3 0 2 0;
#X connect 3 1 6 0;
#X connect 4 0 7 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 5 0;
#X restore 111 506 pd voz(3);
#N canvas 587 470 450 426 voz(4) 0;
#X obj 110 29 inlet;
#X obj 110 77 unpack;
#N canvas 277 206 393 451 secuecia 0;
#X obj 155 -254 >= 1;
#X obj 155 -349 inlet;
#X floatatom 155 -326 5 0 0 0 - - -;
#X msg 81 -70 0;
#X obj 81 -38 spigot;
#X obj 81 -210 sel 1;
#X obj 155 -227 t f f;
#X floatatom 295 -90 5 0 0 0 - - -;
#X obj 114 -94 r \$0-sinc_on/off;
#X obj 155 -190 s \$0-env_miller_turn(4);
#X obj 81 -13 s \$0-sinc(4);
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 10 0;
#X connect 5 0 3 0;
#X connect 6 0 9 0;
#X connect 6 1 5 0;
#X connect 8 0 4 1;
#X restore 175 119 pd secuecia;
#X obj 175 94 t f f;
#N canvas 456 480 333 412 op1 0;
#X obj 53 -489 osc~;
#N canvas 449 232 450 300 ratio_op1 0;
#N canvas 594 467 605 287 op2 0;
#X obj 127 83 + 1;
#X obj 227 91 pow 1;
#X obj 297 74 / 12;
#X floatatom 227 115 5 0 0 0 - - -;
#X obj 270 40 t b f;
#X msg 227 57 2;
#X obj 127 108 outlet;
#X obj 370 57 outlet;
#X obj 227 141 outlet;
#X obj 270 15 inlet;
#X obj 127 48 r \$0-op1_ratio;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 4 1 2 0;
#X connect 5 0 1 0;
#X connect 9 0 4 0;
#X connect 10 0 0 0;
#X restore 138 -1007 pd op2;
#X obj 146 -819 outlet~;
#X obj 146 -882 *;
#X obj 146 -923 *;
#X obj 146 -847 sig~;
#X obj 44 -976 r \$0-temp(4);
#X obj 138 -1036 r \$0-tune_fine_op1;
#X connect 0 0 3 1;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X restore 53 -536 pd ratio_op1;
#X obj 52 -337 outlet~;
#X obj 51 -367 *~;
#X obj 52 -415 *~ 1;
#X obj 52 -443 *~ 0.6;
#X obj 90 -506 r \$0-sinc(4);
#N canvas 376 108 1113 823 env1_op1 0;
#X obj 311 -183 *;
#X obj 393 -476 * 0.01;
#X obj 393 -433 - 0.27;
#X obj 393 -455 t f b;
#X obj 245 -331 t b f;
#X obj 257 -209 *;
#X obj 178 -314 f;
#X obj 320 -253 f;
#X obj 393 -388 + 0.26;
#X obj 393 -410 * 0.7;
#X obj 382 -183 r \$0-control_de_ataque_op1;
#X obj 480 72 r \$0-control_de_deca_op1;
#X obj 634 -59 r \$0-control_de_release_op1;
#X obj 320 -313 r \$0-control_de_sost_op1;
#X obj 178 -385 r \$0-control_de_pico_op1;
#X obj 107 -202 sel 0;
#X msg 107 -110 stop;
#X obj 188 -185 moses;
#X obj 215 -129 t b;
#X obj 215 0 pack 0 \$2;
#X obj 215 -49 f \$1;
#X obj 214 167 line~;
#X obj 168 -155 t b b;
#X msg 114 -24 0;
#X obj 299 -20 del \$3;
#X obj 299 16 f \$4;
#X obj 299 45 * 0.01;
#X obj 370 62 * \$1;
#X obj 370 89 pack 0 \$2;
#X obj 430 -42 pack 0 \$5;
#X obj 212 245 outlet~;
#X obj 215 25 unpack;
#X obj 430 -16 unpack;
#X obj 430 10 sqrt;
#X obj 430 33 sqrt;
#X obj 370 111 unpack;
#X obj 328 128 sqrt;
#X obj 328 151 sqrt;
#X obj 214 60 sqrt;
#X obj 214 83 sqrt;
#X obj 213 196 *~;
#X obj 213 222 *~;
#X obj 106 -429 r \$0-env_miller_turn(4);
#X obj 393 -498 r \$0-vel(4);
#X connect 0 0 20 1;
#X connect 0 0 27 1;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 4 0 7 0;
#X connect 4 1 5 1;
#X connect 4 1 0 1;
#X connect 5 0 25 1;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 19 1;
#X connect 10 0 24 1;
#X connect 11 0 28 1;
#X connect 12 0 29 1;
#X connect 13 0 7 0;
#X connect 14 0 6 0;
#X connect 15 0 16 0;
#X connect 15 0 29 0;
#X connect 15 1 17 0;
#X connect 16 0 24 0;
#X connect 17 0 22 0;
#X connect 17 1 18 0;
#X connect 18 0 20 0;
#X connect 18 0 24 0;
#X connect 19 0 31 0;
#X connect 20 0 19 0;
#X connect 21 0 40 0;
#X connect 21 0 40 1;
#X connect 22 0 18 0;
#X connect 22 1 23 0;
#X connect 23 0 21 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 35 0;
#X connect 29 0 32 0;
#X connect 31 0 38 0;
#X connect 31 1 21 1;
#X connect 32 0 33 0;
#X connect 32 1 21 1;
#X connect 33 0 34 0;
#X connect 34 0 21 0;
#X connect 35 0 36 0;
#X connect 35 1 21 1;
#X connect 36 0 37 0;
#X connect 37 0 21 0;
#X connect 38 0 39 0;
#X connect 39 0 21 0;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 30 0;
#X connect 42 0 15 0;
#X connect 43 0 1 0;
#X restore 65 -390 pd env1_op1;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 0 1;
#X connect 7 0 3 1;
#X restore 109 273 pd op1;
#X obj 303 111 s \$0-vel(4);
#X obj 110 232 s \$0-temp(4);
#X obj 110 299 throw~ \$0-voice(4);
#X floatatom 145 171 5 0 0 0 - - -;
#X obj 145 146 r \$0-f_c;
#X obj 145 190 t b f;
#X obj 110 207 *;
#X connect 0 0 1 0;
#X connect 1 0 11 0;
#X connect 1 1 3 0;
#X connect 3 0 2 0;
#X connect 3 1 5 0;
#X connect 4 0 7 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 6 0;
#X restore 173 506 pd voz(4);
#N canvas 566 334 406 506 voz(1) 0;
#X obj 68 44 inlet;
#X obj 68 70 unpack;
#N canvas 277 206 393 451 secuecia 0;
#X obj 155 -254 >= 1;
#X obj 155 -349 inlet;
#X floatatom 155 -326 5 0 0 0 - - -;
#X msg 81 -70 0;
#X obj 81 -38 spigot;
#X obj 81 -210 sel 1;
#X obj 155 -227 t f f;
#X floatatom 295 -90 5 0 0 0 - - -;
#X obj 114 -94 r \$0-sinc_on/off;
#X obj 81 -13 s \$0-sinc(1);
#X obj 116 -127 print env;
#X obj 154 -190 s \$0-env_miller_turn(1);
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 3 0;
#X connect 6 0 10 0;
#X connect 6 0 11 0;
#X connect 6 1 5 0;
#X connect 8 0 4 1;
#X restore 133 111 pd secuecia;
#X obj 133 87 t f f;
#X obj 221 104 s \$0-vel(1);
#N canvas 580 224 347 337 ratio_op1 0;
#N canvas 610 72 605 562 op2 0;
#X obj 213 -237 + 1;
#X obj 321 -229 pow 1;
#X obj 213 -214 t b f;
#X obj 391 -246 / 12;
#X floatatom 321 -205 5 0 0 0 - - -;
#X obj 364 -280 t b f;
#X msg 321 -263 2;
#X obj 240 -191 outlet;
#X obj 459 -238 outlet;
#X obj 321 -179 outlet;
#X obj 364 -311 inlet;
#X obj 213 -294 r \$0-op1_ratio;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 1 7 0;
#X connect 3 0 1 1;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 8 0;
#X connect 5 1 3 0;
#X connect 6 0 1 0;
#X connect 10 0 5 0;
#X connect 11 0 0 0;
#X restore 170 -550 pd op2;
#X obj 155 -423 outlet~;
#X obj 155 -490 *;
#X obj 155 -521 *;
#X obj 155 -456 sig~;
#X obj 170 -575 r \$0-tune_fine_op1;
#X obj 34 -538 r \$0-temp(1);
#X connect 0 0 3 1;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 3 0;
#X restore 69 275 pd ratio_op1;
#N canvas 278 167 1113 823 env1_op1 0;
#X obj 178 -282 *;
#X obj 407 -436 * 0.01;
#X obj 407 -393 - 0.27;
#X obj 407 -415 t f b;
#X obj 245 -331 t b f;
#X obj 333 -183 *;
#X obj 178 -314 f;
#X obj 320 -253 f;
#X obj 407 -348 + 0.26;
#X obj 407 -370 * 0.7;
#X obj 107 -202 sel 0;
#X msg 107 -110 stop;
#X obj 188 -185 moses;
#X obj 215 -129 t b;
#X obj 214 167 line~;
#X obj 168 -155 t b b;
#X msg 114 -24 0;
#X obj 299 45 * 0.01;
#X obj 215 25 unpack;
#X obj 430 -16 unpack;
#X obj 430 10 sqrt;
#X obj 430 33 sqrt;
#X obj 370 111 unpack;
#X obj 328 128 sqrt;
#X obj 328 151 sqrt;
#X obj 214 60 sqrt;
#X obj 214 83 sqrt;
#X obj 213 196 *~;
#X obj 213 222 *~;
#X obj 370 89 pack 0 0;
#X obj 370 62 *;
#X obj 299 16 f;
#X obj 298 -20 del;
#X obj 430 -42 pack 0 0;
#X obj 215 -49 f 0;
#X obj 215 0 pack 0 0;
#X obj 212 250 outlet~;
#X obj 106 -427 r \$0-env_miller_turn(1);
#X obj 178 -385 r \$0-control_de_pico_op1;
#X obj 320 -313 r \$0-control_de_sost_op1;
#X obj 382 -183 r \$0-control_de_ataque_op1;
#X obj 500 -59 r \$0-control_de_release_op1;
#X obj 508 72 r \$0-control_de_deca_op1;
#X obj 407 -458 r \$0-vel(1);
#X connect 0 0 30 1;
#X connect 0 0 34 1;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 4 0 7 0;
#X connect 4 1 5 1;
#X connect 4 1 0 1;
#X connect 5 0 31 1;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 0 33 0;
#X connect 10 1 12 0;
#X connect 11 0 32 0;
#X connect 12 0 15 0;
#X connect 12 1 13 0;
#X connect 13 0 32 0;
#X connect 13 0 34 0;
#X connect 14 0 27 0;
#X connect 14 0 27 1;
#X connect 15 0 13 0;
#X connect 15 1 16 0;
#X connect 16 0 14 0;
#X connect 17 0 30 0;
#X connect 18 0 25 0;
#X connect 18 1 14 1;
#X connect 19 0 20 0;
#X connect 19 1 14 1;
#X connect 20 0 21 0;
#X connect 21 0 14 0;
#X connect 22 0 23 0;
#X connect 22 1 14 1;
#X connect 23 0 24 0;
#X connect 24 0 14 0;
#X connect 25 0 26 0;
#X connect 26 0 14 0;
#X connect 27 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 36 0;
#X connect 29 0 22 0;
#X connect 30 0 29 0;
#X connect 31 0 17 0;
#X connect 32 0 31 0;
#X connect 33 0 19 0;
#X connect 34 0 35 0;
#X connect 35 0 18 0;
#X connect 37 0 10 0;
#X connect 38 0 6 0;
#X connect 39 0 7 0;
#X connect 40 0 32 1;
#X connect 40 0 35 1;
#X connect 41 0 33 1;
#X connect 42 0 29 1;
#X connect 43 0 1 0;
#X restore 83 370 pd env1_op1;
#X obj 68 407 *~;
#X obj 67 340 *~ 1;
#X obj 68 306 osc~;
#X obj 153 289 r \$0-sinc(1);
#X obj 68 229 s \$0-temp(1);
#X floatatom 104 165 5 0 0 0 - - -;
#X obj 104 144 r \$0-f_c;
#X obj 104 187 t b f;
#X obj 68 204 *;
#X obj 68 441 throw~ \$0-voice(1);
#X connect 0 0 1 0;
#X connect 1 0 15 0;
#X connect 1 1 3 0;
#X connect 3 0 2 0;
#X connect 3 1 4 0;
#X connect 5 0 9 0;
#X connect 6 0 7 1;
#X connect 7 0 16 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 9 1;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 15 0;
#X connect 14 1 15 1;
#X connect 15 0 11 0;
#X restore -12 506 pd voz(1);
#X obj 63 546 catch~ \$0-voice(3);
#X obj 178 546 catch~ \$0-voice(4);
#X obj 63 655 *~;
#X obj 154 637 line~;
#X obj 62 713 dac~;
#X obj -45 286 notein;
#X obj 154 614 pack 0 20;
#X obj 408 206 loadbang;
#X obj 408 238 t b b b b b b b b b b;
#X msg 405 298 0;
#X msg 696 255 0.2;
#X msg 498 285 0.5;
#X msg 526 285 20;
#X msg 555 285 40;
#X msg 583 285 30;
#X msg 612 285 120;
#X obj 154 591 r \$0-control_de_gain;
#X obj -53 546 catch~ \$0-voice(2);
#X obj 696 279 s \$0-tune_fine_op1;
#X obj 654 319 s \$0-f_c;
#X obj 361 396 s \$0-sinc_on/off;
#X obj 526 374 s \$0-control_de_ataque_op1;
#X obj 583 350 s \$0-control_de_deca_op1;
#X obj 474 428 s \$0-control_de_sost_op1;
#X obj 555 452 s \$0-control_de_release_op1;
#X obj 435 326 s \$0-control_de_pico_op1;
#X obj 505 406 s \$0-control_de_gain;
#X obj 543 189 s \$0-op1_ratio;
#X obj -167 546 catch~ \$0-voice(1);
#X obj 187 338 s \$0-temperamento_justo;
#X obj -12 424 poly 8;
#X obj -12 489 route 1 2 3 4 5 6 7 8;
#N canvas 446 291 480 502 voz(5) 0;
#X obj 110 29 inlet;
#X obj 110 77 unpack;
#N canvas 277 206 393 451 secuecia 0;
#X obj 155 -254 >= 1;
#X obj 155 -349 inlet;
#X floatatom 155 -326 5 0 0 0 - - -;
#X msg 81 -70 0;
#X obj 81 -38 spigot;
#X obj 81 -210 sel 1;
#X obj 155 -227 t f f;
#X obj 114 -94 r \$0-sinc_on/off;
#X obj 155 -186 s \$0-env_miller_turn(5);
#X obj 81 -12 s \$0-sinc(5);
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 3 0;
#X connect 6 0 8 0;
#X connect 6 1 5 0;
#X connect 7 0 4 1;
#X restore 175 126 pd secuecia;
#X obj 175 94 t f f;
#N canvas 580 224 450 482 ratio_op1 0;
#N canvas 610 142 605 492 op2 0;
#X obj 142 -128 + 1;
#X obj 242 -120 pow 1;
#X obj 312 -137 / 12;
#X floatatom 242 -96 5 0 0 0 - - -;
#X obj 285 -171 t b f;
#X msg 242 -154 2;
#X obj 142 -102 outlet;
#X obj 385 -154 outlet;
#X obj 242 -70 outlet;
#X obj 285 -198 inlet;
#X obj 142 -195 r \$0-op1_ratio;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 4 1 2 0;
#X connect 5 0 1 0;
#X connect 9 0 4 0;
#X connect 10 0 0 0;
#X restore 183 -682 pd op2;
#X obj 168 -521 outlet~;
#X obj 168 -566 *;
#X obj 168 -607 *;
#X obj 168 -543 sig~;
#X obj 183 -708 r \$0-tune_fine_op1;
#X obj 85 -730 r \$0-temp(5);
#X connect 0 0 3 1;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 3 0;
#X restore 108 282 pd ratio_op1;
#N canvas 278 167 1113 823 env1_op1 0;
#X obj 178 -282 *;
#X obj 407 -436 * 0.01;
#X obj 407 -393 - 0.27;
#X obj 407 -415 t f b;
#X obj 245 -331 t b f;
#X obj 333 -183 *;
#X obj 178 -314 f;
#X obj 320 -253 f;
#X obj 407 -348 + 0.26;
#X obj 407 -370 * 0.7;
#X obj 107 -202 sel 0;
#X msg 107 -110 stop;
#X obj 188 -185 moses;
#X obj 215 -129 t b;
#X obj 214 167 line~;
#X obj 168 -155 t b b;
#X msg 114 -24 0;
#X obj 299 45 * 0.01;
#X obj 215 25 unpack;
#X obj 430 -16 unpack;
#X obj 430 10 sqrt;
#X obj 430 33 sqrt;
#X obj 370 111 unpack;
#X obj 328 128 sqrt;
#X obj 328 151 sqrt;
#X obj 214 60 sqrt;
#X obj 214 83 sqrt;
#X obj 213 196 *~;
#X obj 213 222 *~;
#X obj 370 89 pack 0 0;
#X obj 370 62 *;
#X obj 299 16 f;
#X obj 298 -20 del;
#X obj 430 -42 pack 0 0;
#X obj 215 -49 f 0;
#X obj 215 0 pack 0 0;
#X obj 212 250 outlet~;
#X obj 178 -385 r \$0-control_de_pico_op1;
#X obj 320 -313 r \$0-control_de_sost_op1;
#X obj 382 -183 r \$0-control_de_ataque_op1;
#X obj 500 -59 r \$0-control_de_release_op1;
#X obj 508 72 r \$0-control_de_deca_op1;
#X obj 407 -458 r \$0-vel(5);
#X obj 106 -427 r \$0-env_miller_turn(5);
#X connect 0 0 30 1;
#X connect 0 0 34 1;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 4 0 7 0;
#X connect 4 1 5 1;
#X connect 4 1 0 1;
#X connect 5 0 31 1;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 0 33 0;
#X connect 10 1 12 0;
#X connect 11 0 32 0;
#X connect 12 0 15 0;
#X connect 12 1 13 0;
#X connect 13 0 32 0;
#X connect 13 0 34 0;
#X connect 14 0 27 0;
#X connect 14 0 27 1;
#X connect 15 0 13 0;
#X connect 15 1 16 0;
#X connect 16 0 14 0;
#X connect 17 0 30 0;
#X connect 18 0 25 0;
#X connect 18 1 14 1;
#X connect 19 0 20 0;
#X connect 19 1 14 1;
#X connect 20 0 21 0;
#X connect 21 0 14 0;
#X connect 22 0 23 0;
#X connect 22 1 14 1;
#X connect 23 0 24 0;
#X connect 24 0 14 0;
#X connect 25 0 26 0;
#X connect 26 0 14 0;
#X connect 27 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 36 0;
#X connect 29 0 22 0;
#X connect 30 0 29 0;
#X connect 31 0 17 0;
#X connect 32 0 31 0;
#X connect 33 0 19 0;
#X connect 34 0 35 0;
#X connect 35 0 18 0;
#X connect 37 0 6 0;
#X connect 38 0 7 0;
#X connect 39 0 32 1;
#X connect 39 0 35 1;
#X connect 40 0 33 1;
#X connect 41 0 29 1;
#X connect 42 0 1 0;
#X connect 43 0 10 0;
#X restore 122 377 pd env1_op1;
#X obj 107 404 *~;
#X obj 106 347 *~ 1;
#X obj 107 313 osc~;
#X obj 192 296 r \$0-sinc(5);
#X obj 107 435 throw~ \$0-voice(5);
#X obj 303 111 s \$0-vel(5);
#X obj 110 241 s \$0-temp(5);
#X floatatom 142 174 5 0 0 0 - - -;
#X obj 142 149 r \$0-f_c;
#X obj 142 195 t b f;
#X obj 110 212 *;
#X connect 0 0 1 0;
#X connect 1 0 16 0;
#X connect 1 1 3 0;
#X connect 3 0 2 0;
#X connect 3 1 11 0;
#X connect 4 0 8 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 8 1;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 1 16 1;
#X connect 16 0 12 0;
#X restore 235 506 pd voz(5);
#N canvas 580 341 817 471 voz(6) 0;
#X obj 110 29 inlet;
#X obj 110 77 unpack;
#N canvas 277 206 393 451 secuecia 0;
#X obj 155 -254 >= 1;
#X obj 155 -349 inlet;
#X floatatom 155 -326 5 0 0 0 - - -;
#X msg 81 -70 0;
#X obj 81 -38 spigot;
#X obj 81 -210 sel 1;
#X obj 155 -227 t f f;
#X floatatom 295 -90 5 0 0 0 - - -;
#X obj 114 -94 r \$0-sinc_on/off;
#X obj 155 -190 s \$0-env_miller_turn(6);
#X obj 81 -13 s \$0-sinc(6);
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 10 0;
#X connect 5 0 3 0;
#X connect 6 0 9 0;
#X connect 6 1 5 0;
#X connect 8 0 4 1;
#X restore 175 119 pd secuecia;
#X obj 175 94 t f f;
#N canvas 391 404 519 391 op1 0;
#X obj 51 -578 osc~;
#N canvas 449 232 450 300 ratio_op1 0;
#N canvas 601 226 605 562 op2 0;
#X obj 129 -164 + 1;
#X obj 229 -158 pow 1;
#X obj 299 -175 / 12;
#X floatatom 229 -134 5 0 0 0 - - -;
#X obj 272 -209 t b f;
#X msg 229 -192 2;
#X obj 129 -134 outlet;
#X obj 372 -192 outlet;
#X obj 229 -108 outlet;
#X obj 272 -235 inlet;
#X obj 129 -194 r \$0-op1_ratio;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 4 1 2 0;
#X connect 5 0 1 0;
#X connect 9 0 4 0;
#X connect 10 0 0 0;
#X restore 138 -1007 pd op2;
#X obj 146 -819 outlet~;
#X obj 146 -878 *;
#X obj 146 -913 *;
#X obj 146 -847 sig~;
#X obj 138 -1036 r \$0-tune_fine_op1;
#X obj 44 -976 r \$0-temp(6);
#X connect 0 0 3 1;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 3 0;
#X restore 51 -625 pd ratio_op1;
#X obj 50 -426 outlet~;
#X obj 49 -456 *~;
#X obj 50 -504 *~ 1;
#X obj 50 -532 *~ 0.6;
#N canvas 376 108 1113 823 env1_op1 0;
#X obj 311 -183 *;
#X obj 393 -476 * 0.01;
#X obj 393 -433 - 0.27;
#X obj 393 -455 t f b;
#X obj 245 -331 t b f;
#X obj 257 -209 *;
#X obj 178 -314 f;
#X obj 320 -253 f;
#X obj 393 -388 + 0.26;
#X obj 393 -410 * 0.7;
#X obj 382 -183 r \$0-control_de_ataque_op1;
#X obj 480 72 r \$0-control_de_deca_op1;
#X obj 634 -59 r \$0-control_de_release_op1;
#X obj 320 -313 r \$0-control_de_sost_op1;
#X obj 178 -385 r \$0-control_de_pico_op1;
#X obj 107 -202 sel 0;
#X msg 107 -110 stop;
#X obj 188 -185 moses;
#X obj 215 -129 t b;
#X obj 215 0 pack 0 \$2;
#X obj 215 -49 f \$1;
#X obj 214 167 line~;
#X obj 168 -155 t b b;
#X msg 114 -24 0;
#X obj 299 -20 del \$3;
#X obj 299 16 f \$4;
#X obj 299 45 * 0.01;
#X obj 370 62 * \$1;
#X obj 370 89 pack 0 \$2;
#X obj 430 -42 pack 0 \$5;
#X obj 212 245 outlet~;
#X obj 215 25 unpack;
#X obj 430 -16 unpack;
#X obj 430 10 sqrt;
#X obj 430 33 sqrt;
#X obj 370 111 unpack;
#X obj 328 128 sqrt;
#X obj 328 151 sqrt;
#X obj 214 60 sqrt;
#X obj 214 83 sqrt;
#X obj 213 196 *~;
#X obj 213 222 *~;
#X obj 393 -498 r \$0-vel(6);
#X obj 106 -428 r \$0-env_miller_turn(6);
#X connect 0 0 20 1;
#X connect 0 0 27 1;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 4 0 7 0;
#X connect 4 1 5 1;
#X connect 4 1 0 1;
#X connect 5 0 25 1;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 19 1;
#X connect 10 0 24 1;
#X connect 11 0 28 1;
#X connect 12 0 29 1;
#X connect 13 0 7 0;
#X connect 14 0 6 0;
#X connect 15 0 16 0;
#X connect 15 0 29 0;
#X connect 15 1 17 0;
#X connect 16 0 24 0;
#X connect 17 0 22 0;
#X connect 17 1 18 0;
#X connect 18 0 20 0;
#X connect 18 0 24 0;
#X connect 19 0 31 0;
#X connect 20 0 19 0;
#X connect 21 0 40 0;
#X connect 21 0 40 1;
#X connect 22 0 18 0;
#X connect 22 1 23 0;
#X connect 23 0 21 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 35 0;
#X connect 29 0 32 0;
#X connect 31 0 38 0;
#X connect 31 1 21 1;
#X connect 32 0 33 0;
#X connect 32 1 21 1;
#X connect 33 0 34 0;
#X connect 34 0 21 0;
#X connect 35 0 36 0;
#X connect 35 1 21 1;
#X connect 36 0 37 0;
#X connect 37 0 21 0;
#X connect 38 0 39 0;
#X connect 39 0 21 0;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 30 0;
#X connect 42 0 1 0;
#X connect 43 0 15 0;
#X restore 65 -478 pd env1_op1;
#X obj 88 -595 r \$0-sinc(6);
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 3 1;
#X connect 7 0 0 1;
#X restore 114 298 pd op1;
#X obj 115 324 throw~ \$0-voice(6);
#X obj 303 111 s \$0-vel(6);
#X obj 110 258 s \$0-temp(6);
#X floatatom 136 175 5 0 0 0 - - -;
#X obj 136 150 r \$0-f_c;
#X obj 136 210 t b f;
#X obj 110 227 *;
#X connect 0 0 1 0;
#X connect 1 0 11 0;
#X connect 1 1 3 0;
#X connect 3 0 2 0;
#X connect 3 1 6 0;
#X connect 4 0 5 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 7 0;
#X restore 296 506 pd voz(6);
#N canvas 583 377 450 392 voz(7) 0;
#X obj 110 29 inlet;
#X obj 110 58 unpack;
#N canvas 277 206 393 451 secuecia 0;
#X obj 155 -254 >= 1;
#X obj 155 -349 inlet;
#X floatatom 155 -326 5 0 0 0 - - -;
#X msg 81 -70 0;
#X obj 81 -38 spigot;
#X obj 81 -210 sel 1;
#X obj 155 -227 t f f;
#X obj 114 -94 r \$0-sinc_on/off;
#X obj 155 -190 s \$0-env_miller_turn(7);
#X obj 81 -11 s \$0-sinc(7);
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 3 0;
#X connect 6 0 8 0;
#X connect 6 1 5 0;
#X connect 7 0 4 1;
#X restore 143 104 pd secuecia;
#X obj 143 79 t f f;
#N canvas 453 415 241 227 op1 0;
#X obj 51 -578 osc~;
#N canvas 467 346 450 300 ratio_op1 0;
#N canvas 592 227 605 444 op2 0;
#X obj 157 -206 + 1;
#X obj 257 -198 pow 1;
#X obj 327 -215 / 12;
#X floatatom 257 -174 5 0 0 0 - - -;
#X obj 300 -249 t b f;
#X msg 257 -232 2;
#X obj 157 -165 outlet;
#X obj 400 -232 outlet;
#X obj 257 -148 outlet;
#X obj 300 -284 inlet;
#X obj 157 -270 r \$0-op1_ratio;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 4 1 2 0;
#X connect 5 0 1 0;
#X connect 9 0 4 0;
#X connect 10 0 0 0;
#X restore 161 -958 pd op2;
#X obj 146 -830 outlet~;
#X obj 146 -882 *;
#X obj 146 -923 *;
#X obj 146 -858 sig~;
#X obj 161 -979 r \$0-tune_fine_op1;
#X obj 55 -940 r \$0-temp(7);
#X connect 0 0 3 1;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 3 0;
#X restore 51 -625 pd ratio_op1;
#X obj 50 -426 outlet~;
#X obj 49 -456 *~;
#X obj 50 -504 *~ 1;
#X obj 50 -532 *~ 0.6;
#N canvas 376 108 1113 823 env1_op1 0;
#X obj 311 -183 *;
#X obj 393 -476 * 0.01;
#X obj 393 -433 - 0.27;
#X obj 393 -455 t f b;
#X obj 245 -331 t b f;
#X obj 257 -209 *;
#X obj 178 -314 f;
#X obj 320 -253 f;
#X obj 393 -388 + 0.26;
#X obj 393 -410 * 0.7;
#X obj 382 -183 r \$0-control_de_ataque_op1;
#X obj 480 72 r \$0-control_de_deca_op1;
#X obj 634 -59 r \$0-control_de_release_op1;
#X obj 320 -313 r \$0-control_de_sost_op1;
#X obj 178 -385 r \$0-control_de_pico_op1;
#X obj 107 -202 sel 0;
#X msg 107 -110 stop;
#X obj 188 -185 moses;
#X obj 215 -129 t b;
#X obj 215 0 pack 0 \$2;
#X obj 215 -49 f \$1;
#X obj 214 167 line~;
#X obj 168 -155 t b b;
#X msg 114 -24 0;
#X obj 299 -20 del \$3;
#X obj 299 16 f \$4;
#X obj 299 45 * 0.01;
#X obj 370 62 * \$1;
#X obj 370 89 pack 0 \$2;
#X obj 430 -42 pack 0 \$5;
#X obj 212 245 outlet~;
#X obj 215 25 unpack;
#X obj 430 -16 unpack;
#X obj 430 10 sqrt;
#X obj 430 33 sqrt;
#X obj 370 111 unpack;
#X obj 328 128 sqrt;
#X obj 328 151 sqrt;
#X obj 214 60 sqrt;
#X obj 214 83 sqrt;
#X obj 213 196 *~;
#X obj 213 222 *~;
#X obj 393 -498 r \$0-vel(7);
#X obj 106 -429 r \$0-env_miller_turn(7);
#X connect 0 0 20 1;
#X connect 0 0 27 1;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 4 0 7 0;
#X connect 4 1 5 1;
#X connect 4 1 0 1;
#X connect 5 0 25 1;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 19 1;
#X connect 10 0 24 1;
#X connect 11 0 28 1;
#X connect 12 0 29 1;
#X connect 13 0 7 0;
#X connect 14 0 6 0;
#X connect 15 0 16 0;
#X connect 15 0 29 0;
#X connect 15 1 17 0;
#X connect 16 0 24 0;
#X connect 17 0 22 0;
#X connect 17 1 18 0;
#X connect 18 0 20 0;
#X connect 18 0 24 0;
#X connect 19 0 31 0;
#X connect 20 0 19 0;
#X connect 21 0 40 0;
#X connect 21 0 40 1;
#X connect 22 0 18 0;
#X connect 22 1 23 0;
#X connect 23 0 21 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 35 0;
#X connect 29 0 32 0;
#X connect 31 0 38 0;
#X connect 31 1 21 1;
#X connect 32 0 33 0;
#X connect 32 1 21 1;
#X connect 33 0 34 0;
#X connect 34 0 21 0;
#X connect 35 0 36 0;
#X connect 35 1 21 1;
#X connect 36 0 37 0;
#X connect 37 0 21 0;
#X connect 38 0 39 0;
#X connect 39 0 21 0;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 30 0;
#X connect 42 0 1 0;
#X connect 43 0 15 0;
#X restore 64 -478 pd env1_op1;
#X obj 88 -595 r \$0-sinc(7);
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 3 1;
#X connect 7 0 0 1;
#X restore 110 250 pd op1;
#X obj 111 276 throw~ \$0-voice(7);
#X obj 271 96 s \$0-vel(7);
#X obj 110 220 s \$0-temp(7);
#X floatatom 143 156 5 0 0 0 - - -;
#X obj 143 131 r \$0-f_c;
#X obj 143 177 t b f;
#X obj 110 194 *;
#X connect 0 0 1 0;
#X connect 1 0 11 0;
#X connect 1 1 3 0;
#X connect 3 0 2 0;
#X connect 3 1 6 0;
#X connect 4 0 5 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 7 0;
#X restore 358 506 pd voz(7);
#N canvas 587 470 450 483 voz(8) 0;
#X obj 110 49 inlet;
#X obj 110 77 unpack;
#N canvas 277 206 393 451 secuecia 0;
#X obj 155 -254 >= 1;
#X obj 155 -349 inlet;
#X floatatom 155 -326 5 0 0 0 - - -;
#X msg 81 -92 0;
#X obj 81 -60 spigot;
#X obj 81 -168 sel 1;
#X obj 155 -227 t f f;
#X floatatom 313 -236 5 0 0 0 - - -;
#X obj 114 -116 r \$0-sinc_on/off;
#X obj 155 -182 s \$0-env_miller_turn(8);
#X obj 81 -35 s \$0-sinc(8);
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 10 0;
#X connect 5 0 3 0;
#X connect 6 0 9 0;
#X connect 6 1 5 0;
#X connect 8 0 4 1;
#X restore 143 129 pd secuecia;
#X obj 143 102 t f f;
#N canvas 456 480 318 294 op1 0;
#X obj 51 -532 osc~;
#N canvas 532 401 450 300 ratio_op1 0;
#N canvas 610 160 605 432 op2 0;
#X obj 137 -220 + 1;
#X obj 237 -212 pow 1;
#X obj 307 -229 / 12;
#X floatatom 237 -188 5 0 0 0 - - -;
#X obj 280 -263 t b f;
#X msg 237 -246 2;
#X obj 137 -187 outlet;
#X obj 380 -246 outlet;
#X obj 237 -162 outlet;
#X obj 280 -294 inlet;
#X obj 137 -311 r \$0-op1_ratio;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 4 1 2 0;
#X connect 5 0 1 0;
#X connect 9 0 4 0;
#X connect 10 0 0 0;
#X restore 195 -837 pd op2;
#X obj 179 -707 outlet~;
#X obj 180 -757 *;
#X obj 180 -798 *;
#X obj 180 -732 sig~;
#X obj 195 -859 r \$0-tune_fine_op1;
#X obj 71 -815 r \$0-temp(8);
#X connect 0 0 3 1;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 3 0;
#X restore 51 -579 pd ratio_op1;
#X obj 50 -380 outlet~;
#X obj 49 -410 *~;
#X obj 50 -458 *~ 1;
#X obj 50 -486 *~ 0.6;
#N canvas 376 108 1113 823 env1_op1 0;
#X obj 311 -183 *;
#X obj 393 -476 * 0.01;
#X obj 393 -433 - 0.27;
#X obj 393 -455 t f b;
#X obj 245 -331 t b f;
#X obj 257 -209 *;
#X obj 178 -314 f;
#X obj 320 -253 f;
#X obj 393 -388 + 0.26;
#X obj 393 -410 * 0.7;
#X obj 382 -183 r \$0-control_de_ataque_op1;
#X obj 480 72 r \$0-control_de_deca_op1;
#X obj 634 -59 r \$0-control_de_release_op1;
#X obj 320 -313 r \$0-control_de_sost_op1;
#X obj 178 -385 r \$0-control_de_pico_op1;
#X obj 107 -202 sel 0;
#X msg 107 -110 stop;
#X obj 188 -185 moses;
#X obj 215 -129 t b;
#X obj 215 0 pack 0 \$2;
#X obj 215 -49 f \$1;
#X obj 214 167 line~;
#X obj 168 -155 t b b;
#X msg 114 -24 0;
#X obj 299 -20 del \$3;
#X obj 299 16 f \$4;
#X obj 299 45 * 0.01;
#X obj 370 62 * \$1;
#X obj 370 89 pack 0 \$2;
#X obj 430 -42 pack 0 \$5;
#X obj 212 245 outlet~;
#X obj 215 25 unpack;
#X obj 430 -16 unpack;
#X obj 430 10 sqrt;
#X obj 430 33 sqrt;
#X obj 370 111 unpack;
#X obj 328 128 sqrt;
#X obj 328 151 sqrt;
#X obj 214 60 sqrt;
#X obj 214 83 sqrt;
#X obj 213 196 *~;
#X obj 213 222 *~;
#X obj 393 -498 r \$0-vel(8);
#X obj 106 -429 r \$0-env_miller_turn(8);
#X connect 0 0 20 1;
#X connect 0 0 27 1;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 4 0 7 0;
#X connect 4 1 5 1;
#X connect 4 1 0 1;
#X connect 5 0 25 1;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 19 1;
#X connect 10 0 24 1;
#X connect 11 0 28 1;
#X connect 12 0 29 1;
#X connect 13 0 7 0;
#X connect 14 0 6 0;
#X connect 15 0 16 0;
#X connect 15 0 29 0;
#X connect 15 1 17 0;
#X connect 16 0 24 0;
#X connect 17 0 22 0;
#X connect 17 1 18 0;
#X connect 18 0 20 0;
#X connect 18 0 24 0;
#X connect 19 0 31 0;
#X connect 20 0 19 0;
#X connect 21 0 40 0;
#X connect 21 0 40 1;
#X connect 22 0 18 0;
#X connect 22 1 23 0;
#X connect 23 0 21 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 35 0;
#X connect 29 0 32 0;
#X connect 31 0 38 0;
#X connect 31 1 21 1;
#X connect 32 0 33 0;
#X connect 32 1 21 1;
#X connect 33 0 34 0;
#X connect 34 0 21 0;
#X connect 35 0 36 0;
#X connect 35 1 21 1;
#X connect 36 0 37 0;
#X connect 37 0 21 0;
#X connect 38 0 39 0;
#X connect 39 0 21 0;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 30 0;
#X connect 42 0 1 0;
#X connect 43 0 15 0;
#X restore 63 -433 pd env1_op1;
#X obj 88 -549 r \$0-sinc(8);
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 3 1;
#X connect 7 0 0 1;
#X restore 110 277 pd op1;
#X obj 111 324 throw~ \$0-voice(8);
#X obj 110 248 s \$0-temp(8);
#X obj 251 119 s \$0-vel(8);
#X floatatom 143 182 5 0 0 0 - - -;
#X obj 143 157 r \$0-f_c;
#X obj 143 203 t b f;
#X obj 110 220 *;
#X connect 0 0 1 0;
#X connect 1 0 11 0;
#X connect 1 1 3 0;
#X connect 3 0 2 0;
#X connect 3 1 7 0;
#X connect 4 0 5 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 6 0;
#X restore 420 506 pd voz(8);
#X obj 292 546 catch~ \$0-voice(5);
#X obj 406 546 catch~ \$0-voice(6);
#X obj 521 546 catch~ \$0-voice(7);
#X obj 636 546 catch~ \$0-voice(8);
#X msg 435 301 0.6;
#N canvas 322 210 488 370 temp 0;
#X floatatom 84 227 5 0 0 0 - - -;
#X obj 84 173 inlet;
#X floatatom 84 286 5 0 0 0 - - -;
#X obj 220 253 r \$0-temperamento_justo;
#X obj 84 308 outlet;
#X obj 220 299 s \$0-array;
#X obj 84 252 tabread \$0-array;
#X msg 220 275 read ratios_temperamento_1.txt;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-array 110 float 5;
#A 0 1 1.06667 1.11111 1.125 1.2 1.25 1.33333 1.40625 1.42222 1.5 1.6
1.66667 1.75 1.77778 1.8 1.875 2 2.13333 2.22222 2.25 2.4 2.5 2.66667
2.8125 2.84444 3 3.2 3.33333 3.5 3.55556 3.6 3.75 4 4.26667 4.44444
4.5 4.5 5 5.33333 5.625 5.68889 6 6.4 6.66667 7 7 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 8 109 0 200 140 1 0 0;
#X restore 221 107 graph;
#X obj 84 202 - 36;
#X connect 0 0 6 0;
#X connect 1 0 9 0;
#X connect 2 0 4 0;
#X connect 3 0 7 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X connect 9 0 0 0;
#X restore -45 334 pd temp;
#X obj -12 365 pack 0 0;
#X obj -12 399 unpack;
#X obj -235 68 hsl 128 15 0 265 0 0 empty \$0-f_c frecuencia 16 8 2
13 -121140 -191407 -262144 5751 1;
#X obj -96 68 hsl 80 15 0 10 0 0 empty \$0-tune_fine_op1 tune_op1 8
7 1 14 -228856 -152656 -152656 158 1;
#X obj -92 188 nbx 5 14 0 1 0 0 empty \$0-control_de_pico_op1 Peak
0 -8 0 11 -262144 -1 -1 0.6 256;
#X text -238 211 ratios_temperamento_1.txt;
#X obj -235 88 hsl 128 25 1 3000 0 0 empty \$0-control_de_ataque_op1
Ataque 40 12 0 14 -262144 -1 -1 80 1;
#X obj -235 118 hsl 128 25 16 1600 0 0 empty \$0-control_de_deca_op1
Decay 40 12 0 14 -262144 -1 -1 112 1;
#X obj -235 148 hsl 128 25 0 100 0 0 empty \$0-control_de_sost_op1
Sustain 40 12 0 14 -262144 -1 -1 63 1;
#X obj -235 178 hsl 128 25 20 2000 1 0 empty \$0-control_de_release_op1
Release 40 12 0 14 -262144 -1 -1 1912 1;
#X obj -20 130 vsl 16 70 0 1 0 0 empty \$0-control_de_gain Gain 0 -9
0 10 -262144 -1 -1 3450 1;
#X obj -99 88 nbx 5 14 0 2000 0 0 empty \$0-control_de_ataque_op1 empty
0 -8 0 11 -262144 -1 -1 20 256;
#X obj -99 118 nbx 5 14 0 2000 0 0 empty \$0-control_de_deca_op1 empty
0 -8 0 11 -262144 -1 -1 30 256;
#X msg 543 170 1;
#X connect 0 0 14 0;
#X connect 0 0 14 1;
#X connect 1 0 41 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 12 0;
#X connect 10 0 3 0;
#X connect 11 0 3 0;
#X connect 12 0 0 0;
#X connect 13 0 12 1;
#X connect 15 0 51 0;
#X connect 15 1 52 1;
#X connect 16 0 13 0;
#X connect 17 0 18 0;
#X connect 18 0 39 0;
#X connect 18 1 19 0;
#X connect 18 2 50 0;
#X connect 18 3 65 0;
#X connect 18 4 21 0;
#X connect 18 5 22 0;
#X connect 18 6 23 0;
#X connect 18 7 24 0;
#X connect 18 8 25 0;
#X connect 18 9 20 0;
#X connect 19 0 30 0;
#X connect 20 0 28 0;
#X connect 21 0 33 0;
#X connect 21 0 36 0;
#X connect 22 0 31 0;
#X connect 23 0 34 0;
#X connect 24 0 32 0;
#X connect 25 0 29 0;
#X connect 26 0 16 0;
#X connect 27 0 3 0;
#X connect 38 0 3 0;
#X connect 40 0 1 0;
#X connect 40 1 1 1;
#X connect 40 2 1 2;
#X connect 41 0 9 0;
#X connect 41 1 6 0;
#X connect 41 2 7 0;
#X connect 41 3 8 0;
#X connect 41 4 42 0;
#X connect 41 5 43 0;
#X connect 41 6 44 0;
#X connect 41 7 45 0;
#X connect 46 0 3 0;
#X connect 47 0 3 0;
#X connect 48 0 3 0;
#X connect 49 0 3 0;
#X connect 50 0 35 0;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 53 0 40 0;
#X connect 53 1 40 1;
#X connect 65 0 37 0;
#X coords 0 -1 1 1 260 190 2 -250 50;

ratios_temperamento_1.txt

1
1.0666666666666666666666666666667
1.1111111111111111111111111111111
1.125
1.2
1.25
1.3333333333333333333333333333333
1.40625
1.4222222222222222222222222222222
1.5
1.6
1.6666666666666666666666666666667
1.75
1.7777777777777777777777777777778
1.8
1.875
2
2.1333333333333333333333333333333
2.2222222222222222222222222222222
2.25
2.4
2.5
2.6666666666666666666666666666667
2.8125
2.8444444444444444444444444444444
3
3.2
3.3333333333333333333333333333333
3.5
3.5555555555555555555555555555556
3.6
3.75
4
4.2666666666666666666666666666667
4.4444444444444444444444444444444
4.5
4.5
5
5.3333333333333333333333333333333
5.625
5.6888888888888888888888888888889
6
6.4
6.6666666666666666666666666666667
7
7.1111111111111111111111111111111
7.2
7.5
8