faa/puredata/radio_spell_workshop/vfreeverb~.pd

778 lines
19 KiB
Text

#N canvas 469 40 438 333 10;
#X obj 85 13 hsl 128 15 0 1 0 1 empty empty 'roomsize' 20 8 0 10 -262144
-260097 -1 11700 0;
#X obj 100 56 hsl 128 15 0 2 0 1 empty empty damp 20 8 0 10 -262144
-260097 -1 11800 0;
#X obj 46 175 adc~;
#X obj 52 270 output~;
#X floatatom 91 34 5 0 0 0 - - -;
#X floatatom 106 76 5 0 0 0 - - -;
#X obj 130 149 hsl 128 15 0 1 0 1 empty empty wet 20 8 0 10 -262144
-260097 -1 3100 0;
#X obj 115 99 hsl 128 15 0 1 0 1 empty empty dry 20 8 0 10 -262144
-260097 -1 3400 0;
#X floatatom 141 172 5 0 0 0 - - -;
#X floatatom 120 123 5 0 0 0 - - -;
#N canvas 92 310 634 321 vfreeverb~ 0;
#N canvas 261 41 778 367 combfilters-left1 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 61 141 delread~ \$0-comb1left;
#X obj 246 142 delread~ \$0-comb2left;
#X obj 429 141 delread~ \$0-comb3left;
#X obj 610 141 delread~ \$0-comb4left;
#X obj 46 268 delwrite~ \$0-comb1left 100;
#X obj 231 268 delwrite~ \$0-comb2left 100;
#X obj 414 267 delwrite~ \$0-comb3left 100;
#X obj 595 267 delwrite~ \$0-comb4left 100;
#X obj 61 97 r \$0-comb1left;
#X obj 246 97 r \$0-comb2left;
#X obj 429 95 r \$0-comb3left;
#X obj 610 96 r \$0-comb4left;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X floatatom 70 119 5 0 0 0 - - -;
#X floatatom 255 121 5 0 0 0 - - -;
#X floatatom 439 119 5 0 0 0 - - -;
#X floatatom 622 121 5 0 0 0 - - -;
#X obj 279 58 clip 0 0.99;
#X obj 279 29 r \$0-room;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 17 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 18 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 19 0;
#X connect 12 0 2 0;
#X connect 12 0 29 0;
#X connect 13 0 5 0;
#X connect 13 0 29 0;
#X connect 14 0 7 0;
#X connect 14 0 29 0;
#X connect 15 0 10 0;
#X connect 15 0 29 0;
#X connect 20 0 12 0;
#X connect 20 0 30 0;
#X connect 21 0 13 0;
#X connect 21 0 31 0;
#X connect 22 0 14 0;
#X connect 22 0 32 0;
#X connect 23 0 15 0;
#X connect 23 0 33 0;
#X connect 24 0 2 1;
#X connect 25 0 5 1;
#X connect 26 0 7 1;
#X connect 27 0 10 1;
#X connect 28 0 0 0;
#X connect 28 0 3 0;
#X connect 28 0 8 0;
#X connect 28 0 11 0;
#X connect 34 0 1 1;
#X connect 34 0 4 1;
#X connect 34 0 6 1;
#X connect 34 0 9 1;
#X connect 35 0 34 0;
#X restore 15 100 pd combfilters-left1;
#N canvas 27 56 358 650 diffusor-left 0;
#X obj 51 107 *~ 0.5;
#X obj 36 132 +~;
#X obj 66 132 -~;
#X obj 36 26 inlet~;
#X obj 81 238 *~ 0.5;
#X obj 66 263 +~;
#X obj 96 263 -~;
#X obj 111 368 *~ 0.5;
#X obj 96 393 +~;
#X obj 126 393 -~;
#X obj 141 498 *~ 0.5;
#X obj 126 523 +~;
#X obj 156 523 -~;
#X obj 156 605 outlet~;
#X text 95 28 freeverb's diffusor;
#X obj 156 576 hip~ 5;
#X floatatom 214 70 5 0 0 0 - - -;
#X floatatom 246 203 5 0 0 0 - - -;
#X floatatom 280 334 5 0 0 0 - - -;
#X floatatom 304 464 5 0 0 0 - - -;
#X obj 51 53 r \$0-allpass1left;
#X obj 51 80 delread~ \$0-allpass1left;
#X obj 36 158 delwrite~ \$0-allpass1left 40;
#X obj 81 186 r \$0-allpass2left;
#X obj 81 211 delread~ \$0-allpass2left;
#X obj 66 290 delwrite~ \$0-allpass2left 40;
#X obj 111 317 r \$0-allpass3left;
#X obj 111 341 delread~ \$0-allpass3left;
#X obj 96 420 delwrite~ \$0-allpass3left 40;
#X obj 141 447 r \$0-allpass4left;
#X obj 141 471 delread~ \$0-allpass4left;
#X obj 126 550 delwrite~ \$0-allpass4left 40;
#X connect 0 0 1 1;
#X connect 1 0 22 0;
#X connect 2 0 5 0;
#X connect 2 0 6 1;
#X connect 3 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 5 1;
#X connect 5 0 25 0;
#X connect 6 0 8 0;
#X connect 6 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 28 0;
#X connect 9 0 11 0;
#X connect 9 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 31 0;
#X connect 12 0 15 0;
#X connect 15 0 13 0;
#X connect 20 0 16 0;
#X connect 20 0 21 0;
#X connect 21 0 0 0;
#X connect 21 0 2 0;
#X connect 23 0 17 0;
#X connect 23 0 24 0;
#X connect 24 0 4 0;
#X connect 24 0 6 0;
#X connect 26 0 18 0;
#X connect 26 0 27 0;
#X connect 27 0 7 0;
#X connect 27 0 9 0;
#X connect 29 0 19 0;
#X connect 29 0 30 0;
#X connect 30 0 10 0;
#X connect 30 0 12 0;
#X restore 15 168 pd diffusor-left;
#N canvas 312 366 778 367 combfilters-left2 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X obj 61 90 r \$0-comb5left;
#X obj 61 141 delread~ \$0-comb5left;
#X obj 46 268 delwrite~ \$0-comb5left 100;
#X obj 246 90 r \$0-comb6left;
#X obj 246 142 delread~ \$0-comb6left;
#X obj 231 268 delwrite~ \$0-comb6left 100;
#X obj 429 88 r \$0-comb7left;
#X obj 429 141 delread~ \$0-comb7left;
#X obj 414 267 delwrite~ \$0-comb7left 100;
#X obj 610 89 r \$0-comb8left;
#X obj 610 141 delread~ \$0-comb8left;
#X obj 595 267 delwrite~ \$0-comb8left 100;
#X floatatom 70 116 5 0 0 0 - - -;
#X floatatom 261 118 5 0 0 0 - - -;
#X floatatom 440 117 5 0 0 0 - - -;
#X floatatom 620 116 5 0 0 0 - - -;
#X obj 279 58 clip 0 0.99;
#X obj 279 28 r \$0-room;
#X connect 0 0 20 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 23 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 26 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 29 0;
#X connect 12 0 2 1;
#X connect 13 0 5 1;
#X connect 14 0 7 1;
#X connect 15 0 10 1;
#X connect 16 0 0 0;
#X connect 16 0 3 0;
#X connect 16 0 8 0;
#X connect 16 0 11 0;
#X connect 18 0 19 0;
#X connect 18 0 30 0;
#X connect 19 0 2 0;
#X connect 19 0 17 0;
#X connect 21 0 22 0;
#X connect 21 0 31 0;
#X connect 22 0 5 0;
#X connect 22 0 17 0;
#X connect 24 0 25 0;
#X connect 24 0 32 0;
#X connect 25 0 7 0;
#X connect 25 0 17 0;
#X connect 27 0 28 0;
#X connect 27 0 33 0;
#X connect 28 0 10 0;
#X connect 28 0 17 0;
#X connect 34 0 1 1;
#X connect 34 0 4 1;
#X connect 34 0 6 1;
#X connect 34 0 9 1;
#X connect 35 0 34 0;
#X restore 36 134 pd combfilters-left2;
#N canvas 261 41 778 367 combfilters-right1 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X floatatom 70 119 5 0 0 0 - - -;
#X floatatom 255 121 5 0 0 0 - - -;
#X floatatom 439 119 5 0 0 0 - - -;
#X floatatom 622 121 5 0 0 0 - - -;
#X obj 61 141 delread~ \$0-comb1right;
#X obj 246 142 delread~ \$0-comb2right;
#X obj 429 141 delread~ \$0-comb3right;
#X obj 610 141 delread~ \$0-comb4right;
#X obj 61 97 r \$0-comb1right;
#X obj 246 97 r \$0-comb2right;
#X obj 429 95 r \$0-comb3right;
#X obj 610 97 r \$0-comb4right;
#X obj 46 268 delwrite~ \$0-comb1right 100;
#X obj 231 268 delwrite~ \$0-comb2right 100;
#X obj 414 267 delwrite~ \$0-comb3right 100;
#X obj 595 267 delwrite~ \$0-comb4right 100;
#X obj 279 58 clip 0 0.99;
#X obj 279 28 r \$0-room;
#X connect 0 0 30 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 31 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 32 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 33 0;
#X connect 12 0 2 1;
#X connect 13 0 5 1;
#X connect 14 0 7 1;
#X connect 15 0 10 1;
#X connect 16 0 0 0;
#X connect 16 0 3 0;
#X connect 16 0 8 0;
#X connect 16 0 11 0;
#X connect 22 0 2 0;
#X connect 22 0 17 0;
#X connect 23 0 5 0;
#X connect 23 0 17 0;
#X connect 24 0 7 0;
#X connect 24 0 17 0;
#X connect 25 0 10 0;
#X connect 25 0 17 0;
#X connect 26 0 18 0;
#X connect 26 0 22 0;
#X connect 27 0 19 0;
#X connect 27 0 23 0;
#X connect 28 0 20 0;
#X connect 28 0 24 0;
#X connect 29 0 21 0;
#X connect 29 0 25 0;
#X connect 34 0 1 1;
#X connect 34 0 4 1;
#X connect 34 0 6 1;
#X connect 34 0 9 1;
#X connect 35 0 34 0;
#X restore 208 99 pd combfilters-right1;
#N canvas 312 366 778 367 combfilters-right2 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X floatatom 70 116 5 0 0 0 - - -;
#X floatatom 261 118 5 0 0 0 - - -;
#X floatatom 440 117 5 0 0 0 - - -;
#X floatatom 620 116 5 0 0 0 - - -;
#X obj 279 58 clip 0 0.99;
#X obj 61 90 r \$0-comb5right;
#X obj 246 90 r \$0-comb6right;
#X obj 429 88 r \$0-comb7right;
#X obj 610 89 r \$0-comb8right;
#X obj 61 141 delread~ \$0-comb5right;
#X obj 246 142 delread~ \$0-comb6right;
#X obj 429 141 delread~ \$0-comb7right;
#X obj 610 141 delread~ \$0-comb8right;
#X obj 46 268 delwrite~ \$0-comb5right 100;
#X obj 231 268 delwrite~ \$0-comb6right 100;
#X obj 414 267 delwrite~ \$0-comb7right 100;
#X obj 595 267 delwrite~ \$0-comb8right 100;
#X obj 279 28 r \$0-room;
#X connect 0 0 31 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 32 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 33 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 34 0;
#X connect 12 0 2 1;
#X connect 13 0 5 1;
#X connect 14 0 7 1;
#X connect 15 0 10 1;
#X connect 16 0 0 0;
#X connect 16 0 3 0;
#X connect 16 0 8 0;
#X connect 16 0 11 0;
#X connect 22 0 1 1;
#X connect 22 0 4 1;
#X connect 22 0 6 1;
#X connect 22 0 9 1;
#X connect 23 0 18 0;
#X connect 23 0 27 0;
#X connect 24 0 19 0;
#X connect 24 0 28 0;
#X connect 25 0 20 0;
#X connect 25 0 29 0;
#X connect 26 0 21 0;
#X connect 26 0 30 0;
#X connect 27 0 2 0;
#X connect 27 0 17 0;
#X connect 28 0 5 0;
#X connect 28 0 17 0;
#X connect 29 0 7 0;
#X connect 29 0 17 0;
#X connect 30 0 10 0;
#X connect 30 0 17 0;
#X connect 35 0 22 0;
#X restore 225 133 pd combfilters-right2;
#N canvas 27 56 358 650 diffusor-right 0;
#X obj 51 107 *~ 0.5;
#X obj 36 132 +~;
#X obj 66 132 -~;
#X obj 36 26 inlet~;
#X obj 81 238 *~ 0.5;
#X obj 66 263 +~;
#X obj 96 263 -~;
#X obj 111 368 *~ 0.5;
#X obj 96 393 +~;
#X obj 126 393 -~;
#X obj 141 498 *~ 0.5;
#X obj 126 523 +~;
#X obj 156 523 -~;
#X obj 156 605 outlet~;
#X text 95 28 freeverb's diffusor;
#X obj 156 576 hip~ 5;
#X floatatom 214 70 5 0 0 0 - - -;
#X floatatom 244 203 5 0 0 0 - - -;
#X floatatom 280 334 5 0 0 0 - - -;
#X floatatom 304 464 5 0 0 0 - - -;
#X obj 51 53 r \$0-allpass1right;
#X obj 51 80 delread~ \$0-allpass1right;
#X obj 36 158 delwrite~ \$0-allpass1right 40;
#X obj 81 186 r \$0-allpass2right;
#X obj 81 211 delread~ \$0-allpass2right;
#X obj 66 290 delwrite~ \$0-allpass2right 40;
#X obj 111 317 r \$0-allpass3right;
#X obj 111 341 delread~ \$0-allpass3right;
#X obj 96 420 delwrite~ \$0-allpass3right 40;
#X obj 141 447 r \$0-allpass4right;
#X obj 141 471 delread~ \$0-allpass4right;
#X obj 126 550 delwrite~ \$0-allpass4right 40;
#X connect 0 0 1 1;
#X connect 1 0 22 0;
#X connect 2 0 5 0;
#X connect 2 0 6 1;
#X connect 3 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 5 1;
#X connect 5 0 25 0;
#X connect 6 0 8 0;
#X connect 6 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 28 0;
#X connect 9 0 11 0;
#X connect 9 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 31 0;
#X connect 12 0 15 0;
#X connect 15 0 13 0;
#X connect 20 0 16 0;
#X connect 20 0 21 0;
#X connect 21 0 0 0;
#X connect 21 0 2 0;
#X connect 23 0 17 0;
#X connect 23 0 24 0;
#X connect 24 0 4 0;
#X connect 24 0 6 0;
#X connect 26 0 18 0;
#X connect 26 0 27 0;
#X connect 27 0 7 0;
#X connect 27 0 9 0;
#X connect 29 0 19 0;
#X connect 29 0 30 0;
#X connect 30 0 10 0;
#X connect 30 0 12 0;
#X restore 208 169 pd diffusor-right;
#X obj 208 61 *~ 0.015;
#X obj 15 226 *~ 1;
#X obj 208 228 *~ 1;
#X obj 94 228 *~ 1;
#X obj 169 228 *~ 1;
#X obj 115 202 r \$0-dry;
#X obj 229 203 r \$0-wet;
#X obj 36 201 r \$0-wet;
#X obj 94 14 inlet~;
#X obj 208 14 inlet~;
#X obj 15 268 outlet~;
#X obj 169 269 outlet~;
#X obj 312 14 inlet;
#X obj 374 14 inlet;
#X obj 462 14 inlet;
#X obj 544 16 inlet;
#N canvas 0 22 207 207 room 0;
#X obj 32 35 inlet;
#X obj 32 63 * 0.28;
#X obj 32 94 + 0.7;
#X obj 32 160 outlet;
#X text 80 65 scaleroom;
#X text 76 94 offsetroom;
#X obj 47 126 s \$0-room;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X restore 312 45 pd room;
#N canvas 684 169 244 376 frequency 0;
#X obj 60 222 samplerate~;
#X obj 33 8 inlet;
#X obj 33 194 t f b;
#X obj 33 249 *;
#X obj 53 303 s \$0-frequency;
#X obj 33 327 outlet;
#X obj 33 64 * 0.4;
#X text 76 66 scaledamp;
#X obj 33 38 clip 0 2;
#X obj 33 90 t b f;
#X obj 33 141 -;
#X msg 33 116 1;
#X obj 33 168 abs;
#X obj 33 275 * 0.5;
#X text 153 303 for [lop~];
#X connect 0 0 3 1;
#X connect 1 0 8 0;
#X connect 2 0 3 0;
#X connect 2 1 0 0;
#X connect 3 0 13 0;
#X connect 6 0 9 0;
#X connect 8 0 6 0;
#X connect 9 0 11 0;
#X connect 9 1 10 1;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 2 0;
#X connect 13 0 5 0;
#X connect 13 0 4 0;
#X restore 374 45 pd frequency;
#N canvas 0 22 170 187 scalewet 0;
#X obj 22 42 inlet;
#X obj 22 143 outlet;
#X obj 22 73 * 3;
#X text 49 74 scalewet;
#X obj 40 112 s \$0-wet;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X restore 544 45 pd scalewet;
#N canvas 0 22 220 198 scaledry 0;
#X obj 32 74 * 2;
#X obj 32 40 inlet;
#X obj 32 141 outlet;
#X text 58 75 scaledry;
#X obj 41 105 s \$0-dry;
#X connect 0 0 2 0;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X restore 462 45 pd scaledry;
#X floatatom 312 70 5 0 0 0 - - -;
#X floatatom 374 70 10 0 0 0 - - -;
#X floatatom 462 69 5 0 0 0 - - -;
#X floatatom 544 69 5 0 0 0 - - -;
#N canvas 405 27 635 684 tuning 0;
#X msg 332 81 1139 \, 1211 \, 1300 \, 1379 \, 1445 \, 1514 \, 1580
\, 1640;
#X text 72 57 combfilter tunings left;
#X text 377 56 combfilter tunings right;
#X text 71 360 allpass tunings left;
#X text 383 355 allpass tunings right;
#N canvas 243 170 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 30 107 pd sampstoms;
#X msg 30 82 1116 \, 1188 \, 1277 \, 1356 \, 1422 \, 1491 \, 1557 \,
1617;
#X obj 57 188 +;
#X msg 57 159 1;
#X obj 30 135 t f b;
#X obj 87 188 f;
#X obj 30 56 t b b;
#X msg 87 159 0;
#X obj 57 212 pack f \$0;
#X msg 57 238 \$2-comb\$1left;
#X obj 30 282 s;
#X obj 57 265 symbol;
#N canvas 0 22 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 332 107 pd sampstoms;
#X obj 359 188 +;
#X msg 359 159 1;
#X obj 332 135 t f b;
#X obj 389 188 f;
#X msg 389 159 0;
#X obj 359 212 pack f \$0;
#X obj 332 282 s;
#X obj 359 265 symbol;
#X obj 332 56 t b b;
#X msg 359 238 \$2-comb\$1right;
#X obj 30 360 t b b;
#N canvas 0 22 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 30 411 pd sampstoms;
#X obj 57 492 +;
#X msg 57 463 1;
#X obj 30 439 t f b;
#X obj 87 492 f;
#X msg 87 463 0;
#X obj 57 516 pack f \$0;
#X obj 30 586 s;
#X obj 57 569 symbol;
#X obj 334 356 t b b;
#N canvas 0 22 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 334 407 pd sampstoms;
#X obj 361 488 +;
#X msg 361 459 1;
#X obj 334 435 t f b;
#X obj 391 488 f;
#X msg 391 459 0;
#X obj 361 512 pack f \$0;
#X obj 334 582 s;
#X obj 361 565 symbol;
#X obj 30 22 loadbang;
#X obj 332 27 loadbang;
#X obj 30 334 loadbang;
#X obj 334 331 loadbang;
#X obj 268 41 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 30 386 225 \, 556 \, 441 \, 341;
#X msg 334 380 248 \, 579 \, 464 \, 364;
#X msg 57 542 \$2-allpass\$1left;
#X msg 361 539 \$2-allpass\$1right;
#X text 27 624 Original Freeverb delay line lengths are converted to
milliseconds \, based on samplerate.;
#X connect 0 0 17 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 10 0;
#X connect 7 0 13 0;
#X connect 8 0 7 0;
#X connect 9 0 15 0;
#X connect 9 1 8 0;
#X connect 10 0 7 1;
#X connect 11 0 6 0;
#X connect 11 1 12 0;
#X connect 12 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 16 0 15 1;
#X connect 17 0 20 0;
#X connect 18 0 21 0;
#X connect 18 0 23 0;
#X connect 19 0 18 0;
#X connect 20 0 24 0;
#X connect 20 1 19 0;
#X connect 21 0 18 1;
#X connect 22 0 21 0;
#X connect 23 0 27 0;
#X connect 25 0 24 1;
#X connect 26 0 0 0;
#X connect 26 1 22 0;
#X connect 27 0 25 0;
#X connect 28 0 53 0;
#X connect 28 1 34 0;
#X connect 29 0 32 0;
#X connect 30 0 33 0;
#X connect 30 0 35 0;
#X connect 31 0 30 0;
#X connect 32 0 36 0;
#X connect 32 1 31 0;
#X connect 33 0 30 1;
#X connect 34 0 33 0;
#X connect 35 0 55 0;
#X connect 37 0 36 1;
#X connect 38 0 54 0;
#X connect 38 1 44 0;
#X connect 39 0 42 0;
#X connect 40 0 43 0;
#X connect 40 0 45 0;
#X connect 41 0 40 0;
#X connect 42 0 46 0;
#X connect 42 1 41 0;
#X connect 43 0 40 1;
#X connect 44 0 43 0;
#X connect 45 0 56 0;
#X connect 47 0 46 1;
#X connect 48 0 11 0;
#X connect 49 0 26 0;
#X connect 50 0 28 0;
#X connect 51 0 38 0;
#X connect 52 0 11 0;
#X connect 52 0 28 0;
#X connect 52 0 26 0;
#X connect 52 0 38 0;
#X connect 53 0 29 0;
#X connect 54 0 39 0;
#X connect 55 0 37 0;
#X connect 56 0 47 0;
#X restore 410 141 pd tuning;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 3 0;
#X connect 6 0 0 0;
#X connect 6 0 4 0;
#X connect 6 0 2 0;
#X connect 7 0 16 0;
#X connect 8 0 17 0;
#X connect 9 0 16 0;
#X connect 10 0 17 0;
#X connect 11 0 10 1;
#X connect 11 0 9 1;
#X connect 12 0 8 1;
#X connect 13 0 7 1;
#X connect 14 0 6 0;
#X connect 14 0 9 0;
#X connect 15 0 6 0;
#X connect 15 0 10 0;
#X connect 18 0 22 0;
#X connect 19 0 23 0;
#X connect 20 0 25 0;
#X connect 21 0 24 0;
#X connect 22 0 26 0;
#X connect 23 0 27 0;
#X connect 24 0 29 0;
#X connect 25 0 28 0;
#X restore 52 205 pd vfreeverb~;
#X text 156 235 Katja Vetter May 2012;
#X text 157 204 Freeverb implemented with Pd vanilla objects;
#X connect 0 0 4 0;
#X connect 0 0 10 2;
#X connect 1 0 5 0;
#X connect 1 0 10 3;
#X connect 2 0 10 0;
#X connect 2 1 10 1;
#X connect 6 0 8 0;
#X connect 6 0 10 5;
#X connect 7 0 9 0;
#X connect 7 0 10 4;
#X connect 10 0 3 0;
#X connect 10 1 3 1;