-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathjon~.pd
916 lines (916 loc) · 21.5 KB
/
jon~.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
#N canvas 229 105 390 422 12;
#X obj 24 32 inlet~;
#X obj 27 282 outlet~;
#X obj 135 282 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 50 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 417 334 expr 1-$f1;
#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 connect 0 0 1 0;
#X connect 0 0 9 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 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 10 0;
#X connect 8 0 9 1;
#X connect 9 0 14 0;
#X connect 11 0 15 0;
#X connect 11 0 16 0;
#X connect 11 0 18 1;
#X connect 12 0 15 0;
#X connect 13 0 1 1;
#X connect 14 0 7 0;
#X connect 15 0 8 0;
#X connect 16 0 3 0;
#X connect 18 0 6 0;
#X connect 18 0 13 0;
#X connect 19 0 18 0;
#X restore 30 99 pd allpass tap_13_14;
#N canvas 314 50 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 417 334 expr 1-$f1;
#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 connect 0 0 1 0;
#X connect 0 0 9 0;
#X connect 1 0 18 0;
#X connect 2 0 16 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 10 0;
#X connect 8 0 9 1;
#X connect 9 0 14 0;
#X connect 11 0 15 0;
#X connect 11 0 16 0;
#X connect 11 0 17 1;
#X connect 12 0 15 0;
#X connect 13 0 1 1;
#X connect 14 0 7 0;
#X connect 15 0 8 0;
#X connect 16 0 3 0;
#X connect 17 0 6 0;
#X connect 17 0 13 0;
#X connect 19 0 17 0;
#X restore 30 135 pd allpass tap_19_20;
#N canvas 238 50 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 417 334 expr 1-$f1;
#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 connect 0 0 1 0;
#X connect 0 0 9 0;
#X connect 1 0 18 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 10 0;
#X connect 8 0 9 1;
#X connect 9 0 14 0;
#X connect 11 0 15 0;
#X connect 11 0 16 1;
#X connect 11 0 17 0;
#X connect 12 0 15 0;
#X connect 13 0 1 1;
#X connect 14 0 7 0;
#X connect 15 0 8 0;
#X connect 16 0 6 0;
#X connect 16 0 13 0;
#X connect 17 0 3 0;
#X connect 19 0 16 0;
#X restore 30 190 pd allpass tap_15_16;
#N canvas 238 50 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 417 334 expr 1-$f1;
#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 connect 0 0 1 0;
#X connect 0 0 9 0;
#X connect 1 0 18 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 10 0;
#X connect 8 0 9 1;
#X connect 9 0 14 0;
#X connect 11 0 15 0;
#X connect 11 0 16 1;
#X connect 11 0 17 0;
#X connect 12 0 15 0;
#X connect 13 0 1 1;
#X connect 14 0 7 0;
#X connect 15 0 8 0;
#X connect 16 0 6 0;
#X connect 16 0 13 0;
#X connect 17 0 3 0;
#X connect 19 0 16 0;
#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 168 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 50 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 50 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 50 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 connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X restore 44 221 pd damping;
#N canvas 0 50 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 connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X restore 256 221 pd damping;
#N canvas 0 50 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 50 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 50 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 50 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 50 498 348 decay_diffusion1 0;
#N canvas 232 298 494 344 excursion 0;
#X obj 66 192 outlet~;
#X obj 62 90 osc~ 1;
#X obj 63 143 *~ 0.53761;
#X obj 138 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 285 244 expr 1-$f1;
#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 connect 0 0 1 0;
#X connect 0 0 9 0;
#X connect 1 0 24 0;
#X connect 2 0 21 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 10 0;
#X connect 8 0 9 1;
#X connect 9 0 7 0;
#X connect 11 0 14 0;
#X connect 12 0 14 1;
#X connect 13 0 26 0;
#X connect 14 0 22 0;
#X connect 14 0 25 0;
#X connect 15 0 19 0;
#X connect 15 0 20 1;
#X connect 15 0 21 0;
#X connect 16 0 19 0;
#X connect 19 0 8 0;
#X connect 20 0 1 1;
#X connect 20 0 6 0;
#X connect 21 0 3 0;
#X connect 25 0 20 0;
#X connect 26 0 12 0;
#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 50 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 285 244 expr 1-$f1;
#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 connect 0 0 1 0;
#X connect 0 0 9 0;
#X connect 1 0 19 0;
#X connect 2 0 24 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 10 0;
#X connect 8 0 9 1;
#X connect 9 0 7 0;
#X connect 11 0 14 0;
#X connect 12 0 14 1;
#X connect 13 0 21 0;
#X connect 14 0 20 0;
#X connect 15 0 22 0;
#X connect 15 0 23 1;
#X connect 15 0 24 0;
#X connect 16 0 22 0;
#X connect 20 0 23 0;
#X connect 21 0 12 0;
#X connect 22 0 8 0;
#X connect 23 0 1 1;
#X connect 23 0 6 0;
#X connect 24 0 3 0;
#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 50 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 417 334 expr 1-$f1;
#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 connect 0 0 1 0;
#X connect 0 0 9 0;
#X connect 1 0 16 0;
#X connect 2 0 19 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 10 0;
#X connect 8 0 9 1;
#X connect 9 0 14 0;
#X connect 11 0 17 0;
#X connect 11 0 18 1;
#X connect 11 0 19 0;
#X connect 12 0 17 0;
#X connect 13 0 1 1;
#X connect 14 0 7 0;
#X connect 15 0 18 0;
#X connect 17 0 8 0;
#X connect 18 0 6 0;
#X connect 18 0 13 0;
#X connect 19 0 3 0;
#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 50 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 50 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 417 334 expr 1-$f1;
#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 connect 0 0 1 0;
#X connect 0 0 9 0;
#X connect 1 0 18 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 10 0;
#X connect 8 0 9 1;
#X connect 9 0 14 0;
#X connect 11 0 15 0;
#X connect 11 0 16 1;
#X connect 11 0 17 0;
#X connect 12 0 15 0;
#X connect 13 0 1 1;
#X connect 14 0 7 0;
#X connect 15 0 8 0;
#X connect 16 0 6 0;
#X connect 16 0 13 0;
#X connect 17 0 3 0;
#X connect 19 0 16 0;
#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 50 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 50 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 50 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 50 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 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 198 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 0 50 496 308 predelay 0;
#X obj 35 52 inlet~;
#X obj 263 227 outlet~;
#X obj 264 50 inlet;
#X obj 35 101 delwrite~ \$0-predelay 1000;
#X obj 264 183 delread~ \$0-predelay 1;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 4 0 1 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 105 pd predelay;
#X obj 85 32 inlet~;
#X obj 223 35 inlet;
#N canvas 0 50 458 308 bandwidth 0;
#X obj 66 22 inlet~;
#X obj 65 183 outlet~;
#X obj 65 107 lop~;
#X obj 92 74 r \$0-bandwidth;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X restore 25 137 pd bandwidth;
#N canvas 0 50 903 567 params 0;
#X obj 44 29 inlet;
#X obj 44 158 s \$0-predelay;
#X obj 161 158 s \$0-bandwidth;
#X obj 44 205 route input_diffusion1 input_diffusion2 decay_diffusion1
decay_diffusion2;
#X obj 44 65 route predelay bandwidth damping decay;
#X obj 285 157 s \$0-damping;
#X obj 398 158 s \$0-decay;
#X obj 44 312 s \$0-input_diffusion1;
#X obj 224 312 s \$0-input_diffusion2;
#X obj 400 313 s \$0-decay_diffusion1;
#X obj 580 314 s \$0-decay_diffusion2;
#X obj 42 450 s \$0-excursion;
#N canvas 295 162 450 343 default 0;
#X obj 55 33 inlet;
#X obj 55 299 outlet;
#X obj 194 34 loadbang;
#X obj 231 144 f 0;
#X obj 55 198 f;
#X obj 194 69 t b b;
#X obj 174 97 f \$1;
#X obj 174 124 sel 0;
#X text 269 145 default;
#X text 250 97 argument;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 5 1 3 0;
#X connect 6 0 7 0;
#X connect 7 1 4 0;
#X restore 44 110 pd default;
#N canvas 295 162 450 343 default 0;
#X obj 55 33 inlet;
#X obj 55 299 outlet;
#X obj 194 34 loadbang;
#X obj 55 198 f;
#X obj 194 69 t b b;
#X obj 174 124 sel 0;
#X text 299 145 default;
#X text 250 97 argument;
#X obj 174 97 f \$2;
#X obj 231 144 f 22050;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 4 1 9 0;
#X connect 5 1 3 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X restore 161 111 pd default;
#N canvas 295 162 450 343 default 0;
#X obj 55 33 inlet;
#X obj 55 299 outlet;
#X obj 194 34 loadbang;
#X obj 55 198 f;
#X obj 194 69 t b b;
#X obj 174 124 sel 0;
#X text 299 145 default;
#X text 250 97 argument;
#X obj 174 97 f \$3;
#X obj 231 144 f 22050;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 4 1 9 0;
#X connect 5 1 3 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X restore 285 112 pd default;
#N canvas 295 162 450 343 default 0;
#X obj 55 33 inlet;
#X obj 55 299 outlet;
#X obj 194 34 loadbang;
#X obj 55 198 f;
#X obj 194 69 t b b;
#X obj 174 124 sel 0;
#X text 299 145 default;
#X text 250 97 argument;
#X obj 174 97 f \$4;
#X obj 231 144 f 0.5;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 4 1 9 0;
#X connect 5 1 3 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X restore 398 112 pd default;
#N canvas 295 162 450 343 default 0;
#X obj 55 33 inlet;
#X obj 55 299 outlet;
#X obj 194 34 loadbang;
#X obj 55 198 f;
#X obj 194 69 t b b;
#X obj 174 124 sel 0;
#X text 299 145 default;
#X text 250 97 argument;
#X obj 174 97 f \$5;
#X obj 231 144 f 0.75;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 4 1 9 0;
#X connect 5 1 3 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X restore 44 266 pd default;
#N canvas 295 162 450 343 default 0;
#X obj 55 33 inlet;
#X obj 55 299 outlet;
#X obj 194 34 loadbang;
#X obj 55 198 f;
#X obj 194 69 t b b;
#X obj 174 124 sel 0;
#X text 299 145 default;
#X text 250 97 argument;
#X obj 174 97 f \$6;
#X obj 231 144 f 0.625;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 4 1 9 0;
#X connect 5 1 3 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X restore 224 269 pd default;
#N canvas 295 162 450 343 default 0;
#X obj 55 33 inlet;
#X obj 55 299 outlet;
#X obj 194 34 loadbang;
#X obj 55 198 f;
#X obj 194 69 t b b;
#X obj 174 124 sel 0;
#X text 299 145 default;
#X text 250 97 argument;
#X obj 174 97 f \$7;
#X obj 231 144 f 0.7;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 4 1 9 0;
#X connect 5 1 3 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X restore 400 268 pd default;
#N canvas 295 162 450 343 default 0;
#X obj 55 33 inlet;
#X obj 55 299 outlet;
#X obj 194 34 loadbang;
#X obj 55 198 f;
#X obj 194 69 t b b;
#X obj 174 124 sel 0;
#X text 299 145 default;
#X text 250 97 argument;
#X obj 174 97 f \$8;
#X obj 231 144 f 0.5;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 4 1 9 0;
#X connect 5 1 3 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X restore 580 268 pd default;
#N canvas 189 104 450 343 default 0;
#X obj 55 33 inlet;
#X obj 55 299 outlet;
#X obj 194 34 loadbang;
#X obj 55 198 f;
#X obj 194 69 t b b;
#X obj 174 124 sel 0;
#X text 319 145 default;
#X text 250 97 argument;
#X obj 174 97 f \$9;
#X obj 231 144 f 0.53761;
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 4 1 9 0;
#X connect 5 1 3 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X restore 42 404 pd default;
#X obj 42 361 route excursion;
#X obj 218 416 print jon~_nosuchparameter;
#X connect 0 0 4 0;
#X connect 3 0 16 0;
#X connect 3 1 17 0;
#X connect 3 2 18 0;
#X connect 3 3 19 0;
#X connect 3 4 21 0;
#X connect 4 0 12 0;
#X connect 4 1 13 0;
#X connect 4 2 14 0;
#X connect 4 3 15 0;
#X connect 4 4 3 0;
#X connect 12 0 1 0;
#X connect 13 0 2 0;
#X connect 14 0 5 0;
#X connect 15 0 6 0;
#X connect 16 0 7 0;
#X connect 17 0 8 0;
#X connect 18 0 9 0;
#X connect 19 0 10 0;
#X connect 20 0 11 0;
#X connect 21 0 20 0;
#X connect 21 1 22 0;
#X restore 223 72 pd params;
#N canvas 0 50 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 72 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 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 27 247 pd output_taps;
#X connect 0 0 10 0;
#X connect 3 0 4 0;
#X connect 5 0 8 0;
#X connect 6 0 10 1;
#X connect 7 0 9 0;
#X connect 8 0 3 0;
#X connect 10 0 5 0;
#X connect 11 0 1 0;
#X connect 11 1 2 0;