Mercurial > hg > beaglert

annotate examples/10-Instruments/vangelisiser/e_platereverb.pd @ 531:ddb86944e138 prerelease

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cleaned up all pd examples (and removed some). added polysynth and vangelisiser to instruments examples
author chnrx <chris.heinrichs@gmail.com>
date Thu, 23 Jun 2016 20:40:05 +0100
parents
children
rev   line source
chris@531 1 #N canvas 115 309 823 465 10;
chris@531 2 #X obj 24 32 inlet~;
chris@531 3 #X obj 23 380 outlet~;
chris@531 4 #X obj 118 380 outlet~;
chris@531 5 #N canvas 0 166 634 506 input_diffusion 0;
chris@531 6 #X obj 30 60 inlet~;
chris@531 7 #X obj 29 295 outlet~;
chris@531 8 #X obj 337 79 r \$0-input_diffusion1;
chris@531 9 #X obj 336 170 r \$0-input_diffusion2;
chris@531 10 #N canvas 393 22 574 578 allpass 0;
chris@531 11 #X obj 56 127 inlet~;
chris@531 12 #X obj 56 400 +~;
chris@531 13 #X obj 427 232 loadbang;
chris@531 14 #X obj 417 286 t f f;
chris@531 15 #X obj 417 310 *;
chris@531 16 #X obj 253 364 *~;
chris@531 17 #X obj 232 394 +~;
chris@531 18 #X obj 114 177 * -1;
chris@531 19 #X obj 88 207 *~;
chris@531 20 #X obj 232 426 outlet~;
chris@531 21 #X obj 417 129 inlet;
chris@531 22 #X obj 114 117 loadbang;
chris@531 23 #X obj 75 365 *~ -1;
chris@531 24 #X obj 201 364 *~ -1;
chris@531 25 #X obj 114 149 f 0.75;
chris@531 26 #X obj 417 262 f 0.75;
chris@531 27 #X obj 56 491 delwrite~ \$0-tap_13_14 200;
chris@531 28 #X obj 252 262 *~ 0.75;
chris@531 29 #X obj 252 53 delread~ \$0-tap_13_14 4.77134;
chris@531 30 #X obj 417 336 swap 1;
chris@531 31 #X obj 417 360 -;
chris@531 32 #X connect 0 0 1 0;
chris@531 33 #X connect 0 0 8 0;
chris@531 34 #X connect 1 0 16 0;
chris@531 35 #X connect 2 0 15 0;
chris@531 36 #X connect 3 0 4 0;
chris@531 37 #X connect 3 1 4 1;
chris@531 38 #X connect 4 0 19 0;
chris@531 39 #X connect 5 0 6 1;
chris@531 40 #X connect 6 0 9 0;
chris@531 41 #X connect 7 0 8 1;
chris@531 42 #X connect 8 0 13 0;
chris@531 43 #X connect 10 0 14 0;
chris@531 44 #X connect 10 0 15 0;
chris@531 45 #X connect 10 0 17 1;
chris@531 46 #X connect 11 0 14 0;
chris@531 47 #X connect 12 0 1 1;
chris@531 48 #X connect 13 0 6 0;
chris@531 49 #X connect 14 0 7 0;
chris@531 50 #X connect 15 0 3 0;
chris@531 51 #X connect 17 0 5 0;
chris@531 52 #X connect 17 0 12 0;
chris@531 53 #X connect 18 0 17 0;
chris@531 54 #X connect 19 0 20 0;
chris@531 55 #X connect 19 1 20 1;
chris@531 56 #X connect 20 0 5 1;
chris@531 57 #X restore 30 99 pd allpass tap_13_14;
chris@531 58 #N canvas 314 22 579 582 allpass 0;
chris@531 59 #X obj 56 127 inlet~;
chris@531 60 #X obj 56 400 +~;
chris@531 61 #X obj 427 232 loadbang;
chris@531 62 #X obj 417 286 t f f;
chris@531 63 #X obj 417 310 *;
chris@531 64 #X obj 253 364 *~;
chris@531 65 #X obj 232 394 +~;
chris@531 66 #X obj 114 177 * -1;
chris@531 67 #X obj 88 207 *~;
chris@531 68 #X obj 232 426 outlet~;
chris@531 69 #X obj 417 129 inlet;
chris@531 70 #X obj 114 117 loadbang;
chris@531 71 #X obj 75 365 *~ -1;
chris@531 72 #X obj 201 364 *~ -1;
chris@531 73 #X obj 114 149 f 0.75;
chris@531 74 #X obj 417 262 f 0.75;
chris@531 75 #X obj 252 262 *~ 0.75;
chris@531 76 #X obj 56 491 delwrite~ \$0-tap_19_20 200;
chris@531 77 #X obj 252 53 delread~ \$0-tap_19_20 3.5953;
chris@531 78 #X obj 417 336 swap 1;
chris@531 79 #X obj 417 360 -;
chris@531 80 #X connect 0 0 1 0;
chris@531 81 #X connect 0 0 8 0;
chris@531 82 #X connect 1 0 17 0;
chris@531 83 #X connect 2 0 15 0;
chris@531 84 #X connect 3 0 4 0;
chris@531 85 #X connect 3 1 4 1;
chris@531 86 #X connect 4 0 19 0;
chris@531 87 #X connect 5 0 6 1;
chris@531 88 #X connect 6 0 9 0;
chris@531 89 #X connect 7 0 8 1;
chris@531 90 #X connect 8 0 13 0;
chris@531 91 #X connect 10 0 14 0;
chris@531 92 #X connect 10 0 15 0;
chris@531 93 #X connect 10 0 16 1;
chris@531 94 #X connect 11 0 14 0;
chris@531 95 #X connect 12 0 1 1;
chris@531 96 #X connect 13 0 6 0;
chris@531 97 #X connect 14 0 7 0;
chris@531 98 #X connect 15 0 3 0;
chris@531 99 #X connect 16 0 5 0;
chris@531 100 #X connect 16 0 12 0;
chris@531 101 #X connect 18 0 16 0;
chris@531 102 #X connect 19 0 20 0;
chris@531 103 #X connect 19 1 20 1;
chris@531 104 #X connect 20 0 5 1;
chris@531 105 #X restore 30 135 pd allpass tap_19_20;
chris@531 106 #N canvas 238 22 570 590 allpass 0;
chris@531 107 #X obj 56 127 inlet~;
chris@531 108 #X obj 56 400 +~;
chris@531 109 #X obj 427 232 loadbang;
chris@531 110 #X obj 417 286 t f f;
chris@531 111 #X obj 417 310 *;
chris@531 112 #X obj 253 364 *~;
chris@531 113 #X obj 232 394 +~;
chris@531 114 #X obj 114 177 * -1;
chris@531 115 #X obj 88 207 *~;
chris@531 116 #X obj 232 426 outlet~;
chris@531 117 #X obj 417 129 inlet;
chris@531 118 #X obj 114 117 loadbang;
chris@531 119 #X obj 75 365 *~ -1;
chris@531 120 #X obj 201 364 *~ -1;
chris@531 121 #X obj 114 149 f 0.625;
chris@531 122 #X obj 252 262 *~ 0.625;
chris@531 123 #X obj 417 262 f 0.625;
chris@531 124 #X obj 56 491 delwrite~ \$0-tap_15_16 200;
chris@531 125 #X obj 252 53 delread~ \$0-tap_15_16 12.7348;
chris@531 126 #X obj 417 336 swap 1;
chris@531 127 #X obj 417 360 -;
chris@531 128 #X connect 0 0 1 0;
chris@531 129 #X connect 0 0 8 0;
chris@531 130 #X connect 1 0 17 0;
chris@531 131 #X connect 2 0 16 0;
chris@531 132 #X connect 3 0 4 0;
chris@531 133 #X connect 3 1 4 1;
chris@531 134 #X connect 4 0 19 0;
chris@531 135 #X connect 5 0 6 1;
chris@531 136 #X connect 6 0 9 0;
chris@531 137 #X connect 7 0 8 1;
chris@531 138 #X connect 8 0 13 0;
chris@531 139 #X connect 10 0 14 0;
chris@531 140 #X connect 10 0 15 1;
chris@531 141 #X connect 10 0 16 0;
chris@531 142 #X connect 11 0 14 0;
chris@531 143 #X connect 12 0 1 1;
chris@531 144 #X connect 13 0 6 0;
chris@531 145 #X connect 14 0 7 0;
chris@531 146 #X connect 15 0 5 0;
chris@531 147 #X connect 15 0 12 0;
chris@531 148 #X connect 16 0 3 0;
chris@531 149 #X connect 18 0 15 0;
chris@531 150 #X connect 19 0 20 0;
chris@531 151 #X connect 19 1 20 1;
chris@531 152 #X connect 20 0 5 1;
chris@531 153 #X restore 30 190 pd allpass tap_15_16;
chris@531 154 #N canvas 238 22 566 586 allpass 0;
chris@531 155 #X obj 56 127 inlet~;
chris@531 156 #X obj 56 400 +~;
chris@531 157 #X obj 427 232 loadbang;
chris@531 158 #X obj 417 286 t f f;
chris@531 159 #X obj 417 310 *;
chris@531 160 #X obj 253 364 *~;
chris@531 161 #X obj 232 394 +~;
chris@531 162 #X obj 114 177 * -1;
chris@531 163 #X obj 88 207 *~;
chris@531 164 #X obj 232 426 outlet~;
chris@531 165 #X obj 417 129 inlet;
chris@531 166 #X obj 114 117 loadbang;
chris@531 167 #X obj 75 365 *~ -1;
chris@531 168 #X obj 201 364 *~ -1;
chris@531 169 #X obj 114 149 f 0.625;
chris@531 170 #X obj 252 262 *~ 0.625;
chris@531 171 #X obj 417 262 f 0.625;
chris@531 172 #X obj 56 491 delwrite~ \$0-tap_21_22 200;
chris@531 173 #X obj 252 53 delread~ \$0-tap_21_22 9.30748;
chris@531 174 #X obj 417 336 swap 1;
chris@531 175 #X obj 417 360 -;
chris@531 176 #X connect 0 0 1 0;
chris@531 177 #X connect 0 0 8 0;
chris@531 178 #X connect 1 0 17 0;
chris@531 179 #X connect 2 0 16 0;
chris@531 180 #X connect 3 0 4 0;
chris@531 181 #X connect 3 1 4 1;
chris@531 182 #X connect 4 0 19 0;
chris@531 183 #X connect 5 0 6 1;
chris@531 184 #X connect 6 0 9 0;
chris@531 185 #X connect 7 0 8 1;
chris@531 186 #X connect 8 0 13 0;
chris@531 187 #X connect 10 0 14 0;
chris@531 188 #X connect 10 0 15 1;
chris@531 189 #X connect 10 0 16 0;
chris@531 190 #X connect 11 0 14 0;
chris@531 191 #X connect 12 0 1 1;
chris@531 192 #X connect 13 0 6 0;
chris@531 193 #X connect 14 0 7 0;
chris@531 194 #X connect 15 0 5 0;
chris@531 195 #X connect 15 0 12 0;
chris@531 196 #X connect 16 0 3 0;
chris@531 197 #X connect 18 0 15 0;
chris@531 198 #X connect 19 0 20 0;
chris@531 199 #X connect 19 1 20 1;
chris@531 200 #X connect 20 0 5 1;
chris@531 201 #X restore 30 230 pd allpass tap_21_22;
chris@531 202 #X connect 0 0 4 0;
chris@531 203 #X connect 2 0 4 1;
chris@531 204 #X connect 2 0 5 1;
chris@531 205 #X connect 3 0 6 1;
chris@531 206 #X connect 3 0 7 1;
chris@531 207 #X connect 4 0 5 0;
chris@531 208 #X connect 5 0 6 0;
chris@531 209 #X connect 6 0 7 0;
chris@531 210 #X connect 7 0 1 0;
chris@531 211 #X restore 25 208 pd input_diffusion;
chris@531 212 #N canvas 38 72 501 476 reverberation_tank 0;
chris@531 213 #X obj 168 85 inlet~;
chris@531 214 #X obj 43 120 +~;
chris@531 215 #X obj 255 121 +~;
chris@531 216 #N canvas 0 22 458 308 z^-4217 0;
chris@531 217 #X obj 106 55 inlet~;
chris@531 218 #X obj 105 120 delwrite~ \$0-tap_48_54 141.695;
chris@531 219 #X text 358 135 4217;
chris@531 220 #X obj 105 147 delread~ \$0-tap_48_54 141.695;
chris@531 221 #X obj 106 223 outlet~;
chris@531 222 #X connect 0 0 1 0;
chris@531 223 #X connect 3 0 4 0;
chris@531 224 #X restore 255 190 pd z^-4217;
chris@531 225 #N canvas 0 22 458 308 z^-4453 0;
chris@531 226 #X obj 41 104 delwrite~ \$0-tap_24_30 149.625;
chris@531 227 #X obj 42 128 delread~ \$0-tap_24_30 149.625;
chris@531 228 #X text 287 119 4453;
chris@531 229 #X obj 43 60 inlet~;
chris@531 230 #X obj 43 168 outlet~;
chris@531 231 #X connect 1 0 4 0;
chris@531 232 #X connect 3 0 0 0;
chris@531 233 #X restore 43 192 pd z^-4453;
chris@531 234 #N canvas 0 22 466 316 damping 0;
chris@531 235 #X obj 74 53 inlet~;
chris@531 236 #X obj 70 222 outlet~;
chris@531 237 #X obj 73 137 lop~ 22050;
chris@531 238 #X obj 162 137 r \$0-damping;
chris@531 239 #X obj 162 159 * 48000;
chris@531 240 #X connect 0 0 2 0;
chris@531 241 #X connect 2 0 1 0;
chris@531 242 #X connect 3 0 4 0;
chris@531 243 #X connect 4 0 2 1;
chris@531 244 #X restore 44 221 pd damping;
chris@531 245 #N canvas 0 22 470 320 damping 0;
chris@531 246 #X obj 74 53 inlet~;
chris@531 247 #X obj 70 222 outlet~;
chris@531 248 #X obj 73 137 lop~ 22050;
chris@531 249 #X obj 162 137 r \$0-damping;
chris@531 250 #X obj 162 159 * 48000;
chris@531 251 #X connect 0 0 2 0;
chris@531 252 #X connect 2 0 1 0;
chris@531 253 #X connect 3 0 4 0;
chris@531 254 #X connect 4 0 2 1;
chris@531 255 #X restore 256 221 pd damping;
chris@531 256 #N canvas 0 22 470 320 decay 0;
chris@531 257 #X obj 71 66 inlet~;
chris@531 258 #X obj 71 220 outlet~;
chris@531 259 #X obj 140 139 r \$0-decay;
chris@531 260 #X obj 70 140 *~ 0.5;
chris@531 261 #X connect 0 0 3 0;
chris@531 262 #X connect 2 0 3 1;
chris@531 263 #X connect 3 0 1 0;
chris@531 264 #X restore 43 249 pd decay;
chris@531 265 #N canvas 0 22 470 320 decay 0;
chris@531 266 #X obj 71 66 inlet~;
chris@531 267 #X obj 71 220 outlet~;
chris@531 268 #X obj 140 139 r \$0-decay;
chris@531 269 #X obj 70 140 *~ 0.5;
chris@531 270 #X connect 0 0 3 0;
chris@531 271 #X connect 2 0 3 1;
chris@531 272 #X connect 3 0 1 0;
chris@531 273 #X restore 257 250 pd decay;
chris@531 274 #N canvas 0 22 466 316 decay 0;
chris@531 275 #X obj 71 66 inlet~;
chris@531 276 #X obj 71 220 outlet~;
chris@531 277 #X obj 140 139 r \$0-decay;
chris@531 278 #X obj 70 140 *~ 0.5;
chris@531 279 #X connect 0 0 3 0;
chris@531 280 #X connect 2 0 3 1;
chris@531 281 #X connect 3 0 1 0;
chris@531 282 #X restore 43 87 pd decay;
chris@531 283 #N canvas 0 22 466 316 decay 0;
chris@531 284 #X obj 71 66 inlet~;
chris@531 285 #X obj 71 220 outlet~;
chris@531 286 #X obj 140 139 r \$0-decay;
chris@531 287 #X obj 70 140 *~ 0.5;
chris@531 288 #X connect 0 0 3 0;
chris@531 289 #X connect 2 0 3 1;
chris@531 290 #X connect 3 0 1 0;
chris@531 291 #X restore 273 85 pd decay;
chris@531 292 #N canvas 0 22 498 348 decay_diffusion1 0;
chris@531 293 #N canvas 232 298 494 344 excursion 0;
chris@531 294 #X obj 64 192 outlet~;
chris@531 295 #X obj 62 90 osc~ 1;
chris@531 296 #X obj 63 143 *~ 0.53761;
chris@531 297 #X obj 130 109 r \$0-excursion;
chris@531 298 #X connect 1 0 2 0;
chris@531 299 #X connect 2 0 0 0;
chris@531 300 #X connect 3 0 2 1;
chris@531 301 #X restore 133 120 pd excursion;
chris@531 302 #X obj 43 32 inlet~;
chris@531 303 #X obj 44 250 outlet~;
chris@531 304 #X obj 88 84 r \$0-decay_diffusion1;
chris@531 305 #N canvas 409 74 612 523 allpassvd 0;
chris@531 306 #X obj 48 83 inlet~;
chris@531 307 #X obj 48 296 +~;
chris@531 308 #X obj 285 142 loadbang;
chris@531 309 #X obj 285 196 t f f;
chris@531 310 #X obj 285 220 *;
chris@531 311 #X obj 229 277 *~;
chris@531 312 #X obj 216 300 +~;
chris@531 313 #X obj 94 138 * -1;
chris@531 314 #X obj 80 163 *~;
chris@531 315 #X obj 217 401 outlet~;
chris@531 316 #X obj 392 30 inlet~;
chris@531 317 #X obj 447 56 sig~;
chris@531 318 #X obj 447 10 loadbang;
chris@531 319 #X obj 390 78 +~;
chris@531 320 #X obj 255 45 inlet;
chris@531 321 #X obj 94 60 loadbang;
chris@531 322 #X text 9 6 arguments: delay(ms) feedback(mult);
chris@531 323 #X text 10 20 inlets: signal feedback(mult) excursion;
chris@531 324 #X obj 94 114 f 0.7;
chris@531 325 #X obj 230 152 *~ 0.7;
chris@531 326 #X obj 285 172 f 0.7;
chris@531 327 #X obj 391 404 +~;
chris@531 328 #X text 372 428 excursion;
chris@531 329 #X obj 48 327 delwrite~ \$0-tap_23_24 100;
chris@531 330 #X obj 283 101 vd~ \$0-tap_23_24;
chris@531 331 #X obj 447 33 f 22.5599;
chris@531 332 #X obj 285 244 swap 1;
chris@531 333 #X obj 285 268 -;
chris@531 334 #X connect 0 0 1 0;
chris@531 335 #X connect 0 0 8 0;
chris@531 336 #X connect 1 0 23 0;
chris@531 337 #X connect 2 0 20 0;
chris@531 338 #X connect 3 0 4 0;
chris@531 339 #X connect 3 1 4 1;
chris@531 340 #X connect 4 0 26 0;
chris@531 341 #X connect 5 0 6 1;
chris@531 342 #X connect 6 0 9 0;
chris@531 343 #X connect 7 0 8 1;
chris@531 344 #X connect 8 0 6 0;
chris@531 345 #X connect 10 0 13 0;
chris@531 346 #X connect 11 0 13 1;
chris@531 347 #X connect 12 0 25 0;
chris@531 348 #X connect 13 0 21 0;
chris@531 349 #X connect 13 0 24 0;
chris@531 350 #X connect 14 0 18 0;
chris@531 351 #X connect 14 0 19 1;
chris@531 352 #X connect 14 0 20 0;
chris@531 353 #X connect 15 0 18 0;
chris@531 354 #X connect 18 0 7 0;
chris@531 355 #X connect 19 0 1 1;
chris@531 356 #X connect 19 0 5 0;
chris@531 357 #X connect 20 0 3 0;
chris@531 358 #X connect 24 0 19 0;
chris@531 359 #X connect 25 0 11 0;
chris@531 360 #X connect 26 0 27 0;
chris@531 361 #X connect 26 1 27 1;
chris@531 362 #X connect 27 0 5 1;
chris@531 363 #X restore 43 150 pd allpassvd;
chris@531 364 #X connect 0 0 4 2;
chris@531 365 #X connect 1 0 4 0;
chris@531 366 #X connect 3 0 4 1;
chris@531 367 #X connect 4 0 2 0;
chris@531 368 #X restore 44 156 pd decay_diffusion1;
chris@531 369 #N canvas 0 22 529 394 decay_diffusion1 0;
chris@531 370 #N canvas 232 298 482 332 excursion 0;
chris@531 371 #X obj 65 192 outlet~;
chris@531 372 #X obj 63 81 osc~ 1;
chris@531 373 #X obj 64 134 *~ 0.53761;
chris@531 374 #X obj 139 104 r \$0-excursion;
chris@531 375 #X connect 1 0 2 0;
chris@531 376 #X connect 2 0 0 0;
chris@531 377 #X connect 3 0 2 1;
chris@531 378 #X restore 138 92 pd excursion;
chris@531 379 #X obj 49 25 inlet~;
chris@531 380 #X obj 49 200 outlet~;
chris@531 381 #X obj 93 60 r \$0-decay_diffusion1;
chris@531 382 #N canvas 348 52 608 519 allpassvd 0;
chris@531 383 #X obj 48 83 inlet~;
chris@531 384 #X obj 48 296 +~;
chris@531 385 #X obj 285 142 loadbang;
chris@531 386 #X obj 285 196 t f f;
chris@531 387 #X obj 285 220 *;
chris@531 388 #X obj 229 277 *~;
chris@531 389 #X obj 216 300 +~;
chris@531 390 #X obj 94 138 * -1;
chris@531 391 #X obj 80 163 *~;
chris@531 392 #X obj 217 401 outlet~;
chris@531 393 #X obj 392 30 inlet~;
chris@531 394 #X obj 447 56 sig~;
chris@531 395 #X obj 447 10 loadbang;
chris@531 396 #X obj 390 78 +~;
chris@531 397 #X obj 255 45 inlet;
chris@531 398 #X obj 94 60 loadbang;
chris@531 399 #X text 9 6 arguments: delay(ms) feedback(mult);
chris@531 400 #X text 10 20 inlets: signal feedback(mult) excursion;
chris@531 401 #X obj 48 327 delwrite~ \$0-tap_46_48 100;
chris@531 402 #X obj 283 101 vd~ \$0-tap_46_48;
chris@531 403 #X obj 447 33 f 30.5097;
chris@531 404 #X obj 94 114 f 0.7;
chris@531 405 #X obj 230 152 *~ 0.7;
chris@531 406 #X obj 285 172 f 0.7;
chris@531 407 #X obj 391 404 +~;
chris@531 408 #X text 372 428 excursion;
chris@531 409 #X obj 285 244 swap 1;
chris@531 410 #X obj 285 268 -;
chris@531 411 #X connect 0 0 1 0;
chris@531 412 #X connect 0 0 8 0;
chris@531 413 #X connect 1 0 18 0;
chris@531 414 #X connect 2 0 23 0;
chris@531 415 #X connect 3 0 4 0;
chris@531 416 #X connect 3 1 4 1;
chris@531 417 #X connect 4 0 26 0;
chris@531 418 #X connect 5 0 6 1;
chris@531 419 #X connect 6 0 9 0;
chris@531 420 #X connect 7 0 8 1;
chris@531 421 #X connect 8 0 6 0;
chris@531 422 #X connect 10 0 13 0;
chris@531 423 #X connect 11 0 13 1;
chris@531 424 #X connect 12 0 20 0;
chris@531 425 #X connect 13 0 19 0;
chris@531 426 #X connect 13 0 24 0;
chris@531 427 #X connect 14 0 21 0;
chris@531 428 #X connect 14 0 22 1;
chris@531 429 #X connect 14 0 23 0;
chris@531 430 #X connect 15 0 21 0;
chris@531 431 #X connect 19 0 22 0;
chris@531 432 #X connect 20 0 11 0;
chris@531 433 #X connect 21 0 7 0;
chris@531 434 #X connect 22 0 1 1;
chris@531 435 #X connect 22 0 5 0;
chris@531 436 #X connect 23 0 3 0;
chris@531 437 #X connect 26 0 27 0;
chris@531 438 #X connect 26 1 27 1;
chris@531 439 #X connect 27 0 5 1;
chris@531 440 #X restore 48 135 pd allpassvd;
chris@531 441 #X connect 0 0 4 2;
chris@531 442 #X connect 1 0 4 0;
chris@531 443 #X connect 3 0 4 1;
chris@531 444 #X connect 4 0 2 0;
chris@531 445 #X restore 256 155 pd decay_diffusion1;
chris@531 446 #N canvas 327 329 552 336 decay_diffusion2 0;
chris@531 447 #X obj 37 63 inlet~;
chris@531 448 #X obj 37 220 outlet~;
chris@531 449 #N canvas 393 22 582 586 allpass 0;
chris@531 450 #X obj 56 127 inlet~;
chris@531 451 #X obj 56 400 +~;
chris@531 452 #X obj 427 232 loadbang;
chris@531 453 #X obj 417 286 t f f;
chris@531 454 #X obj 417 310 *;
chris@531 455 #X obj 253 364 *~;
chris@531 456 #X obj 232 394 +~;
chris@531 457 #X obj 114 177 * -1;
chris@531 458 #X obj 88 207 *~;
chris@531 459 #X obj 232 426 outlet~;
chris@531 460 #X obj 417 129 inlet;
chris@531 461 #X obj 114 117 loadbang;
chris@531 462 #X obj 75 365 *~ -1;
chris@531 463 #X obj 201 364 *~ -1;
chris@531 464 #X obj 252 52 delread~ \$0-tap_31_33 60.4818;
chris@531 465 #X obj 56 491 delwrite~ \$0-tap_31_33 200;
chris@531 466 #X obj 114 149 f 0.5;
chris@531 467 #X obj 252 262 *~ 0.5;
chris@531 468 #X obj 417 262 f 0.5;
chris@531 469 #X obj 417 334 swap 1;
chris@531 470 #X obj 417 358 -;
chris@531 471 #X connect 0 0 1 0;
chris@531 472 #X connect 0 0 8 0;
chris@531 473 #X connect 1 0 15 0;
chris@531 474 #X connect 2 0 18 0;
chris@531 475 #X connect 3 0 4 0;
chris@531 476 #X connect 3 1 4 1;
chris@531 477 #X connect 4 0 19 0;
chris@531 478 #X connect 5 0 6 1;
chris@531 479 #X connect 6 0 9 0;
chris@531 480 #X connect 7 0 8 1;
chris@531 481 #X connect 8 0 13 0;
chris@531 482 #X connect 10 0 16 0;
chris@531 483 #X connect 10 0 17 1;
chris@531 484 #X connect 10 0 18 0;
chris@531 485 #X connect 11 0 16 0;
chris@531 486 #X connect 12 0 1 1;
chris@531 487 #X connect 13 0 6 0;
chris@531 488 #X connect 14 0 17 0;
chris@531 489 #X connect 16 0 7 0;
chris@531 490 #X connect 17 0 5 0;
chris@531 491 #X connect 17 0 12 0;
chris@531 492 #X connect 18 0 3 0;
chris@531 493 #X connect 19 0 20 0;
chris@531 494 #X connect 19 1 20 1;
chris@531 495 #X connect 20 0 5 1;
chris@531 496 #X restore 36 143 pd allpass tap_31_33;
chris@531 497 #X obj 191 114 r \$0-decay_diffusion2;
chris@531 498 #X connect 0 0 2 0;
chris@531 499 #X connect 2 0 1 0;
chris@531 500 #X connect 3 0 2 1;
chris@531 501 #X restore 43 277 pd decay_diffusion2;
chris@531 502 #N canvas 0 22 553 336 decay_diffusion2 0;
chris@531 503 #X obj 52 38 inlet~;
chris@531 504 #X obj 54 171 outlet~;
chris@531 505 #X obj 210 85 r \$0-decay_diffusion2;
chris@531 506 #N canvas 393 22 586 590 allpass 0;
chris@531 507 #X obj 56 127 inlet~;
chris@531 508 #X obj 56 400 +~;
chris@531 509 #X obj 427 232 loadbang;
chris@531 510 #X obj 417 286 t f f;
chris@531 511 #X obj 417 310 *;
chris@531 512 #X obj 253 364 *~;
chris@531 513 #X obj 232 394 +~;
chris@531 514 #X obj 114 177 * -1;
chris@531 515 #X obj 88 207 *~;
chris@531 516 #X obj 232 426 outlet~;
chris@531 517 #X obj 417 129 inlet;
chris@531 518 #X obj 114 117 loadbang;
chris@531 519 #X obj 75 365 *~ -1;
chris@531 520 #X obj 201 364 *~ -1;
chris@531 521 #X obj 114 149 f 0.5;
chris@531 522 #X obj 252 262 *~ 0.5;
chris@531 523 #X obj 417 262 f 0.5;
chris@531 524 #X obj 56 491 delwrite~ \$0-tap_55_59 200;
chris@531 525 #X obj 252 52 delread~ \$0-tap_55_59 89.2443;
chris@531 526 #X obj 417 334 swap 1;
chris@531 527 #X obj 417 358 -;
chris@531 528 #X connect 0 0 1 0;
chris@531 529 #X connect 0 0 8 0;
chris@531 530 #X connect 1 0 17 0;
chris@531 531 #X connect 2 0 16 0;
chris@531 532 #X connect 3 0 4 0;
chris@531 533 #X connect 3 1 4 1;
chris@531 534 #X connect 4 0 19 0;
chris@531 535 #X connect 5 0 6 1;
chris@531 536 #X connect 6 0 9 0;
chris@531 537 #X connect 7 0 8 1;
chris@531 538 #X connect 8 0 13 0;
chris@531 539 #X connect 10 0 14 0;
chris@531 540 #X connect 10 0 15 1;
chris@531 541 #X connect 10 0 16 0;
chris@531 542 #X connect 11 0 14 0;
chris@531 543 #X connect 12 0 1 1;
chris@531 544 #X connect 13 0 6 0;
chris@531 545 #X connect 14 0 7 0;
chris@531 546 #X connect 15 0 5 0;
chris@531 547 #X connect 15 0 12 0;
chris@531 548 #X connect 16 0 3 0;
chris@531 549 #X connect 18 0 15 0;
chris@531 550 #X connect 19 0 20 0;
chris@531 551 #X connect 19 1 20 1;
chris@531 552 #X connect 20 0 5 1;
chris@531 553 #X restore 55 114 pd allpass tap_55_59;
chris@531 554 #X connect 0 0 3 0;
chris@531 555 #X connect 2 0 3 1;
chris@531 556 #X connect 3 0 1 0;
chris@531 557 #X restore 256 278 pd decay_diffusion2;
chris@531 558 #N canvas 0 22 454 304 feedback 0;
chris@531 559 #X obj 43 118 outlet~;
chris@531 560 #X obj 44 55 delread~ \$0-tap_59_63 106.28;
chris@531 561 #X connect 1 0 0 0;
chris@531 562 #X restore 43 49 pd feedback;
chris@531 563 #N canvas 0 22 454 304 feedback 0;
chris@531 564 #X obj 81 188 outlet~;
chris@531 565 #X obj 81 134 delread~ \$0-tap_33_39 124.996;
chris@531 566 #X connect 1 0 0 0;
chris@531 567 #X restore 274 51 pd feedback;
chris@531 568 #N canvas 0 22 458 308 to_left 0;
chris@531 569 #X obj 48 52 inlet~;
chris@531 570 #X obj 48 95 delwrite~ \$0-tap_59_63 106.28;
chris@531 571 #X connect 0 0 1 0;
chris@531 572 #X restore 255 306 pd to_left;
chris@531 573 #N canvas 0 22 454 304 to_right 0;
chris@531 574 #X obj 53 173 delwrite~ \$0-tap_33_39 124.996;
chris@531 575 #X obj 56 100 inlet~;
chris@531 576 #X connect 1 0 0 0;
chris@531 577 #X restore 44 305 pd to_right;
chris@531 578 #X text 344 190 48_54;
chris@531 579 #X text 136 193 24_30;
chris@531 580 #X obj 170 357 outlet~;
chris@531 581 #X text 242 358 dummy;
chris@531 582 #X connect 0 0 1 1;
chris@531 583 #X connect 0 0 2 0;
chris@531 584 #X connect 1 0 11 0;
chris@531 585 #X connect 2 0 12 0;
chris@531 586 #X connect 3 0 6 0;
chris@531 587 #X connect 4 0 5 0;
chris@531 588 #X connect 5 0 7 0;
chris@531 589 #X connect 6 0 8 0;
chris@531 590 #X connect 7 0 13 0;
chris@531 591 #X connect 8 0 14 0;
chris@531 592 #X connect 9 0 1 0;
chris@531 593 #X connect 10 0 2 1;
chris@531 594 #X connect 11 0 4 0;
chris@531 595 #X connect 12 0 3 0;
chris@531 596 #X connect 13 0 18 0;
chris@531 597 #X connect 14 0 17 0;
chris@531 598 #X connect 15 0 9 0;
chris@531 599 #X connect 16 0 10 0;
chris@531 600 #X restore 25 238 pd reverberation_tank;
chris@531 601 #N canvas 58 172 593 487 predelay 0;
chris@531 602 #X obj 97 19 inlet~;
chris@531 603 #X obj 97 317 outlet~;
chris@531 604 #X obj 393 56 sel 0;
chris@531 605 #X obj 96 209 *~ 1;
chris@531 606 #X obj 110 178 f 1;
chris@531 607 #X obj 140 179 f 0;
chris@531 608 #X obj 428 106 t a b;
chris@531 609 #X obj 377 222 *~ 1;
chris@531 610 #X obj 402 191 f 0;
chris@531 611 #X obj 433 191 f 1;
chris@531 612 #X text 17 210 no delay;
chris@531 613 #X text 237 212 delay;
chris@531 614 #N canvas 294 159 273 227 predelay 0;
chris@531 615 #X obj 35 52 inlet~;
chris@531 616 #X obj 94 54 inlet;
chris@531 617 #N canvas 345 153 450 300 dw 0;
chris@531 618 #X obj 35 52 inlet~;
chris@531 619 #X obj 35 101 delwrite~ \$0-predelay 1000;
chris@531 620 #X obj 34 140 outlet~;
chris@531 621 #X connect 0 0 1 0;
chris@531 622 #X restore 34 84 pd dw;
chris@531 623 #N canvas 326 259 416 179 dr 0;
chris@531 624 #X obj 126 29 inlet;
chris@531 625 #X obj 49 28 inlet~;
chris@531 626 #X obj 126 65 delread~ \$0-predelay 1;
chris@531 627 #X obj 126 88 outlet~;
chris@531 628 #X connect 0 0 2 0;
chris@531 629 #X connect 2 0 3 0;
chris@531 630 #X restore 33 116 pd dr;
chris@531 631 #X obj 33 138 outlet~;
chris@531 632 #X connect 0 0 2 0;
chris@531 633 #X connect 1 0 3 1;
chris@531 634 #X connect 2 0 3 0;
chris@531 635 #X connect 3 0 4 0;
chris@531 636 #X restore 297 190 pd predelay;
chris@531 637 #X obj 393 25 r \$0-predelay;
chris@531 638 #X connect 0 0 3 0;
chris@531 639 #X connect 0 0 12 0;
chris@531 640 #X connect 2 0 4 0;
chris@531 641 #X connect 2 0 8 0;
chris@531 642 #X connect 2 1 6 0;
chris@531 643 #X connect 3 0 1 0;
chris@531 644 #X connect 4 0 3 1;
chris@531 645 #X connect 5 0 3 1;
chris@531 646 #X connect 6 0 12 1;
chris@531 647 #X connect 6 1 5 0;
chris@531 648 #X connect 6 1 9 0;
chris@531 649 #X connect 7 0 1 0;
chris@531 650 #X connect 8 0 7 1;
chris@531 651 #X connect 9 0 7 1;
chris@531 652 #X connect 12 0 7 0;
chris@531 653 #X connect 13 0 2 0;
chris@531 654 #X restore 25 145 pd predelay;
chris@531 655 #X obj 85 32 inlet~;
chris@531 656 #N canvas 0 22 458 308 bandwidth 0;
chris@531 657 #X obj 66 22 inlet~;
chris@531 658 #X obj 65 183 outlet~;
chris@531 659 #X obj 65 107 lop~;
chris@531 660 #X obj 92 44 r \$0-bandwidth;
chris@531 661 #X obj 92 66 * 48000;
chris@531 662 #X connect 0 0 2 0;
chris@531 663 #X connect 2 0 1 0;
chris@531 664 #X connect 3 0 4 0;
chris@531 665 #X connect 4 0 2 1;
chris@531 666 #X restore 25 177 pd bandwidth;
chris@531 667 #N canvas 0 22 458 308 1/2 0;
chris@531 668 #X obj 102 56 inlet~;
chris@531 669 #X obj 182 56 inlet~;
chris@531 670 #X obj 103 138 *~ 0.5;
chris@531 671 #X obj 103 102 +~;
chris@531 672 #X obj 103 175 outlet~;
chris@531 673 #X connect 0 0 3 0;
chris@531 674 #X connect 1 0 3 1;
chris@531 675 #X connect 2 0 4 0;
chris@531 676 #X connect 3 0 2 0;
chris@531 677 #X restore 25 112 pd 1/2;
chris@531 678 #N canvas 120 111 856 498 output_taps 0;
chris@531 679 #X obj 28 409 outlet~;
chris@531 680 #X obj 30 267 -~;
chris@531 681 #X obj 31 109 +~;
chris@531 682 #X obj 30 215 +~;
chris@531 683 #X obj 29 369 -~;
chris@531 684 #X text 30 26 left;
chris@531 685 #X obj 32 55 delread~ \$0-tap_48_54 8.93787;
chris@531 686 #X obj 51 82 delread~ \$0-tap_48_54 99.9294;
chris@531 687 #X obj 50 134 delread~ \$0-tap_55_59 64.2787;
chris@531 688 #X obj 31 163 -~;
chris@531 689 #X obj 49 188 delread~ \$0-tap_59_63 67.0676;
chris@531 690 #X obj 50 240 delread~ \$0-tap_24_30 66.866;
chris@531 691 #X obj 50 293 delread~ \$0-tap_31_33 6.28339;
chris@531 692 #X obj 30 317 -~;
chris@531 693 #X obj 49 342 delread~ \$0-tap_33_39 35.8187;
chris@531 694 #X obj 371 407 outlet~;
chris@531 695 #X obj 370 105 +~;
chris@531 696 #X obj 371 261 -~;
chris@531 697 #X obj 370 208 +~;
chris@531 698 #X obj 371 365 -~;
chris@531 699 #X text 370 20 right;
chris@531 700 #X obj 371 51 delread~ \$0-tap_24_30 11.8612;
chris@531 701 #X obj 390 78 delread~ \$0-tap_24_30 121.871;
chris@531 702 #X obj 390 130 delread~ \$0-tap_31_33 41.2621;
chris@531 703 #X obj 390 181 delread~ \$0-tap_33_39 89.8155;
chris@531 704 #X obj 391 234 delread~ \$0-tap_48_54 70.9317;
chris@531 705 #X obj 372 313 -~;
chris@531 706 #X obj 392 286 delread~ \$0-tap_55_59 11.2563;
chris@531 707 #X obj 390 338 delread~ \$0-tap_59_63 4.06572;
chris@531 708 #X obj 370 154 -~;
chris@531 709 #X obj 161 15 inlet~;
chris@531 710 #X text 222 15 dummy;
chris@531 711 #X connect 1 0 13 0;
chris@531 712 #X connect 2 0 9 0;
chris@531 713 #X connect 3 0 1 0;
chris@531 714 #X connect 4 0 0 0;
chris@531 715 #X connect 6 0 2 0;
chris@531 716 #X connect 7 0 2 1;
chris@531 717 #X connect 8 0 9 1;
chris@531 718 #X connect 9 0 3 0;
chris@531 719 #X connect 10 0 3 1;
chris@531 720 #X connect 11 0 1 1;
chris@531 721 #X connect 12 0 13 1;
chris@531 722 #X connect 13 0 4 0;
chris@531 723 #X connect 14 0 4 1;
chris@531 724 #X connect 16 0 29 0;
chris@531 725 #X connect 17 0 26 0;
chris@531 726 #X connect 18 0 17 0;
chris@531 727 #X connect 19 0 15 0;
chris@531 728 #X connect 21 0 16 0;
chris@531 729 #X connect 22 0 16 1;
chris@531 730 #X connect 23 0 29 1;
chris@531 731 #X connect 24 0 18 1;
chris@531 732 #X connect 25 0 17 1;
chris@531 733 #X connect 26 0 19 0;
chris@531 734 #X connect 27 0 26 1;
chris@531 735 #X connect 28 0 19 1;
chris@531 736 #X connect 29 0 18 0;
chris@531 737 #X restore 24 268 pd output_taps;
chris@531 738 #N canvas 228 198 627 317 LICENSE-BSD 0;
chris@531 739 #X text 121 56 This software is copyrighted by Miller Puckette \, Reality
chris@531 740 Jockey Ltd. and others. The terms (the "Standard Improved BSD License")
chris@531 741 apply to all files associated with the software unless explicitly disclaimed
chris@531 742 in individual files.;
chris@531 743 #X text 123 148 See the file LICENSE.txt for the full license text.
chris@531 744 ;
chris@531 745 #X restore 373 40 pd LICENSE-BSD;
chris@531 746 #X msg 164 290 \$1 10;
chris@531 747 #X obj 187 137 inlet dry;
chris@531 748 #X obj 286 192 s \$0-predelay;
chris@531 749 #X msg 286 170 0;
chris@531 750 #X obj 431 192 s \$0-bandwidth;
chris@531 751 #X obj 431 242 s \$0-damping;
chris@531 752 #X obj 286 242 s \$0-decay;
chris@531 753 #X obj 286 292 s \$0-input_diffusion1;
chris@531 754 #X msg 286 270 0.75;
chris@531 755 #X msg 431 271 0.7;
chris@531 756 #X obj 431 292 s \$0-decay_diffusion1;
chris@531 757 #X obj 431 342 s \$0-decay_diffusion2;
chris@531 758 #X obj 286 342 s \$0-input_diffusion2;
chris@531 759 #X msg 286 320 0.625;
chris@531 760 #X obj 286 392 s \$0-excursion;
chris@531 761 #X obj 286 142 t b;
chris@531 762 #X obj 281 87 loadbang;
chris@531 763 #X obj 281 109 del 2000;
chris@531 764 #X obj 367 83 r tick;
chris@531 765 #X obj 367 105 mod 100;
chris@531 766 #X obj 367 127 sel 0;
chris@531 767 #X msg 431 171 10000;
chris@531 768 #X msg 286 370 0;
chris@531 769 #X msg 431 321 0.84;
chris@531 770 #X obj 23 347 c_xfade;
chris@531 771 #X obj 118 349 c_xfade;
chris@531 772 #X floatatom 542 219 5 0 0 0 - - -, f 5;
chris@531 773 #X floatatom 543 272 5 0 0 0 - - -, f 5;
chris@531 774 #X msg 286 220 0.8;
chris@531 775 #X msg 431 221 3000;
chris@531 776 #X connect 0 0 8 0;
chris@531 777 #X connect 0 0 35 1;
chris@531 778 #X connect 3 0 4 0;
chris@531 779 #X connect 4 0 9 0;
chris@531 780 #X connect 5 0 7 0;
chris@531 781 #X connect 6 0 8 1;
chris@531 782 #X connect 6 0 36 1;
chris@531 783 #X connect 7 0 3 0;
chris@531 784 #X connect 8 0 5 0;
chris@531 785 #X connect 9 0 35 0;
chris@531 786 #X connect 9 1 36 0;
chris@531 787 #X connect 11 0 35 2;
chris@531 788 #X connect 11 0 36 2;
chris@531 789 #X connect 12 0 11 0;
chris@531 790 #X connect 12 0 26 0;
chris@531 791 #X connect 14 0 13 0;
chris@531 792 #X connect 19 0 18 0;
chris@531 793 #X connect 20 0 21 0;
chris@531 794 #X connect 24 0 23 0;
chris@531 795 #X connect 26 0 14 0;
chris@531 796 #X connect 26 0 32 0;
chris@531 797 #X connect 26 0 39 0;
chris@531 798 #X connect 26 0 40 0;
chris@531 799 #X connect 26 0 19 0;
chris@531 800 #X connect 26 0 20 0;
chris@531 801 #X connect 26 0 34 0;
chris@531 802 #X connect 26 0 24 0;
chris@531 803 #X connect 26 0 33 0;
chris@531 804 #X connect 27 0 28 0;
chris@531 805 #X connect 28 0 26 0;
chris@531 806 #X connect 29 0 30 0;
chris@531 807 #X connect 30 0 31 0;
chris@531 808 #X connect 31 0 26 0;
chris@531 809 #X connect 32 0 15 0;
chris@531 810 #X connect 33 0 25 0;
chris@531 811 #X connect 34 0 22 0;
chris@531 812 #X connect 35 0 1 0;
chris@531 813 #X connect 36 0 2 0;
chris@531 814 #X connect 37 0 16 0;
chris@531 815 #X connect 38 0 17 0;
chris@531 816 #X connect 39 0 17 0;
chris@531 817 #X connect 40 0 16 0;