hi there, here is a pd implementation of freeverb~ that works in heavy. it is based on vfreeverb~ by katja vetter but i had to change a few things (mainly $0 messages and delayline stuff ) to make it work.
it is a very nice reverb for synth sounds i think.
first the abstraction:
#N canvas 0 22 450 300 10;
#N canvas 281 190 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 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 - - -, f 5;
#X floatatom 255 121 5 0 0 0 - - -, f 5;
#X floatatom 439 119 5 0 0 0 - - -, f 5;
#X floatatom 622 121 5 0 0 0 - - -, f 5;
#X obj 279 58 clip 0 0.99;
#X obj 279 29 r \$0-room;
#X obj 61 141 delread~ \$0-comb1left 25.3;
#X obj 246 142 delread~ \$0-comb2left 26.93;
#X obj 429 141 delread~ \$0-comb3left 28.95;
#X obj 610 141 delread~ \$0-comb4left 30.74;
#X connect 0 0 12 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 13 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 14 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 15 0;
#X connect 16 0 26 0;
#X connect 16 0 32 0;
#X connect 17 0 27 0;
#X connect 17 0 33 0;
#X connect 18 0 28 0;
#X connect 18 0 34 0;
#X connect 19 0 29 0;
#X connect 19 0 35 0;
#X connect 20 0 2 1;
#X connect 21 0 5 1;
#X connect 22 0 7 1;
#X connect 23 0 10 1;
#X connect 24 0 0 0;
#X connect 24 0 3 0;
#X connect 24 0 8 0;
#X connect 24 0 11 0;
#X connect 30 0 1 1;
#X connect 30 0 4 1;
#X connect 30 0 6 1;
#X connect 30 0 9 1;
#X connect 31 0 30 0;
#X connect 32 0 2 0;
#X connect 32 0 25 0;
#X connect 33 0 5 0;
#X connect 33 0 25 0;
#X connect 34 0 7 0;
#X connect 34 0 25 0;
#X connect 35 0 10 0;
#X connect 35 0 25 0;
#X restore 15 100 pd combfilters-left1;
#N canvas 397 126 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 - - -, f 5;
#X floatatom 246 203 5 0 0 0 - - -, f 5;
#X floatatom 280 334 5 0 0 0 - - -, f 5;
#X floatatom 304 464 5 0 0 0 - - -, f 5;
#X obj 51 53 r \$0-allpass1left;
#X obj 36 158 delwrite~ \$0-allpass1left 40;
#X obj 81 186 r \$0-allpass2left;
#X obj 66 290 delwrite~ \$0-allpass2left 40;
#X obj 111 317 r \$0-allpass3left;
#X obj 96 420 delwrite~ \$0-allpass3left 40;
#X obj 141 447 r \$0-allpass4left;
#X obj 126 550 delwrite~ \$0-allpass4left 40;
#X obj 51 80 delread~ \$0-allpass1left 5.102;
#X obj 81 211 delread~ \$0-allpass2left 12.6;
#X obj 111 341 delread~ \$0-allpass3left 10;
#X obj 141 471 delread~ \$0-allpass4left 7.732;
#X connect 0 0 1 1;
#X connect 1 0 21 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 23 0;
#X connect 6 0 8 0;
#X connect 6 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 25 0;
#X connect 9 0 11 0;
#X connect 9 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 27 0;
#X connect 12 0 15 0;
#X connect 15 0 13 0;
#X connect 20 0 16 0;
#X connect 20 0 28 0;
#X connect 22 0 17 0;
#X connect 22 0 29 0;
#X connect 24 0 18 0;
#X connect 24 0 30 0;
#X connect 26 0 19 0;
#X connect 26 0 31 0;
#X connect 28 0 0 0;
#X connect 28 0 2 0;
#X connect 29 0 4 0;
#X connect 29 0 6 0;
#X connect 30 0 7 0;
#X connect 30 0 9 0;
#X connect 31 0 10 0;
#X connect 31 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 46 268 delwrite~ \$0-comb5left 100;
#X obj 246 90 r \$0-comb6left;
#X obj 231 268 delwrite~ \$0-comb6left 100;
#X obj 429 88 r \$0-comb7left;
#X obj 414 267 delwrite~ \$0-comb7left 100;
#X obj 610 89 r \$0-comb8left;
#X obj 595 267 delwrite~ \$0-comb8left 100;
#X floatatom 70 116 5 0 0 0 - - -, f 5;
#X floatatom 261 118 5 0 0 0 - - -, f 5;
#X floatatom 440 117 5 0 0 0 - - -, f 5;
#X floatatom 620 116 5 0 0 0 - - -, f 5;
#X obj 279 58 clip 0 0.99;
#X obj 279 28 r \$0-room;
#X obj 61 141 delread~ \$0-comb5left 32.24;
#X obj 246 142 delread~ \$0-comb6left 39.8;
#X obj 429 141 delread~ \$0-comb7left 35.3;
#X obj 610 141 delread~ \$0-comb8left 36.66;
#X connect 0 0 19 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 21 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 23 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 25 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 26 0;
#X connect 18 0 32 0;
#X connect 20 0 27 0;
#X connect 20 0 33 0;
#X connect 22 0 28 0;
#X connect 22 0 34 0;
#X connect 24 0 29 0;
#X connect 24 0 35 0;
#X connect 30 0 1 1;
#X connect 30 0 4 1;
#X connect 30 0 6 1;
#X connect 30 0 9 1;
#X connect 31 0 30 0;
#X connect 32 0 2 0;
#X connect 32 0 17 0;
#X connect 33 0 5 0;
#X connect 33 0 17 0;
#X connect 34 0 7 0;
#X connect 34 0 17 0;
#X connect 35 0 10 0;
#X connect 35 0 17 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 - - -, f 5;
#X floatatom 255 121 5 0 0 0 - - -, f 5;
#X floatatom 439 119 5 0 0 0 - - -, f 5;
#X floatatom 622 121 5 0 0 0 - - -, f 5;
#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 obj 61 141 delread~ \$0-comb1right 25.82;
#X obj 246 142 delread~ \$0-comb2right 27.45;
#X obj 429 141 delread~ \$0-comb3right 29.47;
#X obj 610 141 delread~ \$0-comb4right 31.26;
#X connect 0 0 26 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 27 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 28 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 22 0 18 0;
#X connect 22 0 32 0;
#X connect 23 0 19 0;
#X connect 23 0 33 0;
#X connect 24 0 20 0;
#X connect 24 0 34 0;
#X connect 25 0 21 0;
#X connect 25 0 35 0;
#X connect 30 0 1 1;
#X connect 30 0 4 1;
#X connect 30 0 6 1;
#X connect 30 0 9 1;
#X connect 31 0 30 0;
#X connect 32 0 2 0;
#X connect 32 0 17 0;
#X connect 33 0 5 0;
#X connect 33 0 17 0;
#X connect 34 0 7 0;
#X connect 34 0 17 0;
#X connect 35 0 10 0;
#X connect 35 0 17 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 - - -, f 5;
#X floatatom 261 118 5 0 0 0 - - -, f 5;
#X floatatom 440 117 5 0 0 0 - - -, f 5;
#X floatatom 620 116 5 0 0 0 - - -, f 5;
#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 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 obj 61 141 delread~ \$0-comb5right 32.76;
#X obj 246 142 delread~ \$0-comb6right 34.33;
#X obj 429 141 delread~ \$0-comb7right 35.82;
#X obj 610 141 delread~ \$0-comb8right 37.18;
#X connect 0 0 27 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 28 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 29 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 30 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 32 0;
#X connect 24 0 19 0;
#X connect 24 0 33 0;
#X connect 25 0 20 0;
#X connect 25 0 34 0;
#X connect 26 0 21 0;
#X connect 26 0 35 0;
#X connect 31 0 22 0;
#X connect 32 0 2 0;
#X connect 32 0 17 0;
#X connect 33 0 5 0;
#X connect 33 0 17 0;
#X connect 34 0 7 0;
#X connect 34 0 17 0;
#X connect 35 0 10 0;
#X connect 35 0 17 0;
#X restore 225 133 pd combfilters-right2;
#N canvas 358 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 - - -, f 5;
#X floatatom 244 203 5 0 0 0 - - -, f 5;
#X floatatom 280 334 5 0 0 0 - - -, f 5;
#X floatatom 304 464 5 0 0 0 - - -, f 5;
#X obj 51 53 r \$0-allpass1right;
#X obj 36 158 delwrite~ \$0-allpass1right 40;
#X obj 81 186 r \$0-allpass2right;
#X obj 66 290 delwrite~ \$0-allpass2right 40;
#X obj 111 317 r \$0-allpass3right;
#X obj 96 420 delwrite~ \$0-allpass3right 40;
#X obj 141 447 r \$0-allpass4right;
#X obj 126 550 delwrite~ \$0-allpass4right 40;
#X obj 51 80 delread~ \$0-allpass1right 5.623;
#X obj 81 211 delread~ \$0-allpass2right 13.12;
#X obj 111 341 delread~ \$0-allpass3right 10.52;
#X obj 141 471 delread~ \$0-allpass4right 8.253;
#X connect 0 0 1 1;
#X connect 1 0 21 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 23 0;
#X connect 6 0 8 0;
#X connect 6 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 25 0;
#X connect 9 0 11 0;
#X connect 9 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 27 0;
#X connect 12 0 15 0;
#X connect 15 0 13 0;
#X connect 20 0 16 0;
#X connect 20 0 28 0;
#X connect 22 0 17 0;
#X connect 22 0 29 0;
#X connect 24 0 18 0;
#X connect 24 0 30 0;
#X connect 26 0 19 0;
#X connect 26 0 31 0;
#X connect 28 0 0 0;
#X connect 28 0 2 0;
#X connect 29 0 4 0;
#X connect 29 0 6 0;
#X connect 30 0 7 0;
#X connect 30 0 9 0;
#X connect 31 0 10 0;
#X connect 31 0 12 0;
#X restore 208 169 pd diffusor-right;
#X obj 208 61 *~ 0.015;
#X obj 327 166 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 924 651 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 obj 12 94 line;
#X msg 47 90 \$1 200;
#X connect 0 0 2 0;
#X connect 2 0 6 0;
#X connect 5 0 4 0;
#X connect 5 0 1 0;
#X connect 6 0 5 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 - - -, f 5;
#X floatatom 374 70 10 0 0 0 - - -, f 10;
#X floatatom 462 69 5 0 0 0 - - -, f 5;
#X floatatom 544 69 5 0 0 0 - - -, f 5;
#N canvas 266 22 999 678 tuning 0;
#X obj 342 163 loadbang;
#X text 27 624 Original Freeverb delay line lengths are converted to
milliseconds \, based on samplerate.;
#X msg 316 232 1116;
#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 315 253 pd sampstoms;
#X obj 315 276 s \$0-comb1left;
#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 406 253 pd sampstoms;
#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 500 254 pd sampstoms;
#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 591 254 pd sampstoms;
#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 315 321 pd sampstoms;
#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 406 321 pd sampstoms;
#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 500 322 pd sampstoms;
#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 591 322 pd sampstoms;
#X msg 407 232 1188;
#X msg 501 233 1277;
#X msg 592 233 1356;
#X msg 316 300 1422;
#X msg 407 300 1491;
#X msg 501 301 1557;
#X msg 592 301 1617;
#X obj 406 276 s \$0-comb2left;
#X obj 500 277 s \$0-comb3left;
#X obj 591 277 s \$0-comb4left;
#X obj 315 344 s \$0-comb5left;
#X obj 406 344 s \$0-comb6left;
#X obj 500 345 s \$0-comb7left;
#X obj 591 345 s \$0-comb8left;
#X obj 716 168 loadbang;
#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 689 258 pd sampstoms;
#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 780 258 pd sampstoms;
#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 874 259 pd sampstoms;
#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 965 259 pd sampstoms;
#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 689 326 pd sampstoms;
#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 780 326 pd sampstoms;
#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 874 327 pd sampstoms;
#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 965 327 pd sampstoms;
#X msg 690 237 1139;
#X msg 781 237 1211;
#X msg 875 238 1300;
#X msg 966 238 1379;
#X msg 690 305 1445;
#X msg 781 305 1514;
#X msg 875 306 1580;
#X msg 966 306 1640;
#X obj 689 281 s \$0-comb1right;
#X obj 780 281 s \$0-comb2right;
#X obj 874 282 s \$0-comb3right;
#X obj 965 282 s \$0-comb4right;
#X obj 689 349 s \$0-comb5right;
#X obj 780 349 s \$0-comb6right;
#X obj 874 350 s \$0-comb7right;
#X obj 965 350 s \$0-comb8right;
#X obj 348 373 loadbang;
#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 321 463 pd sampstoms;
#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 435 463 pd sampstoms;
#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 321 531 pd sampstoms;
#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 435 531 pd sampstoms;
#X msg 322 442 225;
#X msg 436 442 556;
#X msg 322 510 441;
#X msg 436 510 341;
#X obj 321 486 s \$0-allpass1left;
#X obj 435 486 s \$0-allpass2left;
#X obj 321 554 s \$0-allpass3left;
#X obj 435 554 s \$0-allpass4left;
#X obj 592 375 loadbang;
#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 565 465 pd sampstoms;
#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 679 465 pd sampstoms;
#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 565 533 pd sampstoms;
#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 679 533 pd sampstoms;
#X msg 566 444 248;
#X msg 680 444 579;
#X msg 566 512 464;
#X msg 680 512 364;
#X obj 565 488 s \$0-allpass1right;
#X obj 679 488 s \$0-allpass2right;
#X obj 565 556 s \$0-allpass3right;
#X obj 679 556 s \$0-allpass4right;
#X connect 0 0 2 0;
#X connect 0 0 12 0;
#X connect 0 0 13 0;
#X connect 0 0 14 0;
#X connect 0 0 15 0;
#X connect 0 0 16 0;
#X connect 0 0 17 0;
#X connect 0 0 18 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 19 0;
#X connect 6 0 20 0;
#X connect 7 0 21 0;
#X connect 8 0 22 0;
#X connect 9 0 23 0;
#X connect 10 0 24 0;
#X connect 11 0 25 0;
#X connect 12 0 5 0;
#X connect 13 0 6 0;
#X connect 14 0 7 0;
#X connect 15 0 8 0;
#X connect 16 0 9 0;
#X connect 17 0 10 0;
#X connect 18 0 11 0;
#X connect 26 0 35 0;
#X connect 26 0 36 0;
#X connect 26 0 37 0;
#X connect 26 0 38 0;
#X connect 26 0 39 0;
#X connect 26 0 40 0;
#X connect 26 0 41 0;
#X connect 26 0 42 0;
#X connect 27 0 43 0;
#X connect 28 0 44 0;
#X connect 29 0 45 0;
#X connect 30 0 46 0;
#X connect 31 0 47 0;
#X connect 32 0 48 0;
#X connect 33 0 49 0;
#X connect 34 0 50 0;
#X connect 35 0 27 0;
#X connect 36 0 28 0;
#X connect 37 0 29 0;
#X connect 38 0 30 0;
#X connect 39 0 31 0;
#X connect 40 0 32 0;
#X connect 41 0 33 0;
#X connect 42 0 34 0;
#X connect 51 0 56 0;
#X connect 51 0 57 0;
#X connect 51 0 58 0;
#X connect 51 0 59 0;
#X connect 52 0 60 0;
#X connect 53 0 61 0;
#X connect 54 0 62 0;
#X connect 55 0 63 0;
#X connect 56 0 52 0;
#X connect 57 0 53 0;
#X connect 58 0 54 0;
#X connect 59 0 55 0;
#X connect 64 0 69 0;
#X connect 64 0 70 0;
#X connect 64 0 71 0;
#X connect 64 0 72 0;
#X connect 65 0 73 0;
#X connect 66 0 74 0;
#X connect 67 0 75 0;
#X connect 68 0 76 0;
#X connect 69 0 65 0;
#X connect 70 0 66 0;
#X connect 71 0 67 0;
#X connect 72 0 68 0;
#X restore 410 141 pd tuning;
#X obj 313 233 line~;
#X obj 208 228 *~;
#X obj 45 187 r \$0-wet;
#X obj 43 227 line~;
#X obj 15 226 *~;
#X msg 326 191 \$1 50;
#X msg 44 207 \$1 50;
#X msg 371 191 \$1 50;
#X obj 169 228 *~;
#X obj 94 228 *~;
#X obj 116 195 line~;
#X obj 418 176 r \$0-dry;
#X connect 0 0 1 0;
#X connect 1 0 29 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 26 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 30 0;
#X connect 8 0 6 0;
#X connect 8 0 34 0;
#X connect 9 0 6 0;
#X connect 9 0 33 0;
#X connect 12 0 16 0;
#X connect 13 0 17 0;
#X connect 14 0 19 0;
#X connect 15 0 18 0;
#X connect 16 0 20 0;
#X connect 17 0 21 0;
#X connect 18 0 23 0;
#X connect 19 0 22 0;
#X connect 25 0 26 1;
#X connect 26 0 11 0;
#X connect 27 0 31 0;
#X connect 28 0 29 1;
#X connect 29 0 10 0;
#X connect 30 0 25 0;
#X connect 31 0 28 0;
#X connect 32 0 35 0;
#X connect 33 0 11 0;
#X connect 34 0 10 0;
#X connect 35 0 33 1;
#X connect 35 0 34 1;
#X connect 36 0 32 0;
then the helpfile:
#N canvas 148 225 1131 615 10;
#X obj 173 299 dac~;
#X obj 172 36 hsl 128 15 0 1 0 1 empty empty 'roomsize' 20 8 0 10 -262144
-260097 -1 12700 0;
#X obj 187 79 hsl 128 15 0 2 0 1 empty empty damp 20 8 0 10 -262144
-260097 -1 11500 0;
#X floatatom 178 57 5 0 0 0 - - -, f 5;
#X floatatom 193 99 5 0 0 0 - - -, f 5;
#X obj 217 172 hsl 128 15 0 1 0 1 empty empty wet 20 8 0 10 -262144
-260097 -1 12700 0;
#X obj 202 122 hsl 128 15 0 1 0 1 empty empty dry 20 8 0 10 -262144
-260097 -1 6300 0;
#X floatatom 228 195 5 0 0 0 - - -, f 5;
#X floatatom 207 146 5 0 0 0 - - -, f 5;
#X obj 141 148 adc~;
#X obj 164 259 vfreeverb~;
#X connect 1 0 3 0;
#X connect 1 0 10 2;
#X connect 2 0 4 0;
#X connect 2 0 10 3;
#X connect 5 0 7 0;
#X connect 5 0 10 5;
#X connect 6 0 8 0;
#X connect 6 0 10 4;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 0 0;
#X connect 10 1 0 1;