-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathdelay_fbf~.pd
936 lines (936 loc) · 23.6 KB
/
delay_fbf~.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
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
#N canvas 50 224 1077 541 10;
#X declare -lib zexy -lib iemlib;
#X obj 294 49 inlet~;
#X obj 294 259 outlet~;
#N canvas 52 315 1240 408 init 0;
#X obj 77 151 s \$0-delay_coarse-set;
#X obj 93 134 s \$0-delay_fine-set;
#X msg 99 90 0;
#X msg 77 90 100;
#X obj 84 28 loadbang;
#X obj 34 230 r \$0-delay_coarse;
#X obj 143 230 r \$0-delay_fine;
#X obj 66 247 t b f;
#X obj 74 270 +;
#X obj 74 364 s \$0-delay_real;
#X obj 281 249 r \$0-feedback;
#X obj 299 298 s \$0-feedback_pol;
#X obj 369 202 r \$0-fb_pol;
#X obj 369 253 t b f;
#X obj 369 219 sel 0 1;
#X msg 369 236 -1;
#X msg 391 236 1;
#X obj 342 277 * 1;
#X obj 121 113 s \$0-fb_pol-set;
#X msg 121 90 1;
#X obj 495 212 r \$0-hpf;
#X obj 495 234 t b f;
#X obj 554 212 r \$0-lpf;
#X obj 522 258 >;
#X obj 495 279 spigot;
#X obj 527 303 f;
#X obj 527 323 s \$0-lpf-set;
#X obj 574 234 t b f;
#X obj 574 279 spigot;
#X obj 606 303 f;
#X obj 601 258 <;
#X obj 606 323 s \$0-hpf-set;
#X obj 505 44 r \$0-hpf-num;
#X obj 589 44 r \$0-lpf-num;
#X obj 541 70 t b f;
#X obj 580 70 t b f;
#X obj 505 119 s \$0-filters;
#X obj 217 153 s \$0-lpf-set;
#X obj 293 153 s \$0-hpf-set;
#X msg 217 89 20000;
#X msg 260 89 20;
#X obj 369 153 s \$0-lpf_q-set;
#X msg 291 89 0.707;
#X obj 38 182 s \$0-limit_thresh-set;
#X obj 10 113 s \$0-porta-set;
#X obj 869 12 r \$0-delay_pitch-num;
#X obj 869 157 t f f;
#X obj 869 100 mtof;
#X obj 869 120 expr 1000/$f1;
#X obj 896 197 i;
#X obj 869 244 -;
#X obj 896 218 * 10;
#X obj 896 177 * 0.1;
#X obj 904 255 s \$0-delay_coarse-set;
#X obj 869 275 s \$0-delay_fine-set;
#X obj 1050 11 r \$0-delay_real;
#X obj 1050 178 ftom;
#X msg 1050 202 set \$1;
#X obj 1052 239 t a a;
#X obj 1077 273 s \$0-delay_pitch-set;
#X obj 1049 304 s \$0-delay_pitch;
#X obj 1050 34 spigot;
#X obj 1050 151 expr 1000/$f1;
#X obj 1048 74 moses 1e-07;
#X msg 986 121 -1500;
#X obj 457 153 s \$0-hpf_q-set;
#X obj 672 44 r \$0-hpf_q-num;
#X obj 505 98 pack f f f f;
#X obj 623 70 t b f;
#X obj 765 44 r \$0-lpf_q-num;
#X obj 376 72 s \$0-gang-set;
#X msg 376 50 1;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 3 0 44 0;
#X connect 4 0 2 0;
#X connect 4 0 3 0;
#X connect 4 0 19 0;
#X connect 4 0 39 0;
#X connect 4 0 40 0;
#X connect 4 0 42 0;
#X connect 4 0 71 0;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 7 1 8 1;
#X connect 8 0 9 0;
#X connect 10 0 17 0;
#X connect 12 0 14 0;
#X connect 13 0 17 0;
#X connect 13 1 17 1;
#X connect 14 0 15 0;
#X connect 14 1 16 0;
#X connect 15 0 13 0;
#X connect 16 0 13 0;
#X connect 17 0 11 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 20 0 30 1;
#X connect 21 0 24 0;
#X connect 21 1 23 0;
#X connect 21 1 25 1;
#X connect 22 0 23 1;
#X connect 22 0 27 0;
#X connect 23 0 24 1;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 27 0 28 0;
#X connect 27 1 29 1;
#X connect 27 1 30 0;
#X connect 28 0 29 0;
#X connect 29 0 31 0;
#X connect 30 0 28 1;
#X connect 32 0 67 0;
#X connect 33 0 34 0;
#X connect 34 0 67 0;
#X connect 34 1 67 1;
#X connect 35 0 67 0;
#X connect 35 1 67 2;
#X connect 39 0 37 0;
#X connect 40 0 38 0;
#X connect 42 0 41 0;
#X connect 42 0 65 0;
#X connect 45 0 47 0;
#X connect 46 0 50 0;
#X connect 46 1 52 0;
#X connect 47 0 48 0;
#X connect 48 0 46 0;
#X connect 49 0 51 0;
#X connect 50 0 54 0;
#X connect 51 0 50 1;
#X connect 51 0 53 0;
#X connect 52 0 49 0;
#X connect 55 0 61 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 58 0 60 0;
#X connect 58 1 59 0;
#X connect 61 0 63 0;
#X connect 62 0 56 0;
#X connect 63 0 64 0;
#X connect 63 1 62 0;
#X connect 64 0 57 0;
#X connect 66 0 35 0;
#X connect 67 0 36 0;
#X connect 68 0 67 0;
#X connect 68 1 67 3;
#X connect 69 0 68 0;
#X connect 71 0 70 0;
#X restore 429 31 pd init;
#X obj 336 83 r \$0-feedback-num;
#X obj 315 66 r \$0-delay-num;
#X obj 356 100 r \$0-porta-num;
#X obj 377 117 r \$0-filters;
#X obj 706 20 inlet~;
#X obj 687 146 s \$0-patch_on-set;
#X obj 722 372 r \$0-patch_on;
#N canvas 127 142 1149 655 patches 0;
#X obj 24 140 f;
#X obj 21 97 r \$0-store_patch;
#X obj 22 199 prepend add;
#X obj 19 232 t b a;
#X obj 89 321 msgfile;
#X obj 356 382 spigot;
#X msg 400 381 0;
#X msg 401 364 1;
#X msg 172 289 add patches 0;
#X obj 169 251 loadbang;
#X obj 80 551 route patches;
#X msg 106 238 goto 0;
#X obj 34 297 + 1;
#X obj 18 314 f;
#X msg 18 367 replace patches \$1;
#X msg 69 288 this;
#X obj 18 262 t b b b;
#X msg 573 327 range 1 \$1;
#X obj 346 217 t b f;
#X msg 361 241 goto \$1;
#X msg 326 240 this;
#X obj 453 251 r \$0-patches_load;
#X obj 453 268 openpanel;
#X msg 527 302 read \$1;
#X msg 483 302 goto 0;
#X msg 453 302 this;
#X obj 633 181 r \$0-patches_save;
#X obj 633 209 savepanel;
#X msg 630 282 write \$1;
#X msg 226 222 print;
#X obj 81 521 route list;
#X obj 453 285 t b b a b;
#X msg 469 362 clear;
#X obj 281 171 r \$0-patches_clear;
#X obj 279 197 t b b;
#X obj 846 125 inlet;
#X obj 849 373 outlet;
#X obj 813 170 symbol;
#X obj 910 161 inlet;
#X obj 963 418 random;
#X obj 981 510 outlet;
#X obj 356 399 s \$0-patches-num;
#X obj 573 344 s \$0-patch-set;
#X obj 36 33 r \$0-delay_fine;
#X obj 50 52 r \$0-delay_coarse;
#X obj 134 33 r \$0-porta-num;
#X obj 158 52 r \$0-feedback;
#X obj 169 71 r \$0-fb_pol;
#X obj 178 90 r \$0-hpf-num;
#X obj 191 109 r \$0-lpf-num;
#X obj 200 128 r \$0-lpf_q-num;
#X obj 31 451 s \$0-delay_fine-set;
#X obj 79 472 s \$0-delay_coarse-set;
#X obj 186 400 t f f;
#X obj 210 428 s \$0-porta-set;
#X obj 154 448 s \$0-porta;
#X obj 220 469 s \$0-feedback-set;
#X obj 228 493 s \$0-fb_pol-set;
#X obj 331 572 t f f;
#X obj 329 622 s \$0-hpf;
#X obj 368 602 s \$0-hpf-set;
#X obj 347 500 t f f;
#X obj 384 530 s \$0-lpf-set;
#X obj 345 550 s \$0-lpf;
#X obj 367 430 t f f;
#X obj 404 460 s \$0-lpf_q-set;
#X obj 365 480 s \$0-lpf_q;
#X obj 387 130 r \$0-delay_pitch-num;
#X obj 24 177 pack f f f f f f f f f f f f f;
#X obj 734 477 t f f;
#X obj 760 510 s \$0-delay_pitch-set;
#X obj 732 544 s \$0-delay_pitch;
#X obj 296 86 r \$0-hpf_q-num;
#X obj 305 106 r \$0-mix_pc;
#X obj 321 127 r \$0-gang;
#X obj 243 331 unpack f f f f f f f f f f f f;
#X obj 495 556 t f f;
#X obj 493 606 s \$0-hpf_q;
#X obj 532 586 s \$0-hpf_q-set;
#X obj 543 516 s \$0-mix_pc-set;
#X obj 559 496 s \$0-gang-set;
#X obj 901 229 r \$0-store_plus;
#X obj 785 229 r \$0-store_minus;
#X obj 901 253 f;
#X obj 785 263 f;
#X obj 785 283 +;
#X obj 830 280 %;
#X obj 830 300 + 1;
#X obj 763 198 - 1;
#X obj 785 304 - 1;
#X obj 901 274 + 1;
#X obj 824 321 s \$0-patch-set;
#X obj 885 129 inlet;
#X obj 632 238 makesymbol %s.pat;
#X connect 0 0 68 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 16 0;
#X connect 3 1 4 0;
#X connect 4 0 30 0;
#X connect 5 0 6 0;
#X connect 5 0 17 0;
#X connect 5 0 41 0;
#X connect 6 0 5 1;
#X connect 7 0 5 1;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 12 0;
#X connect 10 0 5 0;
#X connect 10 0 39 1;
#X connect 10 0 86 1;
#X connect 10 0 85 1;
#X connect 10 1 75 0;
#X connect 11 0 4 0;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 13 0 17 0;
#X connect 13 0 39 1;
#X connect 13 0 41 0;
#X connect 13 0 85 1;
#X connect 13 0 86 1;
#X connect 14 0 4 0;
#X connect 15 0 4 0;
#X connect 16 0 13 0;
#X connect 16 1 15 0;
#X connect 16 2 11 0;
#X connect 17 0 42 0;
#X connect 18 0 20 0;
#X connect 18 1 19 0;
#X connect 18 1 88 0;
#X connect 19 0 4 0;
#X connect 20 0 4 0;
#X connect 21 0 22 0;
#X connect 22 0 31 0;
#X connect 22 0 36 0;
#X connect 23 0 4 0;
#X connect 24 0 4 0;
#X connect 25 0 4 0;
#X connect 26 0 27 0;
#X connect 27 0 93 0;
#X connect 28 0 4 0;
#X connect 29 0 4 0;
#X connect 30 0 10 0;
#X connect 31 0 25 0;
#X connect 31 1 24 0;
#X connect 31 1 7 0;
#X connect 31 2 23 0;
#X connect 31 3 32 0;
#X connect 32 0 4 0;
#X connect 33 0 34 0;
#X connect 34 0 8 0;
#X connect 34 1 32 0;
#X connect 35 0 37 0;
#X connect 37 0 31 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 43 0 0 1;
#X connect 44 0 68 1;
#X connect 45 0 68 2;
#X connect 46 0 68 3;
#X connect 47 0 68 4;
#X connect 48 0 68 5;
#X connect 49 0 68 6;
#X connect 50 0 68 7;
#X connect 53 0 55 0;
#X connect 53 1 54 0;
#X connect 58 0 59 0;
#X connect 58 1 60 0;
#X connect 61 0 63 0;
#X connect 61 1 62 0;
#X connect 64 0 66 0;
#X connect 64 1 65 0;
#X connect 67 0 68 11;
#X connect 68 0 2 0;
#X connect 69 0 71 0;
#X connect 69 1 70 0;
#X connect 72 0 68 8;
#X connect 73 0 68 9;
#X connect 74 0 68 10;
#X connect 75 0 51 0;
#X connect 75 1 52 0;
#X connect 75 2 53 0;
#X connect 75 3 56 0;
#X connect 75 4 57 0;
#X connect 75 5 58 0;
#X connect 75 6 61 0;
#X connect 75 7 64 0;
#X connect 75 8 76 0;
#X connect 75 9 79 0;
#X connect 75 10 80 0;
#X connect 75 11 69 0;
#X connect 76 0 77 0;
#X connect 76 1 78 0;
#X connect 81 0 83 0;
#X connect 82 0 84 0;
#X connect 83 0 90 0;
#X connect 84 0 85 0;
#X connect 85 0 89 0;
#X connect 86 0 87 0;
#X connect 87 0 91 0;
#X connect 88 0 84 1;
#X connect 88 0 83 1;
#X connect 89 0 86 0;
#X connect 90 0 86 0;
#X connect 92 0 18 0;
#X connect 93 0 28 0;
#X connect 93 0 36 0;
#X restore 611 230 pd patches;
#X obj 611 301 outlet;
#X obj 571 119 route patch file;
#X obj 571 252 s \$0-patch-set;
#X msg 678 230 patch \$1;
#X obj 571 21 inlet;
#N canvas 120 346 946 451 automation 0;
#X obj 53 6 inlet;
#X obj 300 409 s \$0-delay_fine-set;
#X obj 44 418 s \$0-delay_coarse-set;
#X obj 209 277 s \$0-feedback-set;
#X obj 217 301 s \$0-fb_pol-set;
#X obj 331 292 t f f;
#X obj 329 342 s \$0-hpf;
#X obj 368 322 s \$0-hpf-set;
#X obj 347 220 t f f;
#X obj 384 250 s \$0-lpf-set;
#X obj 345 270 s \$0-lpf;
#X obj 252 136 t f f;
#X obj 118 129 t f f;
#X obj 145 150 > 0;
#X obj 118 150 abs;
#X obj 148 213 t f f;
#X obj 204 229 s \$0-porta-set;
#X obj 148 249 s \$0-porta;
#X obj 479 296 outlet;
#X obj 535 202 t f f;
#X obj 563 235 s \$0-delay_pitch-set;
#X obj 535 269 s \$0-delay_pitch;
#X obj 427 295 outlet;
#X obj 596 201 outlet;
#X obj 250 186 s \$0-hpf_q;
#X obj 289 166 s \$0-hpf_q-set;
#X obj 312 96 t f f;
#X obj 349 126 s \$0-lpf_q-set;
#X obj 310 146 s \$0-lpf_q;
#X obj 689 114 s \$0-gang-set;
#X obj 505 125 s \$0-mix_pc-set;
#X obj 51 51 route delcoarse porta fb hpf lpf hq randpat delfine delpitch
on lq gang mix delay;
#X obj 97 254 t f f;
#X obj 124 284 > 10;
#X obj 124 307 == 0;
#X obj 95 333 spigot;
#X obj 165 333 spigot;
#X obj 182 389 - 10;
#X obj 179 357 t f b;
#X msg 223 379 10;
#X msg 87 360 0;
#X obj 449 38 route all;
#X obj 447 59 unpack f f f f f f f f f f f f;
#X connect 0 0 31 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 8 0 10 0;
#X connect 8 1 9 0;
#X connect 11 0 24 0;
#X connect 11 1 25 0;
#X connect 12 0 14 0;
#X connect 12 1 13 0;
#X connect 13 0 4 0;
#X connect 14 0 3 0;
#X connect 15 0 17 0;
#X connect 15 1 16 0;
#X connect 19 0 21 0;
#X connect 19 1 20 0;
#X connect 26 0 28 0;
#X connect 26 1 27 0;
#X connect 31 0 2 0;
#X connect 31 1 15 0;
#X connect 31 2 12 0;
#X connect 31 3 5 0;
#X connect 31 4 8 0;
#X connect 31 5 11 0;
#X connect 31 6 18 0;
#X connect 31 7 1 0;
#X connect 31 8 19 0;
#X connect 31 9 23 0;
#X connect 31 10 26 0;
#X connect 31 11 29 0;
#X connect 31 12 30 0;
#X connect 31 13 32 0;
#X connect 31 14 22 0;
#X connect 31 14 41 0;
#X connect 32 0 35 0;
#X connect 32 0 36 0;
#X connect 32 1 33 0;
#X connect 33 0 34 0;
#X connect 33 0 36 1;
#X connect 34 0 35 1;
#X connect 35 0 1 0;
#X connect 35 0 40 0;
#X connect 36 0 38 0;
#X connect 37 0 2 0;
#X connect 38 0 37 0;
#X connect 38 1 39 0;
#X connect 39 0 1 0;
#X connect 40 0 2 0;
#X connect 41 0 42 0;
#X connect 42 0 2 0;
#X connect 42 1 1 0;
#X connect 42 2 19 0;
#X connect 42 3 3 0;
#X connect 42 4 4 0;
#X connect 42 5 5 0;
#X connect 42 6 8 0;
#X connect 42 7 26 0;
#X connect 42 8 11 0;
#X connect 42 9 30 0;
#X connect 42 10 29 0;
#X connect 42 11 15 0;
#X restore 571 41 pd automation;
#X obj 336 164 / 100;
#X obj 722 392 switch~;
#N canvas 694 277 640 488 delay~ 0;
#X obj 26 195 inlet~;
#X obj 75 433 outlet~;
#X obj 23 333 +~;
#X obj 92 57 inlet;
#X obj 278 87 inlet;
#X obj 92 131 pack f 10;
#X obj 278 104 moses 0;
#X obj 480 54 inlet;
#X obj 540 89 inlet~;
#N canvas 176 371 245 251 random 0;
#X obj 19 136 outlet;
#X obj 19 4 inlet;
#X obj 115 2 inlet;
#X obj 95 72 random 0;
#X obj 19 50 +;
#X obj 19 20 t f b b;
#X obj 145 72 random 0;
#X obj 95 104 -;
#X obj 113 20 t b b b f;
#X floatatom 115 143 5 0 0 0 - - -;
#X obj 13 79 moses 1;
#X obj 145 88 / 200;
#X obj 95 88 / 200;
#X connect 1 0 5 0;
#X connect 2 0 8 0;
#X connect 3 0 12 0;
#X connect 4 0 10 0;
#X connect 5 0 4 0;
#X connect 5 1 3 0;
#X connect 5 2 6 0;
#X connect 6 0 11 0;
#X connect 7 0 4 1;
#X connect 7 0 9 0;
#X connect 8 0 4 0;
#X connect 8 1 3 0;
#X connect 8 2 6 0;
#X connect 8 3 6 1;
#X connect 8 3 3 1;
#X connect 10 1 0 0;
#X connect 11 0 7 1;
#X connect 12 0 7 0;
#X restore 92 74 pd random;
#X obj 92 168 +~;
#X msg 312 164 20000;
#X obj 312 147 loadbang;
#X msg 158 91 bang;
#X obj 92 91 moses 2000;
#X obj 158 108 2000;
#X obj 92 148 line~;
#X obj 75 219 vd~ \$0-delfbf;
#X obj 92 187 clip~ 0.01 2000;
#X obj 23 407 delwrite~ \$0-delfbf 2000;
#X text 24 30 inlets: sig~ time fb porta [hfc lfc hq lq] limit[dB multiplier
decay attack] randomize;
#X obj 209 151 inlet;
#X obj 260 190 moses 1;
#X obj 209 171 moses -1;
#X obj 91 362 *~;
#X obj 219 327 pack f 10;
#X obj 219 350 line~;
#X obj 165 213 unpack f f f f;
#X obj 91 338 vcf_filter~ lp2;
#X obj 349 195 inlet;
#X obj 432 154 block~ 4;
#X obj 225 398 envrms~;
#X floatatom 230 435 0 0 0 0 - - -;
#X obj 91 313 vcf_filter~ hp2;
#X obj 96 288 iem_cot4~;
#X obj 156 288 iem_cot4~;
#X obj 96 269 line~;
#X obj 156 269 line~;
#X obj 156 247 pack f 10;
#X obj 96 247 pack f 10;
#X connect 0 0 2 0;
#X connect 2 0 19 0;
#X connect 3 0 9 0;
#X connect 4 0 6 0;
#X connect 5 0 16 0;
#X connect 6 1 5 1;
#X connect 6 1 38 1;
#X connect 6 1 39 1;
#X connect 7 0 9 1;
#X connect 8 0 10 1;
#X connect 9 0 14 0;
#X connect 10 0 18 0;
#X connect 11 0 37 0;
#X connect 12 0 11 0;
#X connect 13 0 15 0;
#X connect 14 0 5 0;
#X connect 14 1 13 0;
#X connect 15 0 5 0;
#X connect 16 0 10 0;
#X connect 17 0 1 0;
#X connect 17 0 33 0;
#X connect 18 0 17 0;
#X connect 21 0 23 0;
#X connect 22 0 25 0;
#X connect 23 1 22 0;
#X connect 24 0 2 1;
#X connect 25 0 26 0;
#X connect 26 0 24 1;
#X connect 26 0 31 0;
#X connect 27 0 39 0;
#X connect 27 1 38 0;
#X connect 27 2 33 2;
#X connect 27 3 28 2;
#X connect 28 0 24 0;
#X connect 29 0 27 0;
#X connect 31 0 32 0;
#X connect 33 0 28 0;
#X connect 34 0 33 1;
#X connect 35 0 28 1;
#X connect 36 0 34 0;
#X connect 37 0 35 0;
#X connect 38 0 37 0;
#X connect 39 0 36 0;
#X restore 295 222 pd delay~ -----------;
#X msg 368 296 100;
#X obj 368 317 -;
#X obj 368 275 t b f;
#X obj 368 255 r \$0-mix_pc;
#X floatatom 368 338 5 0 0 0 - - -;
#X obj 368 358 clip 0 100;
#X obj 368 379 t b f;
#X msg 368 400 100;
#X obj 368 421 -;
#X obj 263 185 *~ 0;
#X obj 295 189 *~ 1;
#X floatatom 368 442 5 0 0 0 - - -;
#X obj 279 318 / 100;
#X obj 318 317 / 100;
#X obj 397 134 r \$0-random;
#X obj 825 176 >;
#X obj 823 143 t f f;
#X obj 820 226 f;
#X obj 818 201 select 1;
#X obj 815 119 spigot;
#X obj 899 94 tgl 15 0 empty \$0-gang empty 0 -6 0 10 -262144 -1 -1
1 1;
#X obj 956 146 t f f;
#X obj 953 229 f;
#X obj 951 204 select 1;
#X obj 948 122 spigot;
#X obj 958 179 <;
#X obj 884 118 sel 1;
#X obj 883 142 delay 0;
#X msg 866 275 20000;
#X msg 993 274 20;
#X obj 884 240 loadbang;
#X obj 808 88 r \$0-hpf-num;
#X obj 940 79 r \$0-lpf-num;
#X obj 820 308 s \$0-lpf-set;
#X obj 953 311 s \$0-hpf-set;
#X obj 560 378 s \$0-mix_pc-set;
#X obj 565 324 loadbang;
#X obj 131 102 cnv 15 110 144 empty empty empty 6 8 0 10 -33558 -203904
0;
#X obj 31 114 cnv 15 210 144 empty empty empty 6 8 0 10 -33558 -203904
0;
#X obj 36 116 hsl 201 12 0 2000 0 0 \$0-delay_coarse \$0-delay_coarse-set
delay_coarse 25 6 1 10 -257985 -13381 -13381 0 1;
#X obj 36 128 hsl 120 12 0 19.9 0 0 \$0-delay_fine \$0-delay_fine-set
delay_fine 25 6 1 10 -257985 -13381 -13381 113 1;
#X obj 161 104 nbx 8 12 0 2000 0 0 \$0-delay-num \$0-delay_real empty
0 -6 1 10 -257985 -13381 -13381 0.189608 256;
#X obj 36 170 hsl 101 12 0 100 0 0 \$0-feedback \$0-feedback-set feedback
25 6 1 10 -4032 -13330 -13330 9800 1;
#X obj 142 170 nbx 4 12 -100 100 0 0 \$0-feedback-num \$0-feedback_pol
empty 0 -6 1 10 -4032 -13330 -13330 98 256;
#X obj 189 170 tgl 12 0 \$0-fb_pol \$0-fb_pol-set +/- 15 6 0 10 -4032
-13330 -13330 1 1;
#X obj 36 156 hsl 120 12 0 2000 0 0 \$0-porta \$0-porta-set porta 25
6 1 10 -4034 -13381 -13381 600 1;
#X obj 33 144 nbx 4 12 0 9999 0 0 \$0-porta-num \$0-porta empty 0 -6
1 10 -4034 -13381 -13381 100.84 256;
#X obj 36 184 hsl 120 12 20 20000 1 0 \$0-hpf \$0-hpf-set highpass
25 6 1 10 -202688 -45076 -45076 3200 1;
#X obj 161 184 nbx 5 12 0 99999 0 0 \$0-hpf-num \$0-hpf empty 0 -6
1 10 -202688 -45076 -45076 128.16 256;
#X obj 36 208 hsl 120 12 20 20000 1 0 \$0-lpf \$0-lpf-set lowpass 25
6 1 10 -202688 -45076 -45076 11900 1;
#X obj 161 208 nbx 5 12 0 99999 0 0 \$0-lpf-num \$0-lpf empty 0 -6
1 10 -202688 -45076 -45076 20000 256;
#X obj 36 220 hsl 120 10 0.5 1.2 1 0 \$0-lpf_q \$0-lpf_q-set low_Q
25 5 1 10 -45076 -172992 -202688 4109 1;
#X obj 161 220 nbx 5 10 0.1 1000 0 0 \$0-lpf_q-num \$0-lpf_q empty
0 -6 1 10 -45076 -203264 -45076 0.676032 256;
#X obj 216 167 tgl 15 0 \$0-patch_on \$0-patch_on-set On 1 -6 1 10
-191407 -258113 -261234 1 1;
#X obj 124 142 hsl 113 12 0 112 0 0 \$0-delay_pitch \$0-delay_pitch-set
delay_pitch 25 6 1 10 -208833 -13381 -13381 11200 1;
#X obj 186 130 nbx 5 12 -49 162 0 0 \$0-delay_pitch-num \$0-delay_pitch
empty 0 -6 1 10 -208833 -13381 -13381 112 256;
#X obj 31 233 cnv 15 141 25 empty empty empty 20 12 0 14 -183672 -66577
0;
#X obj 33 244 nbx 3 12 0 120 0 0 empty empty empty -2 -6 0 7 -257472
-1109 -90133 0 256;
#X obj 75 244 nbx 3 12 1 1 0 0 \$0-patch-num \$0-patch-set select 0
-5 0 7 -17235 -261234 -17235 1 256;
#X obj 120 244 bng 12 250 50 0 \$0-store_patch \$0-store_patch-bng
store -3 -5 0 7 -17235 -262130 -17235;
#X obj 141 239 bng 10 250 50 0 \$0-patches_load \$0-patches_load-bng
load -5 16 0 7 -2498 -262144 -13381;
#X obj 154 239 bng 10 250 50 0 \$0-patches_save \$0-patches_save-bng
save 0 16 0 7 -159809 -262144 -86277;
#X obj 33 244 nbx 3 12 0 120 0 0 \$0-patches-dummy \$0-patches-num
patches 0 -5 0 7 -17235 -203904 -17235 0 256;
#X obj 106 248 bng 8 250 50 0 \$0-store_plus \$0-store_plus-bng + 2
-4 0 7 -17235 -198336 -17235;
#X obj 64 248 bng 8 250 50 0 \$0-store_minus \$0-store_minus-bng -
1 -5 0 10 -17235 -257985 -17235;
#X obj 188 242 nbx 3 12 0 200 0 0 \$0-mix_pc \$0-mix_pc-set mix 0 -6
1 10 -16662 -203904 -203904 23 256;
#X obj 36 196 hsl 120 10 0.5 1.2 1 0 \$0-hpf_q \$0-hpf_q-set high_Q
25 5 1 10 -45076 -172992 -202688 4709 1;
#X obj 161 196 nbx 5 10 0.1 1000 0 0 \$0-hpf_q-num \$0-hpf_q empty
0 -6 1 10 -45076 -203264 -45076 0.707 256;
#X obj 220 200 tgl 14 0 \$0-gang \$0-gang-set gang -4 -6 1 10 -202688
-86277 -256567 1 1;
#X msg 693 116 1;
#X obj 691 89 loadbang;
#N canvas 18 172 944 593 auto_out 0;
#X obj 14 28 r \$0-delay_fine;
#X obj 82 48 r \$0-delay_coarse;
#X obj 661 248 r \$0-porta-num;
#X obj 223 89 r \$0-feedback;
#X obj 274 109 r \$0-fb_pol;
#X obj 338 129 r \$0-hpf-num;
#X obj 388 150 r \$0-lpf-num;
#X obj 438 170 r \$0-lpf_q-num;
#X obj 191 41 r \$0-delay_pitch-num;
#X obj 487 190 r \$0-hpf_q-num;
#X obj 536 210 r \$0-mix_pc;
#X obj 600 229 r \$0-gang;
#X obj 15 432 outlet;
#X obj 727 272 r \$0-patch-num;
#X obj 130 386 inlet;
#X obj 14 48 change;
#X msg 14 68 delfine \$1;
#X obj 82 68 change;
#X obj 661 268 change;
#X obj 223 109 change;
#X obj 274 130 change;
#X obj 338 150 change;
#X obj 388 170 change;
#X obj 438 190 change;
#X obj 487 210 change;
#X obj 536 230 change;
#X obj 600 250 change;
#X obj 191 62 change;
#X msg 728 321 patch \$1;
#X msg 661 289 porta \$1;
#X msg 223 130 fb \$1;
#X msg 274 150 fb_pol \$1;
#X msg 338 170 hpf \$1;
#X msg 388 190 lpf \$1;
#X msg 438 210 lq \$1;
#X msg 487 230 hq \$1;
#X msg 536 250 mix_pc \$1;
#X msg 600 270 gang \$1;
#X msg 151 103 delpitch \$1;
#X obj 15 397 spigot;
#X obj 130 407 prepend file;
#X obj 584 38 inlet;
#X obj 668 36 inlet;
#X msg 585 69 1;
#X msg 663 68 0;
#X obj 509 34 loadbang;
#X obj 746 294 change;
#X msg 82 88 delcoarse \$1;
#X obj 37 126 t b f;
#X obj 46 159 +;
#X msg 39 197 delay \$1;
#X obj 131 183 t b f;
#X obj 186 200 t b f;
#X obj 240 214 t b f;
#X obj 299 222 t b f;
#X obj 364 253 t b f;
#X obj 410 274 t b f;
#X obj 455 299 t b f;
#X obj 505 318 t b f;
#X obj 551 335 t b f;
#X obj 593 341 t b f;
#X obj 295 386 pack f f f f f f f f f f f f;
#X obj 295 427 prepend all;
#X connect 0 0 15 0;
#X connect 1 0 17 0;
#X connect 2 0 18 0;
#X connect 3 0 19 0;
#X connect 4 0 20 0;
#X connect 5 0 21 0;
#X connect 6 0 22 0;
#X connect 7 0 23 0;
#X connect 8 0 27 0;
#X connect 9 0 24 0;
#X connect 10 0 25 0;
#X connect 11 0 26 0;
#X connect 13 0 46 0;
#X connect 14 0 40 0;
#X connect 15 0 16 0;
#X connect 15 0 49 0;
#X connect 15 0 61 0;
#X connect 16 0 39 0;
#X connect 17 0 47 0;
#X connect 17 0 48 0;
#X connect 18 0 29 0;
#X connect 18 0 60 0;
#X connect 19 0 30 0;
#X connect 19 0 52 0;
#X connect 20 0 31 0;
#X connect 20 0 53 0;
#X connect 21 0 32 0;
#X connect 21 0 54 0;
#X connect 22 0 33 0;
#X connect 22 0 55 0;
#X connect 23 0 34 0;
#X connect 23 0 56 0;
#X connect 24 0 35 0;
#X connect 24 0 57 0;
#X connect 25 0 36 0;
#X connect 25 0 58 0;
#X connect 26 0 37 0;
#X connect 26 0 59 0;
#X connect 27 0 38 0;
#X connect 27 0 51 0;
#X connect 28 0 12 0;
#X connect 29 0 39 0;
#X connect 30 0 39 0;
#X connect 31 0 39 0;
#X connect 32 0 39 0;
#X connect 33 0 39 0;
#X connect 34 0 39 0;
#X connect 35 0 39 0;
#X connect 36 0 39 0;
#X connect 37 0 39 0;
#X connect 38 0 39 0;
#X connect 39 0 12 0;
#X connect 40 0 12 0;
#X connect 41 0 43 0;
#X connect 42 0 44 0;
#X connect 43 0 39 1;
#X connect 44 0 39 1;
#X connect 45 0 43 0;
#X connect 46 0 28 0;
#X connect 47 0 39 0;
#X connect 48 0 49 0;
#X connect 48 0 61 0;
#X connect 48 1 49 1;
#X connect 48 1 61 1;
#X connect 49 0 50 0;
#X connect 50 0 39 0;
#X connect 51 0 61 0;
#X connect 51 1 61 2;
#X connect 52 0 61 0;
#X connect 52 1 61 3;
#X connect 53 0 61 0;
#X connect 53 1 61 4;
#X connect 54 0 61 0;
#X connect 54 1 61 5;
#X connect 55 0 61 0;
#X connect 55 1 61 6;
#X connect 56 0 61 0;
#X connect 56 1 61 7;
#X connect 57 0 61 0;
#X connect 57 1 61 8;
#X connect 58 0 61 0;
#X connect 58 1 61 9;
#X connect 59 0 61 0;
#X connect 59 1 61 10;
#X connect 60 0 61 0;
#X connect 60 1 61 11;
#X connect 61 0 62 0;
#X connect 62 0 39 0;
#X restore 666 255 pd auto_out;
#X obj 668 184 r \$0-patch-num;
#X obj 679 207 t b f b;
#X msg 563 345 100;
#X obj 767 25 declare -lib zexy -lib iemlib;
#X connect 0 0 29 0;
#X connect 0 0 30 0;
#X connect 3 0 17 0;
#X connect 4 0 19 1;
#X connect 5 0 19 3;
#X connect 6 0 19 4;
#X connect 7 0 19 6;
#X connect 9 0 18 0;
#X connect 10 0 91 0;
#X connect 10 1 14 0;
#X connect 12 0 13 0;
#X connect 12 1 10 0;
#X connect 14 0 12 0;
#X connect 15 0 16 0;
#X connect 16 0 12 0;
#X connect 16 1 10 2;
#X connect 16 2 8 0;
#X connect 17 0 19 2;
#X connect 19 0 1 0;
#X connect 20 0 21 0;
#X connect 21 0 24 0;
#X connect 22 0 20 0;
#X connect 22 1 21 1;
#X connect 23 0 22 0;
#X connect 24 0 25 0;
#X connect 24 0 32 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 1 28 1;
#X connect 27 0 28 0;
#X connect 28 0 31 0;
#X connect 29 0 1 0;
#X connect 30 0 19 0;
#X connect 31 0 33 0;
#X connect 32 0 29 1;
#X connect 33 0 30 1;
#X connect 34 0 19 5;
#X connect 35 0 38 0;
#X connect 36 0 35 0;
#X connect 36 1 37 1;
#X connect 37 0 53 0;
#X connect 38 0 37 0;
#X connect 39 0 36 0;
#X connect 40 0 39 1;
#X connect 40 0 44 1;
#X connect 40 0 46 0;
#X connect 41 0 45 0;
#X connect 41 1 42 1;
#X connect 42 0 54 0;
#X connect 43 0 42 0;
#X connect 44 0 41 0;
#X connect 45 0 43 0;
#X connect 46 0 47 0;
#X connect 47 0 53 0;
#X connect 47 0 54 0;
#X connect 48 0 53 0;
#X connect 49 0 54 0;
#X connect 50 0 48 0;
#X connect 50 0 49 0;
#X connect 51 0 39 0;
#X connect 51 0 45 1;
#X connect 52 0 35 1;
#X connect 52 0 44 0;
#X connect 56 0 94 0;
#X connect 89 0 8 0;
#X connect 90 0 89 0;
#X connect 91 0 11 0;
#X connect 92 0 93 0;
#X connect 93 0 91 1;
#X connect 93 1 10 1;
#X connect 93 2 91 2;
#X connect 94 0 55 0;
#X coords 0 -1 1 1 212 162 1 30 99;