#N canvas 37 26 745 534 10;
#X obj 29 306 dac~;
#X floatatom 662 80 5 0 0 0 - - -;
#X floatatom 249 72 5 0 0 0 - - -;
#X text 291 66 tempo di ritardo in MS;
#N canvas 0 22 450 300 (subpatch) 0;
#X array fft 65536 float 0;
#X coords 0 1000 65535 0 200 140 1;
#X restore 272 -94 graph;
#N canvas 112 140 606 384 analisi 0;
#X obj 97 45 fft~;
#X obj 131 108 *~;
#X obj 88 110 *~;
#X obj 112 138 +~;
#X text 146 45 fft;
#X obj 112 164 sqrt~;
#X text 16 164 radice quad.;
#X obj 112 226 tabwrite~ fft;
#X obj 57 12 inlet~;
#X text 341 62 argomento: larghezza finestra;
#X obj 218 13 inlet;
#X text 161 107 comment;
#X obj 251 66 block~ 65536;
#X obj 167 189 metro 50;
#X connect 0 0 2 0;
#X connect 0 0 2 1;
#X connect 0 1 1 0;
#X connect 0 1 1 1;
#X connect 1 0 3 1;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 7 0;
#X connect 8 0 0 0;
#X connect 10 0 13 0;
#X connect 13 0 7 0;
#X restore 221 302 pd analisi;
#X obj 299 267 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 72 20 +~;
#X obj 267 170 *~;
#X obj 345 163 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 10200 1;
#X floatatom 344 308 5 0 0 0 - - -;
#X obj 660 218 osc~;
#X obj 560 85 * 2;
#X obj 559 111 / 1000;
#X msg 560 190 1;
#X obj 588 229 /;
#X obj 560 150 t b f;
#X floatatom 590 270 5 0 0 0 - - -;
#X obj 260 228 *~ -1;
#X obj 222 232 +~;
#X obj 445 -128 tabwrite~ INPUT;
#N canvas 0 22 450 300 (subpatch) 0;
#X array INPUT 4096 float 0;
#X coords 0 1 4095 -1 200 140 1;
#X restore 494 -94 graph;
#X obj 479 -188 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X text 26 336 Il filtro ALL-PASS compensa la colorazione introdotta
dal filtro COMB \, inserendo nel mix tra segnale ORIGINALE e segnale
RITARDATO (del comb) un segnale ritardato INVERSO rispetto al ritardato
del COMB.;
#X text 27 409 CREAZIONE DI UN RIVERBERO: L'utilizzo del filtro COMB
suggerisce le PRIME RIFLESSIONI \, emulando quindi la risposta di un
ambiente. La lunghezza del ritardo del COMB simula la DIMENSIONE DELL'AMBIENTE
RIVERBERANTE. Il numero di filtri comb utilizzato nell'emulazione digitale
di un riverbero il numero delle prime riflessioni dell'ambiente (6
\, per un ambiente a forma di parallelepipedo standard). Il filtro
ALL PASS viene utilizzato per la CODA DEL RIVERBERO. Rispetto al filtro
COMB \, l'ALL PASS non taglia frequenze acute. La simulazione della
perdita di energia alle frequenze alte (realistica) si pu ottenere
con dei filtri LO-PASS.;
#N canvas 35 26 769 559 source 0;
#X msg 26 -105 1;
#X msg 69 -107 0;
#X obj 155 -133 t b b;
#X obj 59 -44 readsf~ 2;
#X obj 257 -18 noise~;
#X msg 517 -75 1;
#X msg 474 -74 0;
#X obj 406 -166 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 406 -111 t b b;
#X obj 480 -33 sig~;
#X obj 406 -141 metro 1000;
#X obj 488 -181 phasor~ 1;
#X obj 488 -140 threshold~ 0.99 10 0.2 10;
#X floatatom 485 -207 5 0 0 0 - - -;
#X obj 304 164 outlet~;
#X obj 303 81 *~;
#X obj 393 78 *~;
#X obj 211 79 *~;
#X msg 341 22 0;
#X msg 217 26 0;
#X msg 413 29 0;
#X msg 308 24 1;
#X msg 186 25 1;
#X msg 380 29 1;
#X obj 60 -22 *~ 30;
#X obj 299 -255 inlet;
#X obj 273 -224 select 0 1 2 3;
#X msg 57 -79 open /users/enricobaracco/desktop/sacre.aiff;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 2 1 27 0;
#X connect 3 0 24 0;
#X connect 3 2 2 0;
#X connect 4 0 15 0;
#X connect 5 0 9 0;
#X connect 6 0 9 0;
#X connect 7 0 10 0;
#X connect 8 0 6 0;
#X connect 8 1 5 0;
#X connect 9 0 16 0;
#X connect 10 0 8 0;
#X connect 11 0 12 0;
#X connect 12 0 5 0;
#X connect 12 1 6 0;
#X connect 13 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 14 0;
#X connect 17 0 14 0;
#X connect 18 0 15 1;
#X connect 19 0 17 1;
#X connect 20 0 16 1;
#X connect 21 0 15 1;
#X connect 22 0 17 1;
#X connect 23 0 16 1;
#X connect 24 0 17 0;
#X connect 25 0 26 0;
#X connect 26 0 22 0;
#X connect 26 0 18 0;
#X connect 26 0 20 0;
#X connect 26 0 2 0;
#X connect 26 1 1 0;
#X connect 26 1 21 0;
#X connect 26 1 19 0;
#X connect 26 1 20 0;
#X connect 26 2 1 0;
#X connect 26 2 19 0;
#X connect 26 2 18 0;
#X connect 26 2 23 0;
#X connect 26 3 19 0;
#X connect 26 3 18 0;
#X connect 26 3 20 0;
#X connect 27 0 3 0;
#X restore 43 -157 pd source;
#X obj 44 -201 hradio 15 1 0 4 empty empty empty 0 -8 0 10 -262144
-1 -1 3;
#X obj 28 116 delwrite~ FeedBack 1000;
#X obj 251 113 delread~ FeedBack;
#X obj 21 147 delwrite~ FeedForward 1000;
#X obj 278 137 delread~ FeedForward;
#X obj 160 214 * -1;
#X obj 111 226 *~;
#X obj 27 256 +~;
#X obj 444 -153 metro 500;
#X text 368 279 controllo di feedback;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 2 0 28 0;
#X connect 2 0 30 0;
#X connect 6 0 5 1;
#X connect 7 0 27 0;
#X connect 8 0 7 1;
#X connect 8 0 18 0;
#X connect 9 0 8 1;
#X connect 9 0 10 0;
#X connect 10 0 31 0;
#X connect 12 0 13 0;
#X connect 13 0 16 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 16 0 14 0;
#X connect 16 1 15 1;
#X connect 17 0 1 0;
#X connect 18 0 19 1;
#X connect 19 0 5 0;
#X connect 22 0 34 0;
#X connect 25 0 7 0;
#X connect 25 0 29 0;
#X connect 25 0 0 1;
#X connect 26 0 25 0;
#X connect 28 0 8 0;
#X connect 28 0 33 0;
#X connect 30 0 32 0;
#X connect 31 0 32 1;
#X connect 32 0 33 1;
#X connect 33 0 0 0;
#X connect 33 0 20 0;
#X connect 34 0 20 0;