Mercurial > hg > beaglert
view examples/10-Instruments/vangelisiser/e_platereverb.pd @ 556:ce391098f321 prerelease tip
THIS PROJECT HAS MOVED TO https://github.com/BelaPlatform/bela
| author | Giulio Moro <giuliomoro@yahoo.it> |
|---|---|
| date | Sat, 25 Jun 2016 20:21:00 +0100 |
| parents | ddb86944e138 |
| children |
line wrap: on
line source
#N canvas 115 309 823 465 10; #X obj 24 32 inlet~; #X obj 23 380 outlet~; #X obj 118 380 outlet~; #N canvas 0 166 634 506 input_diffusion 0; #X obj 30 60 inlet~; #X obj 29 295 outlet~; #X obj 337 79 r \$0-input_diffusion1; #X obj 336 170 r \$0-input_diffusion2; #N canvas 393 22 574 578 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.75; #X obj 417 262 f 0.75; #X obj 56 491 delwrite~ \$0-tap_13_14 200; #X obj 252 262 *~ 0.75; #X obj 252 53 delread~ \$0-tap_13_14 4.77134; #X obj 417 336 swap 1; #X obj 417 360 -; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 1 0 16 0; #X connect 2 0 15 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 19 0; #X connect 5 0 6 1; #X connect 6 0 9 0; #X connect 7 0 8 1; #X connect 8 0 13 0; #X connect 10 0 14 0; #X connect 10 0 15 0; #X connect 10 0 17 1; #X connect 11 0 14 0; #X connect 12 0 1 1; #X connect 13 0 6 0; #X connect 14 0 7 0; #X connect 15 0 3 0; #X connect 17 0 5 0; #X connect 17 0 12 0; #X connect 18 0 17 0; #X connect 19 0 20 0; #X connect 19 1 20 1; #X connect 20 0 5 1; #X restore 30 99 pd allpass tap_13_14; #N canvas 314 22 579 582 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.75; #X obj 417 262 f 0.75; #X obj 252 262 *~ 0.75; #X obj 56 491 delwrite~ \$0-tap_19_20 200; #X obj 252 53 delread~ \$0-tap_19_20 3.5953; #X obj 417 336 swap 1; #X obj 417 360 -; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 1 0 17 0; #X connect 2 0 15 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 19 0; #X connect 5 0 6 1; #X connect 6 0 9 0; #X connect 7 0 8 1; #X connect 8 0 13 0; #X connect 10 0 14 0; #X connect 10 0 15 0; #X connect 10 0 16 1; #X connect 11 0 14 0; #X connect 12 0 1 1; #X connect 13 0 6 0; #X connect 14 0 7 0; #X connect 15 0 3 0; #X connect 16 0 5 0; #X connect 16 0 12 0; #X connect 18 0 16 0; #X connect 19 0 20 0; #X connect 19 1 20 1; #X connect 20 0 5 1; #X restore 30 135 pd allpass tap_19_20; #N canvas 238 22 570 590 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.625; #X obj 252 262 *~ 0.625; #X obj 417 262 f 0.625; #X obj 56 491 delwrite~ \$0-tap_15_16 200; #X obj 252 53 delread~ \$0-tap_15_16 12.7348; #X obj 417 336 swap 1; #X obj 417 360 -; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 1 0 17 0; #X connect 2 0 16 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 19 0; #X connect 5 0 6 1; #X connect 6 0 9 0; #X connect 7 0 8 1; #X connect 8 0 13 0; #X connect 10 0 14 0; #X connect 10 0 15 1; #X connect 10 0 16 0; #X connect 11 0 14 0; #X connect 12 0 1 1; #X connect 13 0 6 0; #X connect 14 0 7 0; #X connect 15 0 5 0; #X connect 15 0 12 0; #X connect 16 0 3 0; #X connect 18 0 15 0; #X connect 19 0 20 0; #X connect 19 1 20 1; #X connect 20 0 5 1; #X restore 30 190 pd allpass tap_15_16; #N canvas 238 22 566 586 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.625; #X obj 252 262 *~ 0.625; #X obj 417 262 f 0.625; #X obj 56 491 delwrite~ \$0-tap_21_22 200; #X obj 252 53 delread~ \$0-tap_21_22 9.30748; #X obj 417 336 swap 1; #X obj 417 360 -; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 1 0 17 0; #X connect 2 0 16 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 19 0; #X connect 5 0 6 1; #X connect 6 0 9 0; #X connect 7 0 8 1; #X connect 8 0 13 0; #X connect 10 0 14 0; #X connect 10 0 15 1; #X connect 10 0 16 0; #X connect 11 0 14 0; #X connect 12 0 1 1; #X connect 13 0 6 0; #X connect 14 0 7 0; #X connect 15 0 5 0; #X connect 15 0 12 0; #X connect 16 0 3 0; #X connect 18 0 15 0; #X connect 19 0 20 0; #X connect 19 1 20 1; #X connect 20 0 5 1; #X restore 30 230 pd allpass tap_21_22; #X connect 0 0 4 0; #X connect 2 0 4 1; #X connect 2 0 5 1; #X connect 3 0 6 1; #X connect 3 0 7 1; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 1 0; #X restore 25 208 pd input_diffusion; #N canvas 38 72 501 476 reverberation_tank 0; #X obj 168 85 inlet~; #X obj 43 120 +~; #X obj 255 121 +~; #N canvas 0 22 458 308 z^-4217 0; #X obj 106 55 inlet~; #X obj 105 120 delwrite~ \$0-tap_48_54 141.695; #X text 358 135 4217; #X obj 105 147 delread~ \$0-tap_48_54 141.695; #X obj 106 223 outlet~; #X connect 0 0 1 0; #X connect 3 0 4 0; #X restore 255 190 pd z^-4217; #N canvas 0 22 458 308 z^-4453 0; #X obj 41 104 delwrite~ \$0-tap_24_30 149.625; #X obj 42 128 delread~ \$0-tap_24_30 149.625; #X text 287 119 4453; #X obj 43 60 inlet~; #X obj 43 168 outlet~; #X connect 1 0 4 0; #X connect 3 0 0 0; #X restore 43 192 pd z^-4453; #N canvas 0 22 466 316 damping 0; #X obj 74 53 inlet~; #X obj 70 222 outlet~; #X obj 73 137 lop~ 22050; #X obj 162 137 r \$0-damping; #X obj 162 159 * 48000; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 4 0 2 1; #X restore 44 221 pd damping; #N canvas 0 22 470 320 damping 0; #X obj 74 53 inlet~; #X obj 70 222 outlet~; #X obj 73 137 lop~ 22050; #X obj 162 137 r \$0-damping; #X obj 162 159 * 48000; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 4 0 2 1; #X restore 256 221 pd damping; #N canvas 0 22 470 320 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 43 249 pd decay; #N canvas 0 22 470 320 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 257 250 pd decay; #N canvas 0 22 466 316 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 43 87 pd decay; #N canvas 0 22 466 316 decay 0; #X obj 71 66 inlet~; #X obj 71 220 outlet~; #X obj 140 139 r \$0-decay; #X obj 70 140 *~ 0.5; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 273 85 pd decay; #N canvas 0 22 498 348 decay_diffusion1 0; #N canvas 232 298 494 344 excursion 0; #X obj 64 192 outlet~; #X obj 62 90 osc~ 1; #X obj 63 143 *~ 0.53761; #X obj 130 109 r \$0-excursion; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 2 1; #X restore 133 120 pd excursion; #X obj 43 32 inlet~; #X obj 44 250 outlet~; #X obj 88 84 r \$0-decay_diffusion1; #N canvas 409 74 612 523 allpassvd 0; #X obj 48 83 inlet~; #X obj 48 296 +~; #X obj 285 142 loadbang; #X obj 285 196 t f f; #X obj 285 220 *; #X obj 229 277 *~; #X obj 216 300 +~; #X obj 94 138 * -1; #X obj 80 163 *~; #X obj 217 401 outlet~; #X obj 392 30 inlet~; #X obj 447 56 sig~; #X obj 447 10 loadbang; #X obj 390 78 +~; #X obj 255 45 inlet; #X obj 94 60 loadbang; #X text 9 6 arguments: delay(ms) feedback(mult); #X text 10 20 inlets: signal feedback(mult) excursion; #X obj 94 114 f 0.7; #X obj 230 152 *~ 0.7; #X obj 285 172 f 0.7; #X obj 391 404 +~; #X text 372 428 excursion; #X obj 48 327 delwrite~ \$0-tap_23_24 100; #X obj 283 101 vd~ \$0-tap_23_24; #X obj 447 33 f 22.5599; #X obj 285 244 swap 1; #X obj 285 268 -; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 1 0 23 0; #X connect 2 0 20 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 26 0; #X connect 5 0 6 1; #X connect 6 0 9 0; #X connect 7 0 8 1; #X connect 8 0 6 0; #X connect 10 0 13 0; #X connect 11 0 13 1; #X connect 12 0 25 0; #X connect 13 0 21 0; #X connect 13 0 24 0; #X connect 14 0 18 0; #X connect 14 0 19 1; #X connect 14 0 20 0; #X connect 15 0 18 0; #X connect 18 0 7 0; #X connect 19 0 1 1; #X connect 19 0 5 0; #X connect 20 0 3 0; #X connect 24 0 19 0; #X connect 25 0 11 0; #X connect 26 0 27 0; #X connect 26 1 27 1; #X connect 27 0 5 1; #X restore 43 150 pd allpassvd; #X connect 0 0 4 2; #X connect 1 0 4 0; #X connect 3 0 4 1; #X connect 4 0 2 0; #X restore 44 156 pd decay_diffusion1; #N canvas 0 22 529 394 decay_diffusion1 0; #N canvas 232 298 482 332 excursion 0; #X obj 65 192 outlet~; #X obj 63 81 osc~ 1; #X obj 64 134 *~ 0.53761; #X obj 139 104 r \$0-excursion; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 2 1; #X restore 138 92 pd excursion; #X obj 49 25 inlet~; #X obj 49 200 outlet~; #X obj 93 60 r \$0-decay_diffusion1; #N canvas 348 52 608 519 allpassvd 0; #X obj 48 83 inlet~; #X obj 48 296 +~; #X obj 285 142 loadbang; #X obj 285 196 t f f; #X obj 285 220 *; #X obj 229 277 *~; #X obj 216 300 +~; #X obj 94 138 * -1; #X obj 80 163 *~; #X obj 217 401 outlet~; #X obj 392 30 inlet~; #X obj 447 56 sig~; #X obj 447 10 loadbang; #X obj 390 78 +~; #X obj 255 45 inlet; #X obj 94 60 loadbang; #X text 9 6 arguments: delay(ms) feedback(mult); #X text 10 20 inlets: signal feedback(mult) excursion; #X obj 48 327 delwrite~ \$0-tap_46_48 100; #X obj 283 101 vd~ \$0-tap_46_48; #X obj 447 33 f 30.5097; #X obj 94 114 f 0.7; #X obj 230 152 *~ 0.7; #X obj 285 172 f 0.7; #X obj 391 404 +~; #X text 372 428 excursion; #X obj 285 244 swap 1; #X obj 285 268 -; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 1 0 18 0; #X connect 2 0 23 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 26 0; #X connect 5 0 6 1; #X connect 6 0 9 0; #X connect 7 0 8 1; #X connect 8 0 6 0; #X connect 10 0 13 0; #X connect 11 0 13 1; #X connect 12 0 20 0; #X connect 13 0 19 0; #X connect 13 0 24 0; #X connect 14 0 21 0; #X connect 14 0 22 1; #X connect 14 0 23 0; #X connect 15 0 21 0; #X connect 19 0 22 0; #X connect 20 0 11 0; #X connect 21 0 7 0; #X connect 22 0 1 1; #X connect 22 0 5 0; #X connect 23 0 3 0; #X connect 26 0 27 0; #X connect 26 1 27 1; #X connect 27 0 5 1; #X restore 48 135 pd allpassvd; #X connect 0 0 4 2; #X connect 1 0 4 0; #X connect 3 0 4 1; #X connect 4 0 2 0; #X restore 256 155 pd decay_diffusion1; #N canvas 327 329 552 336 decay_diffusion2 0; #X obj 37 63 inlet~; #X obj 37 220 outlet~; #N canvas 393 22 582 586 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 252 52 delread~ \$0-tap_31_33 60.4818; #X obj 56 491 delwrite~ \$0-tap_31_33 200; #X obj 114 149 f 0.5; #X obj 252 262 *~ 0.5; #X obj 417 262 f 0.5; #X obj 417 334 swap 1; #X obj 417 358 -; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 1 0 15 0; #X connect 2 0 18 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 19 0; #X connect 5 0 6 1; #X connect 6 0 9 0; #X connect 7 0 8 1; #X connect 8 0 13 0; #X connect 10 0 16 0; #X connect 10 0 17 1; #X connect 10 0 18 0; #X connect 11 0 16 0; #X connect 12 0 1 1; #X connect 13 0 6 0; #X connect 14 0 17 0; #X connect 16 0 7 0; #X connect 17 0 5 0; #X connect 17 0 12 0; #X connect 18 0 3 0; #X connect 19 0 20 0; #X connect 19 1 20 1; #X connect 20 0 5 1; #X restore 36 143 pd allpass tap_31_33; #X obj 191 114 r \$0-decay_diffusion2; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X restore 43 277 pd decay_diffusion2; #N canvas 0 22 553 336 decay_diffusion2 0; #X obj 52 38 inlet~; #X obj 54 171 outlet~; #X obj 210 85 r \$0-decay_diffusion2; #N canvas 393 22 586 590 allpass 0; #X obj 56 127 inlet~; #X obj 56 400 +~; #X obj 427 232 loadbang; #X obj 417 286 t f f; #X obj 417 310 *; #X obj 253 364 *~; #X obj 232 394 +~; #X obj 114 177 * -1; #X obj 88 207 *~; #X obj 232 426 outlet~; #X obj 417 129 inlet; #X obj 114 117 loadbang; #X obj 75 365 *~ -1; #X obj 201 364 *~ -1; #X obj 114 149 f 0.5; #X obj 252 262 *~ 0.5; #X obj 417 262 f 0.5; #X obj 56 491 delwrite~ \$0-tap_55_59 200; #X obj 252 52 delread~ \$0-tap_55_59 89.2443; #X obj 417 334 swap 1; #X obj 417 358 -; #X connect 0 0 1 0; #X connect 0 0 8 0; #X connect 1 0 17 0; #X connect 2 0 16 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 19 0; #X connect 5 0 6 1; #X connect 6 0 9 0; #X connect 7 0 8 1; #X connect 8 0 13 0; #X connect 10 0 14 0; #X connect 10 0 15 1; #X connect 10 0 16 0; #X connect 11 0 14 0; #X connect 12 0 1 1; #X connect 13 0 6 0; #X connect 14 0 7 0; #X connect 15 0 5 0; #X connect 15 0 12 0; #X connect 16 0 3 0; #X connect 18 0 15 0; #X connect 19 0 20 0; #X connect 19 1 20 1; #X connect 20 0 5 1; #X restore 55 114 pd allpass tap_55_59; #X connect 0 0 3 0; #X connect 2 0 3 1; #X connect 3 0 1 0; #X restore 256 278 pd decay_diffusion2; #N canvas 0 22 454 304 feedback 0; #X obj 43 118 outlet~; #X obj 44 55 delread~ \$0-tap_59_63 106.28; #X connect 1 0 0 0; #X restore 43 49 pd feedback; #N canvas 0 22 454 304 feedback 0; #X obj 81 188 outlet~; #X obj 81 134 delread~ \$0-tap_33_39 124.996; #X connect 1 0 0 0; #X restore 274 51 pd feedback; #N canvas 0 22 458 308 to_left 0; #X obj 48 52 inlet~; #X obj 48 95 delwrite~ \$0-tap_59_63 106.28; #X connect 0 0 1 0; #X restore 255 306 pd to_left; #N canvas 0 22 454 304 to_right 0; #X obj 53 173 delwrite~ \$0-tap_33_39 124.996; #X obj 56 100 inlet~; #X connect 1 0 0 0; #X restore 44 305 pd to_right; #X text 344 190 48_54; #X text 136 193 24_30; #X obj 170 357 outlet~; #X text 242 358 dummy; #X connect 0 0 1 1; #X connect 0 0 2 0; #X connect 1 0 11 0; #X connect 2 0 12 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 7 0; #X connect 6 0 8 0; #X connect 7 0 13 0; #X connect 8 0 14 0; #X connect 9 0 1 0; #X connect 10 0 2 1; #X connect 11 0 4 0; #X connect 12 0 3 0; #X connect 13 0 18 0; #X connect 14 0 17 0; #X connect 15 0 9 0; #X connect 16 0 10 0; #X restore 25 238 pd reverberation_tank; #N canvas 58 172 593 487 predelay 0; #X obj 97 19 inlet~; #X obj 97 317 outlet~; #X obj 393 56 sel 0; #X obj 96 209 *~ 1; #X obj 110 178 f 1; #X obj 140 179 f 0; #X obj 428 106 t a b; #X obj 377 222 *~ 1; #X obj 402 191 f 0; #X obj 433 191 f 1; #X text 17 210 no delay; #X text 237 212 delay; #N canvas 294 159 273 227 predelay 0; #X obj 35 52 inlet~; #X obj 94 54 inlet; #N canvas 345 153 450 300 dw 0; #X obj 35 52 inlet~; #X obj 35 101 delwrite~ \$0-predelay 1000; #X obj 34 140 outlet~; #X connect 0 0 1 0; #X restore 34 84 pd dw; #N canvas 326 259 416 179 dr 0; #X obj 126 29 inlet; #X obj 49 28 inlet~; #X obj 126 65 delread~ \$0-predelay 1; #X obj 126 88 outlet~; #X connect 0 0 2 0; #X connect 2 0 3 0; #X restore 33 116 pd dr; #X obj 33 138 outlet~; #X connect 0 0 2 0; #X connect 1 0 3 1; #X connect 2 0 3 0; #X connect 3 0 4 0; #X restore 297 190 pd predelay; #X obj 393 25 r \$0-predelay; #X connect 0 0 3 0; #X connect 0 0 12 0; #X connect 2 0 4 0; #X connect 2 0 8 0; #X connect 2 1 6 0; #X connect 3 0 1 0; #X connect 4 0 3 1; #X connect 5 0 3 1; #X connect 6 0 12 1; #X connect 6 1 5 0; #X connect 6 1 9 0; #X connect 7 0 1 0; #X connect 8 0 7 1; #X connect 9 0 7 1; #X connect 12 0 7 0; #X connect 13 0 2 0; #X restore 25 145 pd predelay; #X obj 85 32 inlet~; #N canvas 0 22 458 308 bandwidth 0; #X obj 66 22 inlet~; #X obj 65 183 outlet~; #X obj 65 107 lop~; #X obj 92 44 r \$0-bandwidth; #X obj 92 66 * 48000; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 4 0 2 1; #X restore 25 177 pd bandwidth; #N canvas 0 22 458 308 1/2 0; #X obj 102 56 inlet~; #X obj 182 56 inlet~; #X obj 103 138 *~ 0.5; #X obj 103 102 +~; #X obj 103 175 outlet~; #X connect 0 0 3 0; #X connect 1 0 3 1; #X connect 2 0 4 0; #X connect 3 0 2 0; #X restore 25 112 pd 1/2; #N canvas 120 111 856 498 output_taps 0; #X obj 28 409 outlet~; #X obj 30 267 -~; #X obj 31 109 +~; #X obj 30 215 +~; #X obj 29 369 -~; #X text 30 26 left; #X obj 32 55 delread~ \$0-tap_48_54 8.93787; #X obj 51 82 delread~ \$0-tap_48_54 99.9294; #X obj 50 134 delread~ \$0-tap_55_59 64.2787; #X obj 31 163 -~; #X obj 49 188 delread~ \$0-tap_59_63 67.0676; #X obj 50 240 delread~ \$0-tap_24_30 66.866; #X obj 50 293 delread~ \$0-tap_31_33 6.28339; #X obj 30 317 -~; #X obj 49 342 delread~ \$0-tap_33_39 35.8187; #X obj 371 407 outlet~; #X obj 370 105 +~; #X obj 371 261 -~; #X obj 370 208 +~; #X obj 371 365 -~; #X text 370 20 right; #X obj 371 51 delread~ \$0-tap_24_30 11.8612; #X obj 390 78 delread~ \$0-tap_24_30 121.871; #X obj 390 130 delread~ \$0-tap_31_33 41.2621; #X obj 390 181 delread~ \$0-tap_33_39 89.8155; #X obj 391 234 delread~ \$0-tap_48_54 70.9317; #X obj 372 313 -~; #X obj 392 286 delread~ \$0-tap_55_59 11.2563; #X obj 390 338 delread~ \$0-tap_59_63 4.06572; #X obj 370 154 -~; #X obj 161 15 inlet~; #X text 222 15 dummy; #X connect 1 0 13 0; #X connect 2 0 9 0; #X connect 3 0 1 0; #X connect 4 0 0 0; #X connect 6 0 2 0; #X connect 7 0 2 1; #X connect 8 0 9 1; #X connect 9 0 3 0; #X connect 10 0 3 1; #X connect 11 0 1 1; #X connect 12 0 13 1; #X connect 13 0 4 0; #X connect 14 0 4 1; #X connect 16 0 29 0; #X connect 17 0 26 0; #X connect 18 0 17 0; #X connect 19 0 15 0; #X connect 21 0 16 0; #X connect 22 0 16 1; #X connect 23 0 29 1; #X connect 24 0 18 1; #X connect 25 0 17 1; #X connect 26 0 19 0; #X connect 27 0 26 1; #X connect 28 0 19 1; #X connect 29 0 18 0; #X restore 24 268 pd output_taps; #N canvas 228 198 627 317 LICENSE-BSD 0; #X text 121 56 This software is copyrighted by Miller Puckette \, Reality Jockey Ltd. and others. The terms (the "Standard Improved BSD License") apply to all files associated with the software unless explicitly disclaimed in individual files.; #X text 123 148 See the file LICENSE.txt for the full license text. ; #X restore 373 40 pd LICENSE-BSD; #X msg 164 290 \$1 10; #X obj 187 137 inlet dry; #X obj 286 192 s \$0-predelay; #X msg 286 170 0; #X obj 431 192 s \$0-bandwidth; #X obj 431 242 s \$0-damping; #X obj 286 242 s \$0-decay; #X obj 286 292 s \$0-input_diffusion1; #X msg 286 270 0.75; #X msg 431 271 0.7; #X obj 431 292 s \$0-decay_diffusion1; #X obj 431 342 s \$0-decay_diffusion2; #X obj 286 342 s \$0-input_diffusion2; #X msg 286 320 0.625; #X obj 286 392 s \$0-excursion; #X obj 286 142 t b; #X obj 281 87 loadbang; #X obj 281 109 del 2000; #X obj 367 83 r tick; #X obj 367 105 mod 100; #X obj 367 127 sel 0; #X msg 431 171 10000; #X msg 286 370 0; #X msg 431 321 0.84; #X obj 23 347 c_xfade; #X obj 118 349 c_xfade; #X floatatom 542 219 5 0 0 0 - - -, f 5; #X floatatom 543 272 5 0 0 0 - - -, f 5; #X msg 286 220 0.8; #X msg 431 221 3000; #X connect 0 0 8 0; #X connect 0 0 35 1; #X connect 3 0 4 0; #X connect 4 0 9 0; #X connect 5 0 7 0; #X connect 6 0 8 1; #X connect 6 0 36 1; #X connect 7 0 3 0; #X connect 8 0 5 0; #X connect 9 0 35 0; #X connect 9 1 36 0; #X connect 11 0 35 2; #X connect 11 0 36 2; #X connect 12 0 11 0; #X connect 12 0 26 0; #X connect 14 0 13 0; #X connect 19 0 18 0; #X connect 20 0 21 0; #X connect 24 0 23 0; #X connect 26 0 14 0; #X connect 26 0 32 0; #X connect 26 0 39 0; #X connect 26 0 40 0; #X connect 26 0 19 0; #X connect 26 0 20 0; #X connect 26 0 34 0; #X connect 26 0 24 0; #X connect 26 0 33 0; #X connect 27 0 28 0; #X connect 28 0 26 0; #X connect 29 0 30 0; #X connect 30 0 31 0; #X connect 31 0 26 0; #X connect 32 0 15 0; #X connect 33 0 25 0; #X connect 34 0 22 0; #X connect 35 0 1 0; #X connect 36 0 2 0; #X connect 37 0 16 0; #X connect 38 0 17 0; #X connect 39 0 17 0; #X connect 40 0 16 0;