-
Notifications
You must be signed in to change notification settings - Fork 9
/
Copy pathpp.echo~.pd
1739 lines (1739 loc) · 41.9 KB
/
pp.echo~.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
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
#N canvas 90 245 882 410 10;
#N canvas 230 199 996 431 stuff 0;
#X obj 134 27 r \$0-deltime-l;
#X obj 228 27 r \$0-deltime-r;
#X obj 134 89 /;
#X obj 166 56 t b f;
#X obj 85 115 f;
#X obj 84 3 r \$0-link-deltime;
#X obj 84 26 sel 1;
#X obj 70 182 r \$0-deltime-l-gui;
#X obj 70 308 s \$0-deltime-r;
#X msg 104 263 set \$1;
#X obj 104 283 s \$0-deltime-r-guir;
#X obj 113 211 r \$0-link-deltime;
#X obj 70 212 spigot;
#X msg 261 260 set \$1;
#X obj 270 208 r \$0-link-deltime;
#X obj 227 209 spigot;
#X obj 227 179 r \$0-deltime-r-gui;
#X obj 70 239 / 1;
#X obj 227 236 * 1;
#X obj 261 280 s \$0-deltime-l-guir;
#X obj 227 305 s \$0-deltime-l;
#X obj 238 90 r \$0-deltime-l-gui;
#X obj 365 89 r \$0-deltime-r-gui;
#X obj 238 116 s \$0-deltime-l;
#X obj 365 114 s \$0-deltime-r;
#X obj 664 206 s \$0-visbngr;
#X obj 646 101 r \$0-visbng;
#X msg 644 178 color 0 0;
#X msg 728 178 color 10 10;
#X obj 646 123 t b;
#X obj 726 153 del 250;
#X obj 610 251 s pd-\$0-echo;
#X msg 610 229 relocate 313x235+1+1 1x1+50+60 \, vis 1;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 17 1;
#X connect 4 0 18 1;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 7 0 12 0;
#X connect 9 0 10 0;
#X connect 11 0 12 1;
#X connect 12 0 17 0;
#X connect 13 0 19 0;
#X connect 14 0 15 1;
#X connect 15 0 18 0;
#X connect 16 0 15 0;
#X connect 17 0 8 0;
#X connect 17 0 9 0;
#X connect 18 0 13 0;
#X connect 18 0 20 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 26 0 29 0;
#X connect 27 0 25 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 29 0 30 0;
#X connect 29 0 32 0;
#X connect 30 0 28 0;
#X connect 32 0 31 0;
#X restore 689 194 pd stuff;
#N canvas 28 214 805 413 init 0;
#X obj 186 32 loadbang;
#X obj 186 86 f \$0;
#X obj 144 33 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 186 55 t b b;
#X obj 503 96 max 0;
#X obj 503 119 sel 0;
#X msg 400 155 missing argument for max. delay time;
#X obj 400 180 print pp.echo~;
#X obj 503 73 f \$1;
#X obj 531 217 s \$0-deltime-l-guir;
#X obj 560 242 s \$0-deltime-r-guir;
#X msg 185 109 \; \$1-repeats 0 \; \$1-lopr 4000 \; \$1-hf-dampingr
80 \; \$1-hipr 100 \; \$1-lf-dampingr 50 \; \$1-deltime-l 300 \; \$1-deltime-r
300 \; \$1-link-deltimer 1 \; \$1-deltime-l-guir 300 \; \$1-deltime-r-guir
300 \; \$1-flutterr 100 \; \$1-feedbackr 80 \; \$1-drywetr 50 \; \$1-dist-mode
0 \;;
#X msg 531 189 range 1 \$1;
#X connect 0 0 3 0;
#X connect 1 0 11 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 3 1 8 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 12 0;
#X connect 6 0 7 0;
#X connect 8 0 4 0;
#X connect 12 0 10 0;
#X connect 12 0 9 0;
#X restore 689 171 pd init;
#N canvas 1 56 1364 711 echo 0;
#X obj 66 121 inlet~;
#X obj 67 707 outlet~;
#X obj 255 120 inlet~;
#X obj 251 710 outlet~;
#N canvas 237 165 790 602 damping 0;
#X obj 165 17 inlet~;
#X obj 235 493 lop~;
#X obj 166 586 +~;
#X obj 271 494 r \$0-lop;
#X obj 180 268 -~;
#X obj 180 311 *~;
#X obj 165 362 +~;
#X obj 220 202 r \$0-hip;
#X obj 179 198 hip~;
#X obj 167 683 outlet~;
#X obj 236 541 -~;
#X obj 236 568 *~;
#X obj 165 153 +~;
#X obj 178 220 hip~;
#X obj 167 612 hip~ 5;
#X obj 167 635 hip~ 5;
#X obj 167 658 hip~ 5;
#X obj 336 80 *~;
#X obj 336 103 lop~ 10;
#X obj 336 126 sqrt~;
#X obj 337 151 sqrt~;
#X obj 322 563 *~;
#X obj 209 310 *~;
#X obj 337 519 / 100;
#X obj 337 542 clip 0 1;
#X obj 337 496 r \$0-hf-damping;
#X obj 241 297 / 100;
#X obj 241 320 clip 0 1;
#X obj 241 274 r \$0-lf-damping;
#X obj 235 517 lop~;
#X obj 321 246 -~;
#X obj 321 204 sig~ 1;
#X connect 0 0 12 0;
#X connect 0 0 17 0;
#X connect 0 0 17 1;
#X connect 1 0 29 0;
#X connect 2 0 14 0;
#X connect 3 0 1 1;
#X connect 3 0 29 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 1 0;
#X connect 6 0 10 1;
#X connect 6 0 2 0;
#X connect 7 0 8 1;
#X connect 7 0 13 1;
#X connect 8 0 13 0;
#X connect 10 0 11 0;
#X connect 11 0 2 1;
#X connect 12 0 4 1;
#X connect 12 0 8 0;
#X connect 12 0 6 0;
#X connect 13 0 4 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 9 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 30 1;
#X connect 21 0 11 1;
#X connect 22 0 5 1;
#X connect 23 0 24 0;
#X connect 24 0 21 1;
#X connect 25 0 23 0;
#X connect 26 0 27 0;
#X connect 27 0 22 1;
#X connect 28 0 26 0;
#X connect 29 0 10 0;
#X connect 30 0 21 0;
#X connect 30 0 22 0;
#X connect 31 0 30 0;
#X restore 392 386 pd damping;
#N canvas 35 341 670 300 outrev 0;
#X obj 97 32 inlet~;
#X obj 182 34 inlet~;
#X obj 181 226 *~;
#X obj 97 226 *~;
#X obj 97 249 outlet~;
#X obj 181 250 outlet~;
#X msg 195 168 \$1 10;
#X obj 195 191 line~;
#X obj 515 81 > 0;
#X obj 515 104 change;
#X obj 515 138 switch~ 0;
#X obj 195 124 r \$0-reverb;
#X obj 515 58 r \$0-reverb;
#X obj 195 147 / 100;
#X obj 97 57 pp.echo-stupid-rev~ 120 0.4 1000 0.77;
#X obj 182 84 pp.echo-stupid-rev~ 120 0.4 1000 0.77;
#X connect 0 0 14 0;
#X connect 1 0 15 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 2 1;
#X connect 7 0 3 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 13 0;
#X connect 12 0 8 0;
#X connect 13 0 6 0;
#X connect 14 0 3 0;
#X connect 15 0 2 0;
#X restore 190 555 pd outrev;
#X f 11;
#X obj 699 566 line~;
#X obj 752 620 +~;
#X msg 699 543 \$1 100;
#N canvas 193 76 650 533 feed-freqsfift 0;
#X obj 61 55 inlet~;
#N canvas 1 57 450 300 freqshift 0;
#X obj 115 19 inlet~;
#X obj 114 187 *~;
#X obj 210 186 *~;
#X obj 115 221 -~;
#X obj 115 277 outlet~;
#X obj 199 17 inlet~;
#X obj 200 110 cos~;
#X obj 239 129 +~ -0.25;
#X obj 239 151 cos~;
#N canvas 220 72 637 401 olli 0;
#X obj 292 117 inlet~;
#X obj 43 299 outlet~;
#X obj 293 304 outlet~;
#X obj 43 174 biquad~ 0 0.161758 0.161758 0 -1;
#X obj 43 203 biquad~ 0 0.733029 0.733029 0 -1;
#X obj 43 235 biquad~ 0 0.94535 0.94535 0 -1;
#X obj 43 262 biquad~ 0 0.990598 0.990598 0 -1;
#X obj 293 177 biquad~ 0 0.479401 0.479401 0 -1;
#X obj 293 207 biquad~ 0 0.876218 0.876218 0 -1;
#X obj 293 239 biquad~ 0 0.976599 0.976599 0 -1;
#X obj 293 267 biquad~ 0 0.9975 0.9975 0 -1;
#X text 95 300 first phase;
#X text 349 303 second phase;
#X text 177 302 << 90 degree >>;
#X obj 293 150 rzero_rev~ 0;
#X text 40 43 Olli Niemitalo's quadrature transform coefficients;
#X text 39 78 http://yehar.com/blog/?p=368;
#X text 39 63 http://www.katjaas.nl/hilbert/hilbert.html;
#X connect 0 0 3 0;
#X connect 0 0 14 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 2 0;
#X connect 14 0 7 0;
#X restore 115 61 pd olli;
#X obj 315 72 switch~ 0;
#X obj 315 48 != 0;
#X obj 315 26 r \$0-ssb-amount;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 2 1;
#X connect 9 0 1 0;
#X connect 9 1 2 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X restore 228 261 pd freqshift;
#X obj 196 616 outlet~;
#X obj 334 48 inlet~;
#N canvas 1 57 450 300 freqshift 0;
#X obj 115 19 inlet~;
#X obj 114 187 *~;
#X obj 210 186 *~;
#X obj 115 221 -~;
#X obj 115 277 outlet~;
#X obj 199 17 inlet~;
#X obj 200 110 cos~;
#X obj 239 129 +~ -0.25;
#X obj 239 151 cos~;
#N canvas 220 72 637 401 olli 0;
#X obj 292 117 inlet~;
#X obj 43 299 outlet~;
#X obj 293 304 outlet~;
#X obj 43 174 biquad~ 0 0.161758 0.161758 0 -1;
#X obj 43 203 biquad~ 0 0.733029 0.733029 0 -1;
#X obj 43 235 biquad~ 0 0.94535 0.94535 0 -1;
#X obj 43 262 biquad~ 0 0.990598 0.990598 0 -1;
#X obj 293 177 biquad~ 0 0.479401 0.479401 0 -1;
#X obj 293 207 biquad~ 0 0.876218 0.876218 0 -1;
#X obj 293 239 biquad~ 0 0.976599 0.976599 0 -1;
#X obj 293 267 biquad~ 0 0.9975 0.9975 0 -1;
#X text 95 300 first phase;
#X text 349 303 second phase;
#X text 177 302 << 90 degree >>;
#X obj 293 150 rzero_rev~ 0;
#X text 40 43 Olli Niemitalo's quadrature transform coefficients;
#X text 39 78 http://yehar.com/blog/?p=368;
#X text 39 63 http://www.katjaas.nl/hilbert/hilbert.html;
#X connect 0 0 3 0;
#X connect 0 0 14 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 2 0;
#X connect 14 0 7 0;
#X restore 115 61 pd olli;
#X obj 315 72 switch~ 0;
#X obj 315 48 != 0;
#X obj 315 26 r \$0-ssb-amount;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 2 1;
#X connect 9 0 1 0;
#X connect 9 1 2 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X restore 228 302 pd freqshift;
#X obj 172 266 *~;
#X obj 172 312 sqrt~;
#X obj 173 337 sqrt~;
#X obj 157 359 sig~ 1;
#X obj 158 383 -~;
#X obj 213 414 *~;
#X obj 197 441 +~;
#X obj 110 406 *~;
#X obj 172 289 lop~ 20;
#X obj 503 96 line~;
#X obj 77 495 sig~ 1;
#X obj 77 518 -~;
#X obj 62 543 *~;
#X obj 197 573 *~;
#X obj 172 241 *~;
#X obj 378 140 clip~ 1 2;
#X obj 378 163 -~ 1;
#X obj 364 197 -~;
#X obj 336 165 sig~ 1;
#X obj 502 473 clip~ 0 1;
#X obj 503 43 r \$0-ssb-amount;
#X obj 503 66 / 50;
#X connect 0 0 12 0;
#X connect 0 0 17 0;
#X connect 0 0 19 0;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 1 1;
#X connect 3 0 4 1;
#X connect 4 0 10 1;
#X connect 5 0 13 0;
#X connect 6 0 7 0;
#X connect 7 0 9 1;
#X connect 7 0 12 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 1;
#X connect 11 0 18 0;
#X connect 12 0 11 0;
#X connect 13 0 6 0;
#X connect 14 0 20 0;
#X connect 14 0 24 0;
#X connect 15 0 16 0;
#X connect 16 0 17 1;
#X connect 17 0 2 0;
#X connect 18 0 2 0;
#X connect 19 0 5 0;
#X connect 19 0 5 1;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 19 1;
#X connect 23 0 22 0;
#X connect 24 0 18 1;
#X connect 24 0 16 1;
#X connect 25 0 26 0;
#X connect 26 0 14 0;
#X restore 390 674 pd feed-freqsfift;
#X f 20;
#N canvas 146 96 650 533 feed-freqsfift 0;
#X obj 61 55 inlet~;
#N canvas 1 57 450 300 freqshift 0;
#X obj 115 19 inlet~;
#X obj 114 187 *~;
#X obj 210 186 *~;
#X obj 115 221 -~;
#X obj 115 277 outlet~;
#X obj 199 17 inlet~;
#X obj 200 110 cos~;
#X obj 239 129 +~ -0.25;
#X obj 239 151 cos~;
#N canvas 220 72 637 401 olli 0;
#X obj 292 117 inlet~;
#X obj 43 299 outlet~;
#X obj 293 304 outlet~;
#X obj 43 174 biquad~ 0 0.161758 0.161758 0 -1;
#X obj 43 203 biquad~ 0 0.733029 0.733029 0 -1;
#X obj 43 235 biquad~ 0 0.94535 0.94535 0 -1;
#X obj 43 262 biquad~ 0 0.990598 0.990598 0 -1;
#X obj 293 177 biquad~ 0 0.479401 0.479401 0 -1;
#X obj 293 207 biquad~ 0 0.876218 0.876218 0 -1;
#X obj 293 239 biquad~ 0 0.976599 0.976599 0 -1;
#X obj 293 267 biquad~ 0 0.9975 0.9975 0 -1;
#X text 95 300 first phase;
#X text 349 303 second phase;
#X text 177 302 << 90 degree >>;
#X obj 293 150 rzero_rev~ 0;
#X text 40 43 Olli Niemitalo's quadrature transform coefficients;
#X text 39 78 http://yehar.com/blog/?p=368;
#X text 39 63 http://www.katjaas.nl/hilbert/hilbert.html;
#X connect 0 0 3 0;
#X connect 0 0 14 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 2 0;
#X connect 14 0 7 0;
#X restore 115 61 pd olli;
#X obj 315 72 switch~ 0;
#X obj 315 48 != 0;
#X obj 315 26 r \$0-ssb-amount;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 2 1;
#X connect 9 0 1 0;
#X connect 9 1 2 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X restore 228 261 pd freqshift;
#X obj 196 616 outlet~;
#X obj 334 48 inlet~;
#N canvas 1 57 450 300 freqshift 0;
#X obj 115 19 inlet~;
#X obj 114 187 *~;
#X obj 210 186 *~;
#X obj 115 221 -~;
#X obj 115 277 outlet~;
#X obj 199 17 inlet~;
#X obj 200 110 cos~;
#X obj 239 129 +~ -0.25;
#X obj 239 151 cos~;
#N canvas 220 72 637 401 olli 0;
#X obj 292 117 inlet~;
#X obj 43 299 outlet~;
#X obj 293 304 outlet~;
#X obj 43 174 biquad~ 0 0.161758 0.161758 0 -1;
#X obj 43 203 biquad~ 0 0.733029 0.733029 0 -1;
#X obj 43 235 biquad~ 0 0.94535 0.94535 0 -1;
#X obj 43 262 biquad~ 0 0.990598 0.990598 0 -1;
#X obj 293 177 biquad~ 0 0.479401 0.479401 0 -1;
#X obj 293 207 biquad~ 0 0.876218 0.876218 0 -1;
#X obj 293 239 biquad~ 0 0.976599 0.976599 0 -1;
#X obj 293 267 biquad~ 0 0.9975 0.9975 0 -1;
#X text 95 300 first phase;
#X text 349 303 second phase;
#X text 177 302 << 90 degree >>;
#X obj 293 150 rzero_rev~ 0;
#X text 40 43 Olli Niemitalo's quadrature transform coefficients;
#X text 39 78 http://yehar.com/blog/?p=368;
#X text 39 63 http://www.katjaas.nl/hilbert/hilbert.html;
#X connect 0 0 3 0;
#X connect 0 0 14 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 2 0;
#X connect 14 0 7 0;
#X restore 115 61 pd olli;
#X obj 315 72 switch~ 0;
#X obj 315 48 != 0;
#X obj 315 26 r \$0-ssb-amount;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 2 1;
#X connect 9 0 1 0;
#X connect 9 1 2 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X restore 228 302 pd freqshift;
#X obj 172 266 *~;
#X obj 172 312 sqrt~;
#X obj 173 337 sqrt~;
#X obj 157 359 sig~ 1;
#X obj 158 383 -~;
#X obj 213 414 *~;
#X obj 197 441 +~;
#X obj 110 406 *~;
#X obj 172 289 lop~ 20;
#X msg 503 73 \$1 20;
#X obj 503 96 line~;
#X obj 77 495 sig~ 1;
#X obj 77 518 -~;
#X obj 62 543 *~;
#X obj 197 573 *~;
#X obj 172 241 *~;
#X obj 378 140 clip~ 1 2;
#X obj 378 163 -~ 1;
#X obj 364 197 -~;
#X obj 336 165 sig~ 1;
#X obj 502 473 clip~ 0 1;
#X obj 503 26 r \$0-ssb-amount;
#X obj 503 49 / 50;
#X connect 0 0 12 0;
#X connect 0 0 18 0;
#X connect 0 0 20 0;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 1 1;
#X connect 3 0 4 1;
#X connect 4 0 10 1;
#X connect 5 0 13 0;
#X connect 6 0 7 0;
#X connect 7 0 9 1;
#X connect 7 0 12 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 1;
#X connect 11 0 19 0;
#X connect 12 0 11 0;
#X connect 13 0 6 0;
#X connect 14 0 15 0;
#X connect 15 0 21 0;
#X connect 15 0 25 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 2 0;
#X connect 19 0 2 0;
#X connect 20 0 5 0;
#X connect 20 0 5 1;
#X connect 21 0 22 0;
#X connect 22 0 23 1;
#X connect 23 0 20 1;
#X connect 24 0 23 0;
#X connect 25 0 19 1;
#X connect 25 0 17 1;
#X connect 26 0 27 0;
#X connect 27 0 14 0;
#X restore 635 674 pd feed-freqsfift;
#X f 20;
#X obj 683 121 r \$0-feedback;
#X obj 683 144 / 100;
#N canvas 1 75 450 300 pingpong 0;
#X obj 66 51 inlet~;
#X obj 254 48 inlet~;
#X obj 66 214 outlet~;
#X obj 255 214 outlet~;
#X obj 65 131 *~ 1;
#X obj 255 130 *~ 1;
#X obj 126 134 *~;
#X obj 192 133 *~;
#X obj 141 48 r \$0-pingpong;
#X obj 276 90 == 0;
#X connect 0 0 4 0;
#X connect 0 0 6 0;
#X connect 1 0 5 0;
#X connect 1 0 7 1;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 8 0 6 1;
#X connect 8 0 7 0;
#X connect 9 0 4 1;
#X connect 9 0 5 1;
#X restore 391 530 pd pingpong;
#X f 41;
#N canvas 53 282 372 367 repeats 0;
#X obj 67 39 inlet~;
#N canvas 227 319 802 300 single 0;
#X obj 131 45 inlet~;
#X obj 129 256 outlet~;
#X obj 252 205 delread4~ \$0-del-r;
#X obj 129 205 delread4~ \$0-del-l;
#X obj 253 257 outlet~;
#X obj 252 40 inlet~;
#X obj 628 106 switch~ 0;
#X obj 130 144 +~;
#X obj 251 146 +~;
#N canvas 114 274 450 300 flutter 0;
#X obj 91 72 noise~;
#X obj 91 99 samphold~;
#X obj 94 261 outlet~;
#X obj 93 226 *~;
#X msg 151 203 \$1 100;
#X obj 151 226 line~;
#X obj 92 121 lop~ 20;
#X obj 93 144 *~ 0.05;
#X obj 143 74 phasor~ 12.6;
#X obj 151 180 / 100;
#X obj 151 157 r \$0-flutter;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 8 0 1 1;
#X connect 9 0 4 0;
#X connect 10 0 9 0;
#X restore 267 98 pd flutter;
#X obj 628 42 r \$0-repeats;
#X obj 628 67 == 0;
#X connect 0 0 7 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 5 0 8 0;
#X connect 7 0 3 0;
#X connect 8 0 2 0;
#X connect 9 0 8 1;
#X connect 9 0 7 1;
#X connect 10 0 11 0;
#X connect 11 0 6 0;
#X restore 66 251 pd single;
#X obj 66 303 outlet~;
#X obj 255 304 outlet~;
#N canvas 1 57 944 423 double 0;
#X obj 140 33 inlet~;
#X obj 142 348 outlet~;
#X obj 140 265 delread4~ \$0-del-l;
#X obj 261 264 delread4~ \$0-del-l;
#X obj 428 340 outlet~;
#X obj 429 262 delread4~ \$0-del-r;
#X obj 550 261 delread4~ \$0-del-r;
#X obj 428 25 inlet~;
#X obj 141 309 /~ 2;
#X obj 429 303 /~ 2;
#X obj 811 76 switch~ 0;
#X obj 140 190 +~;
#X obj 428 191 +~;
#X obj 549 189 +~;
#X obj 260 115 +~;
#N canvas 114 274 450 300 flutter 0;
#X obj 91 72 noise~;
#X obj 91 99 samphold~;
#X obj 94 261 outlet~;
#X obj 93 226 *~;
#X obj 92 121 lop~ 20;
#X obj 93 144 *~ 0.05;
#X obj 143 74 phasor~ 12.6;
#X msg 151 203 \$1 100;
#X obj 151 226 line~;
#X obj 151 180 / 100;
#X obj 151 157 r \$0-flutter;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 3 1;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X restore 442 134 pd flutter;
#N canvas 114 274 450 300 flutter 0;
#X obj 91 72 noise~;
#X obj 91 99 samphold~;
#X obj 94 261 outlet~;
#X obj 93 226 *~;
#X obj 92 121 lop~ 20;
#X obj 93 144 *~ 0.05;
#X obj 143 74 phasor~ 12.6;
#X msg 151 203 \$1 100;
#X obj 151 226 line~;
#X obj 151 180 / 100;
#X obj 151 157 r \$0-flutter;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 3 1;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X restore 565 66 pd flutter;
#X obj 811 25 r \$0-repeats;
#X obj 811 48 == 1;
#X obj 260 85 *~ 3;
#X obj 549 159 *~ 3;
#X connect 0 0 11 0;
#X connect 0 0 19 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 5 0 9 0;
#X connect 6 0 9 0;
#X connect 7 0 12 0;
#X connect 7 0 20 0;
#X connect 8 0 1 0;
#X connect 9 0 4 0;
#X connect 11 0 2 0;
#X connect 12 0 5 0;
#X connect 13 0 6 0;
#X connect 14 0 3 0;
#X connect 15 0 12 1;
#X connect 15 0 11 1;
#X connect 16 0 13 1;
#X connect 16 0 14 1;
#X connect 17 0 18 0;
#X connect 18 0 10 0;
#X connect 19 0 14 0;
#X connect 20 0 13 0;
#X restore 135 251 pd double;
#N canvas 71 96 1260 482 triple 0;
#X obj 140 33 inlet~;
#X obj 140 370 outlet~;
#X obj 140 225 delread4~ \$0-del-l;
#X obj 261 224 delread4~ \$0-del-l;
#X obj 383 225 delread4~ \$0-del-l;
#X obj 519 374 outlet~;
#X obj 519 227 delread4~ \$0-del-r;
#X obj 640 223 delread4~ \$0-del-r;
#X obj 762 224 delread4~ \$0-del-r;
#X obj 521 34 inlet~;
#X obj 856 84 switch~ 0;
#X obj 140 120 +~;
#X obj 521 123 +~;
#X obj 262 143 +~;
#X obj 382 143 +~;
#X obj 639 150 +~;
#X obj 762 148 +~;
#N canvas 114 274 450 300 flutter 0;
#X obj 91 72 noise~;
#X obj 91 99 samphold~;
#X obj 94 261 outlet~;
#X obj 93 226 *~;
#X obj 92 121 lop~ 20;
#X obj 93 144 *~ 0.05;
#X obj 143 74 phasor~ 12.6;
#X msg 151 203 \$1 100;
#X obj 151 226 line~;
#X obj 151 180 / 100;
#X obj 151 157 r \$0-flutter;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 3 1;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X restore 278 26 pd flutter;
#N canvas 114 274 450 300 flutter 0;
#X obj 91 72 noise~;
#X obj 91 99 samphold~;
#X obj 94 261 outlet~;
#X obj 93 226 *~;
#X obj 92 121 lop~ 20;
#X obj 93 144 *~ 0.05;
#X obj 143 74 phasor~ 12.6;
#X msg 151 203 \$1 100;
#X obj 151 226 line~;
#X obj 151 180 / 100;
#X obj 151 157 r \$0-flutter;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 3 1;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X restore 346 25 pd flutter;
#N canvas 114 274 450 300 flutter 0;
#X obj 91 72 noise~;
#X obj 91 99 samphold~;
#X obj 94 261 outlet~;
#X obj 93 226 *~;
#X obj 92 121 lop~ 20;
#X obj 93 144 *~ 0.05;
#X obj 143 74 phasor~ 12.6;
#X msg 151 203 \$1 100;
#X obj 151 226 line~;
#X obj 151 180 / 100;
#X obj 151 157 r \$0-flutter;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X connect 8 0 3 1;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X restore 415 26 pd flutter;
#X obj 856 33 r \$0-repeats;
#X obj 856 56 == 2;
#X obj 139 331 /~ 3;
#X obj 520 337 /~ 3;
#X obj 762 123 *~ 4;
#X obj 382 119 *~ 4;
#X obj 262 120 *~ 2;
#X obj 639 125 *~ 2;
#X connect 0 0 11 0;
#X connect 0 0 25 0;
#X connect 0 0 26 0;
#X connect 2 0 22 0;
#X connect 3 0 22 0;
#X connect 4 0 22 0;
#X connect 6 0 23 0;
#X connect 7 0 23 0;
#X connect 8 0 23 0;
#X connect 9 0 12 0;
#X connect 9 0 24 0;
#X connect 9 0 27 0;
#X connect 11 0 2 0;
#X connect 12 0 6 0;
#X connect 13 0 3 0;
#X connect 14 0 4 0;
#X connect 15 0 7 0;
#X connect 16 0 8 0;
#X connect 17 0 11 1;
#X connect 17 0 12 1;
#X connect 18 0 13 1;
#X connect 18 0 15 1;
#X connect 19 0 14 1;
#X connect 19 0 16 1;
#X connect 20 0 21 0;
#X connect 21 0 10 0;
#X connect 22 0 1 0;
#X connect 23 0 5 0;
#X connect 24 0 16 0;
#X connect 25 0 14 0;
#X connect 26 0 13 0;
#X connect 27 0 15 0;
#X restore 204 249 pd triple;
#X obj 254 46 inlet~;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 4 0 2 0;
#X connect 4 1 3 0;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 6 0 5 1;
#X connect 6 0 4 1;
#X connect 6 0 1 1;
#X restore 406 174 pd repeats;
#X f 41;
#X obj 683 191 line~;
#X msg 683 168 \$1 10;
#X obj 699 521 r \$0-shift;
#N canvas 1 57 607 400 dry/wet 0;
#X obj 46 0 inlet~;
#X obj 388 119 line~;
#X obj 388 97 pack 0 30;
#X obj 272 254 *~;
#X obj 326 256 *~;
#X obj 46 374 outlet~;
#X obj 121 375 outlet~;
#X obj 136 217 -~;
#X obj 388 39 r \$0-drywet;
#X obj 272 1 inlet~;
#X obj 326 1 inlet~;
#X obj 45 253 *~;
#X obj 121 1 inlet~;
#X obj 120 256 *~;
#X obj 388 62 / 50;
#X obj 150 193 clip~ 1 2;
#X obj 136 150 sig~ 2;
#X obj 389 196 clip~ 0 1;
#X connect 0 0 11 0;
#X connect 1 0 15 0;
#X connect 1 0 17 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 7 0 11 1;
#X connect 7 0 13 1;
#X connect 8 0 14 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X connect 11 0 5 0;
#X connect 12 0 13 0;
#X connect 13 0 6 0;
#X connect 14 0 2 0;
#X connect 15 0 7 1;
#X connect 16 0 7 0;
#X connect 17 0 4 1;
#X connect 17 0 3 1;
#X restore 67 601 pd dry/wet;
#X f 31;
#X obj 405 89 inlet~;
#X obj 648 87 inlet~;
#X text 408 64 deltime-l;
#X text 645 64 deltime-r;
#X obj 799 84 inlet~;
#X text 809 59 ssb-shift;
#X obj 635 702 delwrite~ \$0-del-r \$1;
#X obj 390 702 delwrite~ \$0-del-l \$1;
#N canvas 596 297 479 300 distort 0;
#X obj 72 11 inlet~;
#X obj 72 240 outlet~;
#N canvas 1 57 450 300 dist1 0;
#X obj 72 0 inlet~;
#X obj 72 255 outlet~;
#X obj 73 172 expr~ atan($v1);
#X obj 168 45 *~;
#X obj 73 150 *~;
#X obj 73 195 *~;
#X obj 152 122 sig~ 1;
#X obj 152 147 /~;
#X obj 168 91 sqrt~;
#X obj 168 66 lop~ 1;
#X obj 304 14 r \$0-dist-mode;
#X obj 304 37 == 0;
#X obj 304 60 switch~;
#X connect 0 0 3 0;
#X connect 0 0 3 1;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 9 0;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 5 1;
#X connect 8 0 7 1;
#X connect 8 0 4 1;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X restore 72 115 pd dist1;
#N canvas 1 57 450 300 dist2 0;
#X obj 71 10 inlet~;
#X obj 72 255 outlet~;
#X obj 304 14 r \$0-dist-mode;
#X obj 304 60 switch~;
#X obj 304 37 != 0;
#X obj 72 118 expr~ tanh($v1);
#X connect 0 0 5 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X restore 143 115 pd dist2;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X restore 391 358 pd distort;
#N canvas 357 319 753 367 deltimes 0;
#X obj 441 39 r \$0-deltime-r;
#X obj 231 43 r \$0-deltime-l;
#X msg 349 87 \$1 100;
#X obj 349 110 line~;
#X obj 333 156 *~;
#X obj 349 40 r \$0-flutter;
#X obj 231 229 +~;
#X obj 201 265 +~;
#X obj 426 245 +~;
#X obj 427 285 +~;
#X obj 625 41 inlet~;
#X obj 134 42 inlet~;
#X obj 201 316 outlet~;
#X obj 427 311 outlet~;
#N canvas 195 315 450 300 wow 0;
#X obj 163 46 noise~;
#X obj 163 69 samphold~;