#N canvas 417 378 700 601 12; #X obj 0 -483 cnv 15 700 600 empty empty empty 20 12 0 14 -233024 -66577 0; #X msg 10 -482 Taller de PureData a Els Genis; #X text 351 -5 Sergi Lario -- slario(at)gmail.com; #X text 351 -25 GNU Free Documentation License; #X obj 0 -369 cnv 7 700 7 empty empty empty 20 12 0 14 -135722 -66577 0; #X obj 0 -296 cnv 7 700 7 empty empty empty 20 12 0 14 -135722 -66577 0; #X obj 0 -223 cnv 7 700 7 empty empty empty 20 12 0 14 -135722 -66577 0; #X obj 0 -147 cnv 7 700 7 empty empty empty 20 12 0 14 -135722 -66577 0; #X obj 0 -78 cnv 7 700 7 empty empty empty 20 12 0 14 -99865 -66577 0; #X obj 0 -451 cnv 7 700 7 empty empty empty 20 12 0 14 -99865 -66577 0; #X text 27 -419 ELS INTERNALS SON OBJECTES PROPIS DE PUREDATA. AQUESTS RESTEN DISPONIBLES UN COP ES CARREGA L'APLICACIO. PODEM TROBAR UN LLISTAT D'AQUESTS FENT BOTO DRET + HELP; #X text 7 -439 1 INTERNALS - DEFINICIO; #N canvas 458 172 565 785 temps 0; #X text 57 42 INTERNALS DE TEMPS; #X obj 60 185 metro; #X obj 60 350 line; #X obj 60 585 delay; #X obj 127 281 metro 2000; #X obj 127 257 tgl 15 0 empty empty empty 0 -6 0 10 -260097 -83269 -1 0 1; #X floatatom 194 254 5 0 0 0 - - -; #X obj 127 311 print; #X text 57 210 ENVIA UN MISSATGE BANG PERODICAMENT DONAT UN TEMPS EN MILISEGONS; #X text 76 257 on/off; #X text 236 257 milisegons; #X obj 127 518 line; #X msg 127 411 1000 1000; #X floatatom 127 549 5 0 0 0 - - -; #X msg 176 434 0 1000; #X msg 208 480 stop; #X text 201 410 rampa fins a 1000 en 1 segon; #X text 229 434 rampa fins a 0 en 1 segon; #X text 248 480 para la rampa; #X text 237 458 salta a aquest valor inmediadatment; #X text 57 374 ENVIA UNA SERIE LINEAL DE NOMBRES INCREMENTANT O DECREMENTANT FINS UN NOMBRE EN UN TEMPS DETERMINAT; #X msg 204 457 70; #X obj 127 637 bng 15 250 50 0 empty empty empty 0 -6 0 8 -260097 -83269 -1; #X obj 127 662 delay 2000; #X obj 127 692 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 152 634 4000; #X floatatom 194 635 5 0 0 0 - - -; #X text 57 610 ENVIA UN MISSATGE BANG DESPRES D'UN TEMPS DE RETARD ; #X text 57 722 ALTRES; #X obj 109 745 cputime; #X obj 60 745 timer; #X obj 172 745 realtime; #X obj 242 745 pipe; #X obj 60 77 loadbang; #X obj 127 125 loadbang; #X obj 127 155 print; #X text 57 102 ENVIA UN MISSATGE BANG AL INICIAR EL PATCH (SUBPATCHS TAMBE); #X connect 4 0 7 0; #X connect 5 0 4 0; #X connect 6 0 4 1; #X connect 11 0 13 0; #X connect 12 0 11 0; #X connect 14 0 11 0; #X connect 15 0 11 0; #X connect 21 0 11 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 25 0 23 0; #X connect 26 0 23 1; #X connect 34 0 35 0; #X restore 110 -255 pd temps; #N canvas 317 378 875 516 matematics 0; #X text 33 23 OBJECTES MATEMATICS; #X obj 90 262 random; #X obj 90 86 +; #X obj 125 86 -; #X text 33 63 TENIM OBJECTES PER REALITZAR OPERACIONS ARITMETIQUES ; #X obj 195 86 /; #X obj 160 86 *; #X obj 230 86 pow; #X text 33 121 COMPARACIONS; #X obj 90 144 ==; #X obj 121 144 !=; #X obj 155 144 >; #X obj 190 144 <; #X obj 225 144 >=; #X obj 260 144 <=; #X obj 307 86 mod; #X obj 342 86 div; #X text 33 179 TRIGONOMETRIQUES; #X obj 90 202 sin; #X obj 125 202 cos; #X obj 160 202 tan; #X text 213 179 LOGARITMIQUES I EXPONENCIALS; #X obj 270 202 log; #X obj 305 202 exp; #X text 33 236 RANDOM; #X obj 265 86 sqrt; #X floatatom 482 75 0 0 0 0 - - -; #X floatatom 482 156 0 0 0 0 - - -; #X floatatom 514 98 0 0 0 0 - - -; #X msg 462 45 bang; #X text 501 46 Bang treu la suma; #X text 515 76 A l'esquerra modifica el sumand 1 i treu la suma; #X text 547 98 A la dreta modifica el sumand 2 (parametre); #X obj 482 126 + 100; #X floatatom 611 160 5 0 0 0 - - -; #X floatatom 658 160 5 0 0 0 - - -; #X obj 658 219 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X floatatom 611 217 5 0 0 0 - - -; #X obj 611 187 >= 30; #X text 462 239 retorna 1 si la condicio es compleix i 0 en cas contrari ; #X floatatom 732 283 0 0 0 0 - - -; #X obj 732 327 * 6.28319; #X obj 732 305 / 360; #X text 805 327 2 x Pi; #X floatatom 732 349 0 0 0 0 - - -; #X text 805 349 Radian; #X floatatom 732 408 5 0 0 0 - - -; #X floatatom 699 350 0 0 0 0 - - -; #X obj 732 378 sin; #X obj 533 309 random 100; #X obj 533 284 bng 15 250 50 0 empty empty empty 0 -6 0 8 -260097 -83269 -1; #X floatatom 533 339 3 0 0 0 - - -; #X floatatom 600 282 5 0 0 0 - - -; #X msg 508 397 seed 33; #X obj 490 427 random 100; #X floatatom 490 457 3 0 0 0 - - -; #X msg 608 397 seed 33; #X obj 590 427 random 100; #X floatatom 590 457 3 0 0 0 - - -; #X obj 490 362 bng 15 250 50 0 empty empty empty 0 -6 0 8 -260097 -83269 -1; #X text 33 353 ALTRES; #X obj 70 376 max; #X obj 105 376 min; #X obj 140 376 clip; #X obj 35 376 abs; #X text 178 383 ...; #X obj 175 319 %; #X text 33 296 LOGIQUES; #X obj 35 319 &&; #X obj 70 319 ||; #X obj 105 319 &; #X obj 140 319 |; #X connect 26 0 33 0; #X connect 28 0 33 1; #X connect 29 0 33 0; #X connect 33 0 27 0; #X connect 34 0 38 0; #X connect 35 0 38 1; #X connect 38 0 36 0; #X connect 38 0 37 0; #X connect 40 0 42 0; #X connect 41 0 44 0; #X connect 42 0 41 0; #X connect 44 0 48 0; #X connect 47 0 48 0; #X connect 48 0 46 0; #X connect 49 0 51 0; #X connect 50 0 49 0; #X connect 52 0 49 1; #X connect 53 0 54 0; #X connect 54 0 55 0; #X connect 56 0 57 0; #X connect 57 0 58 0; #X connect 59 0 57 0; #X connect 59 0 54 0; #X restore 250 -255 pd matematics; #X text 7 -212 4 OBJECTES DE SENYAL D'AUDIO / REPRODUCCIO; #X text 7 -136 5 OBJECTES MIDI; #X obj 534 -431 inlet; #X obj 584 -431 outlet; #X text 337 -358 "clicar sobre cada caixa per ampliar la informacio" ; #N canvas 260 80 737 651 separadors 0; #X obj 999 77 moses; #X obj 162 188 spigot; #X obj 60 529 pack; #X obj 60 845 unpack; #X obj 700 286 trigger; #X obj 582 77 clip; #X obj 632 160 clip -50 50; #X floatatom 632 187 5 0 0 0 - - -; #X floatatom 632 136 5 0 0 0 - - -; #X floatatom 669 136 5 0 0 0 - - -; #X floatatom 706 136 5 0 0 0 - - -; #X msg 162 136 envio un missatge; #X floatatom 110 139 5 0 0 0 - - -; #X obj 162 218 print; #X obj 201 164 tgl 15 0 empty empty empty 0 -6 0 10 -260097 -83269 -1 0 1; #X obj 60 77 spigot; #X obj 60 434 select 10 20 30; #X obj 60 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 94 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 128 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 162 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X msg 60 371 10; #X msg 100 371 20; #X msg 140 371 30; #X msg 170 401 text; #X floatatom 177 374 5 0 0 0 - - -; #X obj 253 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 307 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 362 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X floatatom 332 407 5 0 0 0 - - -; #X msg 253 371 taller; #X msg 314 371 pd; #X obj 431 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 474 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 517 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 561 464 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X floatatom 384 374 5 0 0 0 - - -; #X msg 431 371 taller; #X obj 431 401 symbol; #X msg 487 401 symbol pd; #X obj 431 434 select taller pd 33; #X obj 253 434 select taller pd; #X obj 1049 164 moses 10; #X floatatom 1049 137 4 0 0 0 - - -; #X floatatom 1102 137 4 0 0 0 - - -; #X floatatom 1049 194 4 0 0 0 - - -; #X floatatom 1102 194 4 0 0 0 - - -; #X obj 60 286 select; #X obj 843 374 trigger float bang symbol list pointer anything; #X obj 947 413 t f b s l p a; #X text 746 362 "float" = f; #X text 746 374 "bang" = b; #X text 745 386 "symbol" = s; #X text 746 400 "list" = l; #X text 746 428 "anything" = a; #X text 746 414 "pointer" = p; #X text 937 393 es el mateix que; #X msg 929 473 envio un missatge; #X floatatom 882 471 5 0 0 0 - - -; #X obj 857 473 bng 15 250 50 0 empty empty empty 0 -6 0 10 -260097 -83269 -1; #X obj 857 503 t f b s a; #X obj 897 563 print --symbol:; #X obj 945 533 print --qualsevolcosa:; #X obj 877 595 print --bang:; #X obj 857 625 print --float:; #X obj 60 601 pack float symbol pointer; #X obj 374 602 pack f s p; #X text 249 601 es el mateix que; #X obj 264 672 bng 15 250 50 0 empty empty empty 0 -6 0 10 -260097 -83269 -1; #X msg 317 672 envio un missatge; #X obj 264 745 pack s f s; #X msg 297 642 envio 1 missatge; #X floatatom 367 698 5 0 0 0 - - -; #X obj 264 775 print elpaquet; #X msg 416 712 symbol cadena; #X floatatom 293 994 0 0 0 0 - - -; #X floatatom 418 994 0 0 0 0 - - -; #X floatatom 456 994 0 0 0 0 - - -; #X floatatom 259 994 0 0 0 0 - - -; #X msg 259 916 1 2; #X msg 297 916 3 4 shut; #X msg 377 916 5 6 pick 7 8; #X symbolatom 335 997 10 0 0 0 - - -; #X obj 259 953 unpack 0 0 s f f; #X text 57 42 INTERNALS DE FLUX DE DADES; #X text 57 102 DEIXA PASSAR (O BLOCA) EL MISSATGE SI ESTA ACTIVAT (O NO); #X text 577 102 DEIXA PASSAR UN NOMBRE ENTRE UN RANG DONAT; #X text 997 102 DEIXA PASSAR EL NOMBRE PER LA SORTIDA ESQUERRA SI ES MENO AL PARAMETRE. PER LA DRETA EN CAS CONTRARI; #X text 57 311 COMPARA NOMBRES O SYMBOLS (SEGONS EL TIPUS DEL PRIMER PARAMETRE) RETORNA UN BANG PER LA SORTIDA QUE COINCIDEIX \, O EN ALTRE CAS PER LA SORTIDA DE LA DRETA; #X msg 489 373 33; #X msg 569 405 33; #X text 697 311 RETORNA UNA SEQUENCIA DE MISSATGES ORDENADAMENT DE DRETA A ESQUERRA CONVERTINT LES DADES ALS TIPUS DEMANATS EN ELS PARAMETRES ; #X text 57 554 RETORNA UNA LLISTA QUE CONCATENA LES ENTRADES SEGUINT EL PATRO FORMAT PELS TIPUS DE DADES DEMANATS EN ELS PARAMETRES; #X text 57 870 DONADA UNA LLISTA RETORNA ELS SEUS ELEMENTS PER SEPARAT SEGUINT EL PATRO FORMAT PELS PARAMETRES; #X connect 1 0 13 0; #X connect 6 0 7 0; #X connect 8 0 6 0; #X connect 9 0 6 1; #X connect 10 0 6 2; #X connect 11 0 1 0; #X connect 12 0 1 0; #X connect 14 0 1 1; #X connect 16 0 17 0; #X connect 16 1 18 0; #X connect 16 2 19 0; #X connect 16 3 20 0; #X connect 21 0 16 0; #X connect 22 0 16 0; #X connect 23 0 16 0; #X connect 24 0 16 0; #X connect 25 0 16 0; #X connect 29 0 41 0; #X connect 30 0 41 0; #X connect 31 0 41 0; #X connect 36 0 38 0; #X connect 37 0 38 0; #X connect 38 0 40 0; #X connect 39 0 40 0; #X connect 40 0 32 0; #X connect 40 1 33 0; #X connect 40 2 34 0; #X connect 40 3 35 0; #X connect 41 0 26 0; #X connect 41 1 27 0; #X connect 41 2 28 0; #X connect 42 0 45 0; #X connect 42 1 46 0; #X connect 43 0 42 0; #X connect 44 0 42 1; #X connect 57 0 60 0; #X connect 58 0 60 0; #X connect 59 0 60 0; #X connect 60 0 64 0; #X connect 60 1 63 0; #X connect 60 2 61 0; #X connect 60 3 62 0; #X connect 68 0 70 0; #X connect 69 0 70 0; #X connect 70 0 73 0; #X connect 71 0 70 0; #X connect 72 0 70 1; #X connect 74 0 70 2; #X connect 79 0 83 0; #X connect 80 0 83 0; #X connect 81 0 83 0; #X connect 83 0 78 0; #X connect 83 1 75 0; #X connect 83 2 82 0; #X connect 83 3 76 0; #X connect 83 4 77 0; #X connect 89 0 38 0; #X connect 90 0 40 0; #X restore 250 -328 pd separadors; #N canvas 440 397 559 504 teclat 0; #X text 57 42 INTERNALS DE TECLAT; #X obj 166 126 key; #X floatatom 166 158 5 0 0 0 - - -; #X obj 60 77 key; #X obj 166 387 keyname; #X symbolatom 212 417 10 0 0 0 - - -; #X obj 60 325 keyname; #X obj 60 195 keyup; #X obj 166 257 keyup; #X floatatom 166 287 5 0 0 0 - - -; #X floatatom 166 417 5 0 0 0 - - -; #X obj 166 437 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 166 307 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X obj 166 178 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X text 57 102 ENVIA EL NOMBRE ASCII DE LA TECLA QUE ES PREM; #X text 57 220 ENVIA EL NOMBRE ASCII DE LA TECLA QUAN ES DEIXA ANAR AQUESTA; #X text 57 350 ENVIA UN 1 QUAN ES PREM QUALSEVOL TECLA I EL SIMBOL AMB EL NOM DE LA TRECLA QUE ES PREM; #X connect 1 0 2 0; #X connect 2 0 13 0; #X connect 4 0 10 0; #X connect 4 1 5 0; #X connect 8 0 9 0; #X connect 9 0 12 0; #X connect 10 0 11 0; #X restore 390 -328 pd teclat; #X text 7 -358 2 OBRIR I DESAR / SEPARADORS I TECLAT; #N canvas 824 122 576 450 obrirdesar 0; #X obj 166 164 openpanel; #X obj 60 77 openpanel; #X obj 166 139 bng 15 250 50 0 empty empty empty 0 -6 0 10 -260097 -83269 -1; #X obj 166 194 print; #X symbolatom 220 193 40 0 0 0 - - -; #X obj 60 232 savepanel; #X obj 166 294 bng 15 250 50 0 empty empty empty 0 -6 0 10 -260097 -83269 -1; #X obj 166 349 print; #X symbolatom 220 348 40 0 0 0 - - -; #X obj 166 319 savepanel; #X text 57 102 OBRE UNA FINESTRA DE DIALEG QUE PERMET OBTENIR UNA RUTA DE FITXER PER OBRIR; #X text 57 257 OBRE UNA FINESTRA DE DIALEG QUE PERMET OBTENIR UNA RUTA DE FITXER PER DESAR; #X text 57 42 OBTENIR RUTES PER OBRIR I DESAR; #X connect 0 0 3 0; #X connect 0 0 4 0; #X connect 2 0 0 0; #X connect 6 0 9 0; #X connect 9 0 7 0; #X connect 9 0 8 0; #X restore 110 -328 pd obrirdesar; #X text 7 -285 3 OBJECTES DE TEMPS I MATEMATICS; #X obj 534 -401 send; #X obj 584 -401 receive; #X text 22 -66 EN AQUEST PATCH NO APAREIXEN TOTS ELS INTERNALS \, PERO SI ELS QUE CREIEM MES SIGNIFICATIUS I UTILITZATS; #N canvas 0 28 1014 654 audiosignals 0; #X obj 44 -25 cnv 15 900 80 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 77 -15 adc~; #X obj 77 21 dac~; #X obj 585 -14 inlet~; #X obj 584 19 outlet~; #X obj 45 78 cnv 15 900 80 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 72 88 *~; #X obj 71 125 env~; #X obj 524 91 osc~; #X obj 525 124 phasor~; #X obj 45 232 cnv 15 900 80 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 75 276 delread~; #X obj 70 256 delwrite~; #X obj 646 240 hip~; #X obj 648 261 lop~; #X obj 653 283 bp~; #X obj 43 398 cnv 15 900 80 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 65 416 throw~; #X obj 65 445 catch~; #X obj 542 415 clip~; #X text 110 -18 "conversor analogico digital"; #X text 298 -18 la entrada de linea de nuestra tarjeta; #X text 113 19 "conversor digital analogico"; #X text 318 18 la salida de nuestra tarjeta; #X text 641 -13 crea una entrada de audio en un "subpath"; #X text 641 18 crea una salida de audio en un "subpath"; #N canvas 0 28 1014 654 ejemploUno 0; #X obj 256 61 adc~; #X obj 244 609 dac~; #N canvas 0 0 450 300 subpatch 0; #X obj 84 13 inlet~; #X obj 92 256 outlet~; #X obj 144 130 *~; #X obj 209 92 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 10 -4034 -1 -1 0 1; #X floatatom 369 107 5 0 0 0 - - -; #X text 227 73 volumen; #X text 179 127 multiplicamos por valores de 0 a 1; #X text 177 138 para aumentar o disminuir la amplitud; #X text 178 150 de la seņal; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X connect 3 0 4 0; #X restore 256 278 pd subpatch; #X text 337 275 abre el subpatch clikando encima!!; #X obj 383 403 env~; #X floatatom 383 486 5 0 0 0 - - -; #X obj 460 500 hsl 200 20 0 100 0 0 empty empty empty -2 -6 0 10 -257985 -1 -1 0 1; #X text 424 396 nos transforma la seņal en dB; #X text 428 411 podemos utilizarla para construir un meter; #X text 431 430 que nos mide el nivel de seņal.; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 2 0 1 1; #X connect 2 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X restore 228 177 pd ejemploUno; #X text 111 120 nos convierte una seņal de audio (rms) en una escala de 100dB; #X text 113 83 nos multiplica la seņal por el valor que le indiquemos \, lo que nos sirve para controlar la amplitud (volumen); #X text 585 85 nos genera una onda sinuidal de la frequencia que le indiquemos; #X text 589 122 nos genera una onda diente de sierra de la frequencia que le indiquemos; #N canvas 0 28 1014 654 ejemploDos 0; #X obj 202 237 osc~; #X obj 542 250 phasor~; #X obj 344 93 hsl 200 20 20 20000 1 0 empty empty empty -2 -6 0 10 -260097 -1 -1 0 1; #X floatatom 570 114 5 0 0 0 - - -; #X obj 368 595 dac~; #X obj 202 428 *~ 1; #X obj 541 428 *~ 1; #X obj 222 392 tgl 15 0 empty empty empty 0 -6 0 10 -4034 -1 -1 0 1 ; #X obj 562 391 tgl 15 0 empty empty empty 0 -6 0 10 -4034 -1 -1 0 1 ; #X text 330 390 compara el sonido; #X text 415 72 frequencia; #X connect 0 0 5 0; #X connect 1 0 6 0; #X connect 2 0 3 0; #X connect 2 0 0 0; #X connect 2 0 1 0; #X connect 5 0 4 0; #X connect 5 0 4 1; #X connect 6 0 4 0; #X connect 6 0 4 1; #X connect 7 0 5 1; #X connect 8 0 6 1; #X restore 678 176 pd ejemploDos; #X text 135 256 hace una copia de la seņal de la duracion que le indiquemos ; #X text 139 277 lee la seņal copiada con el retardo que le indiquemos ; #X text 155 233 se utilizan para construir DELAYS; #X text 695 240 hig pass filter; #X text 697 262 low pass filter; #X text 692 283 band pass filter; #X text 589 413 mantiene la sņal de audio entre un min y un maximo que le indicamos.; #X text 655 428 Nos puede servir para crear una distorsion.; #X text 120 414 envia una seņal de audio al catch~ correspondiente ; #X text 121 442 recibe seņales de audio de los throw correspondientes ; #N canvas 0 28 1014 654 ejemploTres 0; #X obj 43 -153 cnv 15 900 300 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 78 -107 bng 22 250 50 0 empty empty empty 17 7 0 10 -4032 -1 -1; #N canvas 0 0 450 300 (subpatch) 0; #X array file1 566845 float 2; #X coords 0 1 566845 -1 150 100 1; #X restore 771 -134 graph; #X obj 257 -20 cnv 15 300 150 empty empty empty 20 12 0 14 -191407 -66577 0; #X obj 274 -63 tabplay~ file1; #X obj 274 -119 bng 22 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; #X obj 267 230 dac~; #X obj 276 184 *~; #X obj 344 169 hsl 128 15 0 2 0 0 empty empty empty -2 -6 0 10 -4034 -1 -1 0 1; #N canvas 0 0 450 300 player 0; #X obj 110 -41 openpanel; #X obj 110 85 soundfiler; #X msg 110 28 read -resize \$1 file1; #X obj 111 -72 inlet; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 0 0; #X restore 78 -73 pd player; #X floatatom 417 74 5 0 999 0 - - -; #X text 576 45 <-- delay time; #X obj 417 101 delread~ delay1; #X obj 276 156 +~; #X obj 406 -2 delwrite~ delay1 1000; #X text 609 59 (msec); #X text 566 102 lee la linea de delay con el retardo que le indiquimos ; #X obj 418 47 hsl 128 15 0.05 5000 1 0 empty empty empty -2 -6 0 10 -262144 -1 -1 0 0; #X text 566 -4 escribe la linea de delay en este caso 1000 msec de duracion; #X text 57 -135 1 carga un archivo; #X text 261 -145 2 Play; #X obj 245 -290 cnv 15 450 90 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 284 -279 Delay es un efecto sonoro que consiste en yuxtaponer a una seņal de audio con una copia o mas de si misma pero con un cierto retraso. Si el tiempo de retraso es superior a 50 milisegundos nuestro oido lo percive como un eco........; #X obj 225 169 tgl 15 0 empty empty empty 0 -6 0 10 -159808 -1 -1 0 1; #X text 178 169 on/off; #X connect 1 0 9 0; #X connect 4 0 14 0; #X connect 4 0 13 0; #X connect 4 1 5 0; #X connect 5 0 4 0; #X connect 7 0 6 0; #X connect 7 0 6 1; #X connect 8 0 7 1; #X connect 10 0 12 0; #X connect 12 0 13 1; #X connect 13 0 7 0; #X connect 17 0 10 0; #X connect 23 0 7 1; #X restore 229 331 pd ejemploTres; #N canvas 0 28 1014 633 ejemploCuatro 0; #N canvas 0 28 1014 654 player 0; #X obj 103 -290 cnv 15 300 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 133 -111 readsf~ 2; #X obj 133 -270 bng 27 250 50 0 empty open open 0 -7 0 10 -191407 -1 -1; #X obj 133 -207 openpanel; #X msg 133 -167 open \$1; #X obj 223 -94 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X msg 226 -166 start; #X msg 313 -166 stop; #X obj 204 -283 cnv 15 150 45 empty empty empty 20 12 0 14 -191407 -66577 0; #X obj 226 -266 bng 20 250 50 0 empty play play 0 -7 0 10 -4034 -1 -1; #X obj 313 -266 bng 20 250 50 0 empty stop stop 0 -7 0 10 -159808 -1 -1; #X text 256 -115 -------------------tenemos que indicar el numero de canales del archivo que vamos a reproducir (1 \, 2 \, 3 \, 4 \, ect) ; #X obj 90 -57 cnv 15 500 120 empty empty empty 20 12 0 14 -233017 -33289 0; #X obj 245 -49 hsl 128 15 0 1 0 0 empty pan empty -2 -6 0 10 -262144 -1 -1 0 1; #X obj 144 -17 * -1; #X obj 144 6 + 1; #X obj 379 -282 cnv 15 150 45 empty empty empty 20 12 0 14 -191407 -66577 0; #X obj 403 -268 hsl 100 15 0 1 0 0 pan panorama panorama 24 7 0 10 -228856 -1 -1 0 1; #X text 386 -270 L; #X text 514 -271 R; #X obj 95 118 cnv 15 500 120 empty empty empty 20 12 0 14 -233017 -33289 0; #X obj 558 -304 cnv 15 50 100 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 575 -284 vsl 15 110 0 1.5 0 0 volumen volumen2 empty 0 -8 0 10 -191407 -1 -1 0 1; #X text 561 -304 volumen; #X obj 115 159 outlet~; #X obj 174 158 outlet~; #X obj 133 41 *~ 0.5; #X obj 184 41 *~ 0.5; #X connect 1 0 26 0; #X connect 1 1 27 0; #X connect 1 2 5 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 1 0; #X connect 6 0 1 0; #X connect 7 0 1 0; #X connect 9 0 6 0; #X connect 10 0 7 0; #X connect 13 0 14 0; #X connect 13 0 27 1; #X connect 14 0 15 0; #X connect 15 0 26 1; #X connect 26 0 24 0; #X connect 27 0 25 0; #X restore 137 -95 pd player; #X obj 139 -241 cnv 15 300 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 169 -221 bng 27 250 50 0 open empty open 0 -7 0 10 -191407 -1 -1; #X obj 240 -234 cnv 15 150 45 empty empty empty 20 12 0 14 -191407 -66577 0; #X obj 262 -217 bng 20 250 50 0 play empty play 0 -7 0 10 -4034 -1 -1; #X obj 349 -217 bng 20 250 50 0 stop empty stop 0 -7 0 10 -159808 -1 -1; #X obj 415 -233 cnv 15 150 45 empty empty empty 20 12 0 14 -191407 -66577 0; #X obj 439 -219 hsl 100 15 0 1 0 0 panorama empty panorama 24 7 0 10 -228856 -1 -1 0 1; #X text 422 -221 L; #X text 550 -222 R; #X obj 594 -255 cnv 15 50 100 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 611 -235 vsl 15 110 0 1.5 0 0 volumen2 empty empty 0 -8 0 10 -191407 -1 -1 0 1; #X text 597 -255 volumen; #X obj 155 352 dac~; #X obj 81 224 vsl 15 76 0 1.5 0 0 empty volumen empty 0 -8 0 10 -162280 -1 -1 0 1; #X obj 58 -55 cnv 15 800 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 135 -18 hip~; #X obj 187 -17 hip~; #X obj 240 -42 hsl 128 15 20 15000 1 0 empty empty cutoff_hz 6 6 0 10 -128992 -1 -1 0 1; #X floatatom 400 -27 7 0 0 0 - - -; #X text 247 -25 frequencia de corte; #X text 67 -48 hig pass; #X text 73 -28 FILTER; #X text 472 -46 FILTRO pasa altos.; #X text 593 -47 deja pasar solo las frecuencias por encima; #X text 592 -33 de la frecuencia de corte; #X obj 458 10 cnv 15 400 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 512 -25 hip~; #X text 472 14 FILTRO pasa bajos; #X obj 515 41 lop~; #X text 591 14 deja pasar sola las frequencias por debajo; #X text 593 31 de la frecuencia de corte; #X obj 196 140 cnv 15 800 120 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 387 150 hsl 128 15 20 20000 1 0 empty empty cutoff_hz 6 6 0 10 -128992 -1 -1 0 1; #X floatatom 545 165 7 0 0 0 - - -; #X text 394 165 frequencia de corte; #X text 214 191 FILTER; #X obj 330 234 bp~; #X obj 278 233 bp~; #X text 206 166 band pass; #X obj 385 207 hsl 128 15 0 25 0 0 empty empty empty -2 -6 0 10 -191407 -1 -1 0 1; #X text 607 151 FILTRO pasa banda.; #X text 738 149 deja pasar un arco(banda) de frecuencias; #X text 742 170 la frecuencia de corte nos indica el; #X floatatom 557 222 5 0 0 0 - - -; #X text 411 207 factor Q; #X text 570 206 Q; #X text 605 222 Y el factor Q el ancho de esa banda; #X text 612 238 un valor alto equivale a una Q estrecha; #X text 742 186 centro de es arco; #X obj 136 314 *~; #X obj 187 314 *~; #X connect 0 0 16 0; #X connect 0 1 17 0; #X connect 14 0 50 1; #X connect 14 0 51 1; #X connect 16 0 50 0; #X connect 17 0 51 0; #X connect 18 0 16 1; #X connect 18 0 17 1; #X connect 18 0 19 0; #X connect 33 0 34 0; #X connect 33 0 37 1; #X connect 33 0 38 1; #X connect 40 0 37 2; #X connect 40 0 44 0; #X connect 40 0 38 2; #X connect 50 0 13 0; #X connect 51 0 13 1; #X restore 671 331 pd ejemploCuatro; #N canvas 0 28 1022 658 ejemploCinco 0; #X obj 488 107 osc~ 200; #X obj 690 109 osc~ 200.33; #X obj 107 107 osc~ 120; #X obj 282 105 osc~ 120.33; #X obj 107 190 throw~ osciladores1; #X obj 691 189 throw~ osciladores2; #X obj 186 359 catch~ osciladores1; #X obj 663 357 catch~ osciladores2; #X obj 419 580 dac~; #X obj 187 504 *~; #X obj 662 502 *~; #X obj 423 439 hsl 128 15 0 1 0 0 empty empty volumen 20 6 0 10 -4034 -1 -1 0 1; #X obj 280 191 throw~ osciladores1; #X obj 489 191 throw~ osciladores2; #X obj 202 455 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 1; #X obj 677 454 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 1; #X text 222 452 on/off; #X text 701 448 on/off; #X connect 0 0 13 0; #X connect 1 0 5 0; #X connect 2 0 4 0; #X connect 3 0 12 0; #X connect 6 0 9 0; #X connect 7 0 10 0; #X connect 9 0 8 0; #X connect 10 0 8 1; #X connect 11 0 9 1; #X connect 11 0 10 1; #X connect 14 0 9 1; #X connect 15 0 10 1; #X restore 232 514 pd ejemploCinco; #N canvas 0 28 1014 654 ejemploSeis 0; #X obj 55 105 cnv 15 800 90 empty empty empty 20 12 0 14 -162280 -66577 0; #X obj 112 136 cnv 15 130 40 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 157 162 hsl 80 8 0 0.5 0 0 adisto empty a 6 4 0 10 -191407 -1 -1 0 1; #X obj 153 148 hradio 8 1 0 11 bdisto empty empty 0 -6 0 10 -99865 -4034 -1 0; #X obj 86 150 hsl 60 8 0 23 0 0 voldisto empty volumen 6 4 0 8 -128992 -258113 -1 0 1; #X obj 116 130 cnv 12 120 12 empty empty empty 20 12 0 14 -128992 -66577 0; #X text 143 128 distorsion; #X obj 128 129 tgl 12 0 ondisto empty empty 0 -6 0 10 -258113 -1 -1 0 1; #N canvas 0 28 1014 654 disto 0; #X obj 301 318 * 0.1; #X obj 217 384 clip~ -1 1; #X obj 242 279 * -0.1; #X obj 218 439 *~ 1; #X obj 350 424 hsl 128 15 0 23 0 0 empty voldisto voldisto -2 -6 0 10 -1 -258113 -1 0 1; #X obj 492 240 hradio 15 1 0 11 empty bdisto empty 0 -6 0 10 -262144 -1 -1 0; #X obj 493 270 * 0.05; #X obj 709 198 loadbang; #X msg 711 222 0; #X obj 497 203 hsl 128 15 0 0.5 0 0 empty adisto empty -2 -6 0 10 -262144 -1 -1 0 1; #X obj 223 501 outlet~; #X obj 167 208 inlet~; #X obj 107 40 cnv 15 500 90 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 119 46 Esta forma de producir distorsion \, se basa en el objeto clip~ \, que fuerza la seņal entre dos limites \, jugando con estos limites obtenemos un sonido distorsionado con variaciones de matices..... ; #X text 518 504 Merci daax! por la distorsion.; #X connect 0 0 1 2; #X connect 1 0 3 0; #X connect 2 0 1 1; #X connect 3 0 10 0; #X connect 4 0 3 1; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 6 0 2 0; #X connect 7 0 8 0; #X connect 8 0 5 0; #X connect 8 0 4 0; #X connect 9 0 0 0; #X connect 9 0 2 0; #X connect 11 0 1 0; #X restore 373 137 pd disto; #X obj 61 -103 cnv 15 900 180 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 96 -57 bng 22 250 50 0 empty empty empty 17 7 0 10 -4032 -1 -1; #N canvas 0 0 450 300 (subpatch) 0; #X array file2 376434 float 2; #X coords 0 1 376434 -1 150 100 1; #X restore 765 -67 graph; #X obj 292 -69 bng 22 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; #N canvas 0 0 450 300 player 0; #X obj 110 -41 openpanel; #X obj 110 85 soundfiler; #X obj 111 -72 inlet; #X msg 110 28 read -resize \$1 file2; #X connect 0 0 3 0; #X connect 2 0 0 0; #X connect 3 0 1 0; #X restore 96 -23 pd player; #X text 75 -85 1 carga un archivo; #X text 279 -95 2 Play; #X obj 292 275 *~; #X obj 373 277 *~; #X text 126 111 on; #X text 438 248 distorsion; #X obj 423 249 tgl 12 0 empty ondisto empty 0 -6 0 10 -258113 -1 -1 0 1; #X text 421 231 on; #X obj 138 233 hsl 128 15 0 1.4 0 0 empty volumendry volumenDry -2 -6 0 10 -128992 -1 -1 0 1; #X obj 325 451 dac~; #X obj 468 364 cnv 15 200 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 532 398 env~; #X obj 531 372 env~; #X text 712 351 VU Metter de salida; #X obj 474 -34 cnv 15 180 40 empty empty empty 20 12 0 14 -191407 -66577 0; #X obj 500 -19 hsl 128 15 0 1.4 0 0 volumendry empty volumenDry -2 -6 0 10 -128992 -1 -1 0 1; #X text 190 -85 mono; #X obj 893 366 cnv 15 20 60 empty empty empty 20 12 0 14 -258113 -66577 0; #X obj 596 378 hsl 300 15 0 100 0 0 empty empty empty -2 -6 0 10 -262144 -1 -1 0 1; #X obj 597 403 hsl 300 15 0 100 0 0 empty empty empty -2 -6 0 10 -262144 -1 -1 0 1; #X obj 292 335 *~; #X obj 373 337 *~; #X obj 292 -13 tabplay~ file2; #X text 442 135 dentro encontraremos a clip~; #X connect 8 0 17 0; #X connect 10 0 13 0; #X connect 12 0 36 0; #X connect 16 0 34 0; #X connect 16 0 35 0; #X connect 17 0 34 0; #X connect 17 0 35 0; #X connect 20 0 17 1; #X connect 22 0 16 1; #X connect 25 0 33 0; #X connect 26 0 32 0; #X connect 34 0 23 0; #X connect 34 0 25 0; #X connect 35 0 23 1; #X connect 35 0 26 0; #X connect 36 0 8 0; #X connect 36 0 16 0; #X connect 36 1 12 0; #X restore 683 519 pd ejemploSeis; #X restore 109 -179 pd audiosignals; #N canvas 0 28 1014 654 audio_player 0; #X obj 117 11 cnv 15 800 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 193 42 soundfiler; #X obj 194 18 tabplay~; #N canvas 0 28 1014 654 tabplay~ 0; #X obj 45 -282 cnv 15 900 300 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 77 -209 bng 22 250 50 0 empty empty empty 17 7 0 10 -4032 -1 -1; #N canvas 0 0 450 300 (subpatch) 0; #X array misonido 644963 float 2; #X coords 0 1 644963 -1 300 200 1; #X restore 565 -225 graph; #X obj 77 -166 openpanel; #X obj 77 -40 soundfiler; #X text 137 -261 1.cargamos un archivo mono en la tabla "file1"; #X text 166 -210 ------------------bang!!!; #X text 168 -168 ------------el objeto "openpanel" abre el navegador y; #X text 221 -99 ---el mensaje le dice al objeto "sounfiler" que lea ; #X obj 50 41 cnv 15 900 200 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 98 64 bng 22 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1 ; #X obj 95 203 dac~; #X text 172 66 -----------dispara!!!; #X obj 441 72 cnv 15 300 150 empty empty empty 20 12 0 14 -191407 -66577 0; #X obj 454 71 bng 22 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; #X obj 478 223 dac~; #X obj 488 130 *~; #X obj 556 115 hsl 128 15 0 2 0 0 empty empty empty -2 -6 0 10 -228856 -1 -1 0 1; #X floatatom 700 130 5 0 0 0 - - -; #X text 463 42 controlando la amplitud; #X text 82 42 reproducimos; #X text 65 43 2; #X text 452 41 3; #X text 616 41 (volumen); #X text 604 184 * 1 = igual volumen; #X text 604 202 * 2 = el doble; #X text 240 -151 seleccionamos un archivo "wav" mono; #X text 237 -83 el archivo selecionado "$1" \, "resize" que readapte ; #X text 240 -64 el tamaņo de la tabla al tamaņo del archivo \, y que lo escriba en la tabla que hemos llamado "file1"; #X text 287 118 tenemos en la tabla; #X text 209 104 -----------reproduce el archivo que; #X text 147 198 -------------y lo conectamos a la salida; #X text 208 213 de audio stereo de nuestra makina.; #X text 537 148 con el objeto "*~" multiplicamos; #X text 538 166 la seņal.. * 0 = 0; #X obj 807 104 bng 22 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; #X obj 888 166 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X text 795 49 4 modo LOOP; #X msg 77 -97 read -resize \$1 misonido; #X obj 98 105 tabplay~ misonido; #X obj 454 99 tabplay~ misonido; #X obj 807 132 tabplay~ misonido; #X connect 1 0 3 0; #X connect 3 0 38 0; #X connect 10 0 39 0; #X connect 14 0 40 0; #X connect 16 0 15 0; #X connect 16 0 15 1; #X connect 17 0 16 1; #X connect 17 0 18 0; #X connect 35 0 41 0; #X connect 36 0 35 0; #X connect 38 0 4 0; #X connect 39 0 11 0; #X connect 39 0 11 1; #X connect 40 0 16 0; #X connect 41 1 36 0; #X restore 678 31 pd tabplay~; #X text 279 30 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; #X obj 117 90 cnv 15 800 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 195 109 tabwrite~; #X text 283 108 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; #N canvas 0 28 1014 654 tabwrite~ 0; #X obj 101 107 osc~; #X obj 104 41 hsl 128 15 20 2000 0 0 empty empty empty -2 -6 0 10 -262144 -1 -1 0 1; #N canvas 0 0 450 300 graph3 0; #X array ondas 500 float 5; #A 0 -0.736109 -0.718917 -0.701274 -0.68319 -0.664677 -0.645748 -0.626412 -0.606683 -0.586573 -0.566095 -0.545261 -0.524081 -0.502573 -0.480749 -0.458624 -0.43621 -0.413523 -0.390576 -0.367384 -0.343962 -0.320323 -0.296484 -0.272458 -0.248261 -0.223909 -0.199416 -0.174797 -0.150069 -0.125247 -0.100345 -0.0753811 -0.0503693 -0.0253258 -0.000266324 0.0247934 0.0498375 0.0748501 0.0998156 0.124718 0.149543 0.174273 0.198894 0.22339 0.247746 0.271946 0.295975 0.319819 0.343461 0.366888 0.390085 0.413037 0.43573 0.458149 0.480281 0.502111 0.523626 0.544813 0.565657 0.586144 0.606261 0.625998 0.645342 0.664281 0.682802 0.700895 0.718548 0.735749 0.752489 0.768756 0.784541 0.799832 0.814622 0.828901 0.842659 0.855888 0.868579 0.880726 0.892319 0.903353 0.913819 0.923711 0.933023 0.941744 0.949874 0.957407 0.96434 0.970666 0.976384 0.981488 0.985976 0.989845 0.993093 0.995717 0.997716 0.999089 0.999834 0.999952 0.999442 0.998305 0.996541 0.994151 0.991137 0.987501 0.983245 0.978372 0.972881 0.966776 0.960065 0.952751 0.944838 0.936333 0.92724 0.917564 0.907313 0.896492 0.885108 0.873168 0.86068 0.847652 0.834092 0.820008 0.805409 0.790305 0.774704 0.758617 0.742053 0.725024 0.707539 0.68961 0.671245 0.652457 0.63326 0.613665 0.593686 0.573333 0.552621 0.531561 0.510168 0.488455 0.466435 0.444123 0.421531 0.398675 0.375568 0.352226 0.328662 0.304892 0.280931 0.256793 0.232494 0.208048 0.183472 0.158781 0.133989 0.109113 0.0841682 0.0591711 0.0341369 0.00908133 -0.0159798 -0.0410309 -0.0660562 -0.09104 -0.115967 -0.14082 -0.165586 -0.190247 -0.214789 -0.239196 -0.263453 -0.287545 -0.311456 -0.335172 -0.358678 -0.381958 -0.404999 -0.427784 -0.4503 -0.472532 -0.494468 -0.516093 -0.537394 -0.558358 -0.578971 -0.59922 -0.619094 -0.638578 -0.657662 -0.676332 -0.694578 -0.712389 -0.729751 -0.746656 -0.763092 -0.779049 -0.794517 -0.809486 -0.823947 -0.837891 -0.851309 -0.864187 -0.876523 -0.888308 -0.899535 -0.910197 -0.920288 -0.929801 -0.938731 -0.947071 -0.954816 -0.961962 -0.968504 -0.974438 -0.97976 -0.984467 -0.988556 -0.992024 -0.99487 -0.997091 -0.998686 -0.999654 -0.999994 -0.999707 -0.998791 -0.997242 -0.995068 -0.992268 -0.988846 -0.984803 -0.980142 -0.974865 -0.968976 -0.962479 -0.955378 -0.947677 -0.939381 -0.930495 -0.921025 -0.910977 -0.900357 -0.889172 -0.877428 -0.865133 -0.852295 -0.838922 -0.825023 -0.810605 -0.795676 -0.780244 -0.764323 -0.747922 -0.731052 -0.713723 -0.695945 -0.677731 -0.659092 -0.640038 -0.620583 -0.600738 -0.580516 -0.55993 -0.538992 -0.517716 -0.496114 -0.474201 -0.45199 -0.429496 -0.406731 -0.383712 -0.360451 -0.336964 -0.313263 -0.289365 -0.265286 -0.241041 -0.216644 -0.192111 -0.167458 -0.1427 -0.117852 -0.0929305 -0.0679505 -0.0429278 -0.0178782 0.00718274 0.0322391 0.0572753 0.0822756 0.107224 0.132106 0.156904 0.181605 0.206191 0.230648 0.25496 0.279111 0.303086 0.326871 0.35045 0.37381 0.396934 0.41981 0.442421 0.464755 0.486798 0.508534 0.529951 0.551036 0.571774 0.592154 0.612162 0.631785 0.651012 0.669831 0.688229 0.706195 0.723717 0.740786 0.757387 0.77351 0.789147 0.804289 0.818925 0.833048 0.846648 0.859715 0.872244 0.884224 0.895649 0.906512 0.916806 0.926525 0.935661 0.944211 0.952167 0.959526 0.966282 0.972432 0.977971 0.982896 0.987204 0.990893 0.993954 0.99639 0.9982 0.999384 0.99994 0.999869 0.99917 0.997844 0.995891 0.993313 0.990112 0.986289 0.981846 0.976787 0.971115 0.964834 0.957946 0.950457 0.942372 0.933695 0.924431 0.914587 0.904169 0.893182 0.88163 0.869524 0.856873 0.843683 0.829964 0.815724 0.800972 0.785717 0.769969 0.753737 0.737032 0.719865 0.702245 0.684185 0.665695 0.646787 0.627473 0.607765 0.587675 0.567217 0.546402 0.525244 0.503756 0.48195 0.45984 0.437441 0.414768 0.391835 0.368656 0.345245 0.321618 0.297789 0.273772 0.249584 0.22524 0.200754 0.176142 0.151419 0.126601 0.101704 0.0767427 0.0517332 0.0266912 0.00163227 -0.0234278 -0.0484733 -0.0734884 -0.0984571 -0.123364 -0.148193 -0.172929 -0.197556 -0.222059 -0.246423 -0.270631 -0.29467 -0.318524 -0.342178 -0.365617 -0.388827 -0.411792 -0.434499 -0.456933 -0.47908 -0.500927 -0.522459 -0.543663 -0.564526 -0.585035 -0.605176 -0.624937 -0.644302 -0.663263 -0.681807 -0.699923 -0.7176 -0.734826 -0.75159 -0.767883 -0.783694 -0.799012 -0.813829 -0.828135 -0.841921 -0.855178 -0.867899 -0.880075 -0.891698 -0.902761 -0.913258 -0.923181 -0.932525 -0.941283 -0.949451 -0.957019 -0.963983 -0.970343 -0.976093 -0.98123 -0.985751 -0.989653 -0.992934 -0.995591 -0.997624 -0.99903 -0.999809 -0.99996 -0.999484 -0.998379 -0.996649 -0.994292 -0.991311 -0.987708 -0.983484 -0.978644 -0.973188 -0.967122 -0.960449 -0.953167 -0.945286 -0.936812 -0.927749 -0.918104 -0.907883 -0.897092 -0.885737 -0.873827 -0.861368 -0.848368 -0.834835 -0.820779 -0.806207 -0.791129 -0.775554; #X coords 0 1 499 -1 400 240 1; #X restore 488 112 graph; #X obj 201 243 tabwrite~ ondas; #X msg 222 175 bang; #X text 164 266 escribe en una tabla la seņal de audio; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 4 0 3 0; #X restore 676 106 pd tabwrite~; #X obj 119 169 cnv 15 800 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 202 177 readsf~; #X text 290 188 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; #X obj 200 200 writesf~; #N canvas 0 28 1014 654 readsf&writesf 0; #X obj 189 -187 cnv 15 300 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 219 -8 readsf~ 2; #X obj 219 -167 bng 27 250 50 0 empty empty open 0 -7 0 10 -191407 -1 -1; #X obj 219 -104 openpanel; #X msg 219 -64 open \$1; #X obj 309 9 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X msg 312 -63 start; #X msg 399 -63 stop; #X obj 290 -180 cnv 15 150 45 empty empty empty 20 12 0 14 -191407 -66577 0; #X obj 312 -163 bng 20 250 50 0 empty empty play 0 -7 0 10 -4034 -1 -1; #X obj 399 -163 bng 20 250 50 0 empty empty stop 0 -7 0 10 -159808 -1 -1; #X text 342 -12 -------------------tenemos que indicar el numero de canales del archivo que vamos a reproducir (1 \, 2 \, 3 \, 4 \, ect) ; #X obj 249 387 dac~; #X obj 200 107 *~; #X obj 275 107 *~; #X obj 343 70 hsl 128 15 0 1 0 0 empty empty volumen -2 -6 0 10 -262144 -1 -1 0 1; #X obj 112 156 cnv 15 800 200 empty empty empty 20 12 0 14 -233017 -66577 0; #X msg 494 284 start; #X msg 551 285 stop; #X obj 388 335 writesf~ 2; #X obj 386 159 bng 15 250 50 0 empty open empty 0 -6 0 10 -262144 -1 -1; #X msg 386 223 open \$1; #X obj 386 190 savepanel; #X text 449 189 --------->>> primero abrimos el navegador y selecionamos ; #X text 519 204 ubicacion y nombre del archivo que vamos a grabar "xx.wav" ; #X text 515 249 savepanel es similar a openpanel solo que para salvar archivos; #X text 456 224 ------->> no olvidarnos de la extension .wav (formato) ; #X text 621 282 comment; #X text 472 333 el argumento 2 para grabar archivos stereo \, podemos grabar de mas si queremos (3 \, 4 \, 5 \, 6 \, ...); #X connect 1 0 13 0; #X connect 1 1 14 0; #X connect 1 2 5 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 1 0; #X connect 6 0 1 0; #X connect 7 0 1 0; #X connect 9 0 6 0; #X connect 10 0 7 0; #X connect 13 0 12 0; #X connect 13 0 19 0; #X connect 14 0 12 1; #X connect 14 0 19 1; #X connect 15 0 14 1; #X connect 15 0 13 1; #X connect 17 0 19 0; #X connect 18 0 19 0; #X connect 20 0 22 0; #X connect 21 0 19 0; #X connect 22 0 21 0; #X restore 691 190 pd readsf&writesf; #X restore 248 -179 pd audio_player; #N canvas 0 28 1014 654 midi 0; #X obj 41 -170 cnv 15 900 90 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 74 -160 notein; #X obj 550 -167 noteout; #X text 153 -161 ---->> lee las notas del puerto midi .; #X text 192 -137 en la salida de la izquierda nos da el numero de nota ; #X text 193 -123 en la central la velocidad (la fuerza de la nota) ; #X text 195 -110 en la salida de la derecha el numero canal midi; #X floatatom 50 -123 5 0 0 0 - - -; #X floatatom 84 -102 5 0 0 0 - - -; #X floatatom 126 -101 5 0 0 0 - - -; #X text 612 -168 ----->> el camino inverso \, desde pd mandamos notas ; #X text 619 -142 con su velocidad (fuerza) correspondiente al canal ; #X text 331 -43 si no le especificamos ningun canal midi leera y mandara notas por todos los canales; #X text 620 -119 midi que le indiquemos. Del aparato midi que tengamos ; #X text 624 -95 conectado.; #X obj 123 76 cnv 15 600 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 165 91 mtof; #X obj 829 212 osc~; #X obj 829 355 dac~; #X floatatom 166 164 5 0 0 0 - - -; #X floatatom 165 48 5 0 0 0 - - -; #X obj 124 231 cnv 15 600 60 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 165 247 ftom; #X floatatom 166 313 5 0 0 0 - - -; #X text 206 78 "midi a frequencia"; #X text 349 79 nos transforma los valores de la nota midi en valores de frecuencia.; #X text 207 249 "frequencia a midi"; #X text 357 249 el inverso nos transforma valores de frequencia a sus valores midi correspondientes; #X floatatom 526 -235 5 0 0 0 - - -; #X floatatom 562 -218 5 0 0 0 - - -; #X floatatom 599 -198 5 0 0 0 - - -; #X text 118 45 midi; #X text 89 162 frequencia; #X text 116 311 midi; #X obj 888 263 tgl 15 0 empty empty empty 0 -6 0 10 -4034 -1 -1 0 1 ; #X obj 839 278 *~; #X text 906 259 on/off audio; #X connect 1 0 7 0; #X connect 1 1 8 0; #X connect 1 2 9 0; #X connect 7 0 20 0; #X connect 16 0 17 0; #X connect 16 0 19 0; #X connect 17 0 35 0; #X connect 19 0 22 0; #X connect 20 0 16 0; #X connect 22 0 23 0; #X connect 28 0 2 0; #X connect 29 0 2 1; #X connect 30 0 2 2; #X connect 34 0 35 1; #X connect 35 0 18 0; #X connect 35 0 18 1; #X restore 110 -109 pd midi; #X text 351 15 Oscar Martin -- noisedreamsmachina(at)yahoo.com;