blob: 45b2b512abe69f99aa68f8ce05406d3781e5ffb1 (
plain)
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
|
#N canvas 425 30 597 738 10;
#X floatatom 372 232 9 0 0 0 - - -;
#X obj 372 213 mtof;
#X floatatom 372 197 5 0 127 0 - - -;
#X floatatom 507 231 5 0 0 0 - - -;
#N canvas 435 52 535 646 coef_lowShelf_biquad 0;
#X obj 50 32 inlet;
#X text 92 34 f;
#X obj 50 185 * 6.283;
#X obj 106 208 samplerate~;
#X obj 106 186 loadbang;
#X obj 164 187 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 50 240 /;
#X obj 96 292 cos;
#X obj 69 291 sin;
#X obj 319 36 inlet;
#X text 387 176 A;
#X obj 319 121 pow;
#X msg 319 100 10;
#X obj 319 81 t b f;
#X obj 319 58 / 40;
#X obj 319 212 t f f;
#X obj 319 234 *;
#X obj 319 254 + 1;
#X obj 360 213 - 1;
#X obj 360 234 t f f;
#X obj 360 256 *;
#X obj 319 284 -;
#X text 360 309 beta;
#X obj 319 308 sqrt;
#X obj 319 173 t f f f;
#X obj 50 263 t b f f;
#X obj 50 493 /;
#X obj 50 391 expr -2 * ( ($f2-1) + ($f2+1)*$f4 ) \; ($f2+1) + ($f2-1)*$f4
- $f1*$f3 \; $f2 * ( ($f2+1) - ($f2-1)*$f4 + $f1*$f3 ) \; 2 * $f2 *
( ($f2-1) - ($f2+1)*$f4 ) \; $f2 * ( ($f2+1) - ($f2-1)*$f4 - $f1*$f3
) \; ($f2+1) + ($f2-1)*$f4 + $f1*$f3 \;;
#X obj 50 525 outlet;
#X obj 99 527 outlet;
#X obj 149 528 outlet;
#X obj 199 528 outlet;
#X obj 249 529 outlet;
#X obj 99 493 /;
#X obj 149 496 /;
#X obj 199 494 /;
#X obj 249 497 /;
#X obj 50 73 max 0;
#X obj 50 99 min 21000;
#X obj 319 149 1;
#X obj 353 125 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 50 357 f;
#X msg 135 281 1;
#X obj 135 302 sqrt;
#X obj 135 257 loadbang;
#X connect 0 0 37 0;
#X connect 2 0 6 0;
#X connect 3 0 6 1;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 25 0;
#X connect 7 0 27 3;
#X connect 8 0 27 2;
#X connect 9 0 14 0;
#X connect 11 0 39 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 13 1 11 1;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 1 16 1;
#X connect 16 0 17 0;
#X connect 17 0 21 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 19 1 20 1;
#X connect 20 0 21 1;
#X connect 21 0 23 0;
#X connect 23 0 27 0;
#X connect 24 0 15 0;
#X connect 24 1 18 0;
#X connect 24 2 27 1;
#X connect 25 0 41 0;
#X connect 25 1 8 0;
#X connect 25 2 7 0;
#X connect 26 0 28 0;
#X connect 27 0 26 0;
#X connect 27 1 33 0;
#X connect 27 2 34 0;
#X connect 27 3 35 0;
#X connect 27 4 36 0;
#X connect 27 5 26 1;
#X connect 27 5 33 1;
#X connect 27 5 34 1;
#X connect 27 5 35 1;
#X connect 27 5 36 1;
#X connect 33 0 29 0;
#X connect 34 0 30 0;
#X connect 35 0 31 0;
#X connect 36 0 32 0;
#X connect 37 0 38 0;
#X connect 38 0 2 0;
#X connect 39 0 24 0;
#X connect 40 0 39 0;
#X connect 41 0 27 0;
#X connect 42 0 43 0;
#X connect 42 0 27 1;
#X connect 43 0 41 1;
#X connect 44 0 42 0;
#X restore 372 253 pd coef_lowShelf_biquad;
#X obj 42 545 hip~ 2;
#N canvas 275 396 358 628 coef_hpf_biquad 0;
#X obj 50 32 inlet;
#X obj 211 31 inlet;
#X text 92 34 f;
#X text 256 31 Q;
#X obj 116 138 samplerate~;
#X obj 116 115 loadbang;
#X obj 173 116 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 50 170 /;
#X obj 50 339 cos;
#X obj 199 266 sin;
#X obj 211 116 * 2;
#X obj 50 534 outlet;
#X obj 288 474 + 1;
#X obj 139 471 / 2;
#X msg 139 428 1 \$1;
#X obj 184 450 -;
#X obj 229 471 / 2;
#X msg 229 428 1 \$1;
#X obj 50 457 * -2;
#X obj 50 239 t f f;
#X obj 50 509 /;
#X obj 94 510 /;
#X obj 139 510 /;
#X obj 184 509 /;
#X obj 229 510 /;
#X obj 139 534 outlet;
#X obj 94 534 outlet;
#X obj 184 534 outlet;
#X obj 229 534 outlet;
#X obj 50 216 f;
#X obj 211 185 t b f;
#X obj 211 95 + 0.707;
#X msg 94 428 1 \$1;
#X obj 94 473 -;
#X obj 199 320 t f f;
#X obj 139 450 +;
#X obj 229 451 +;
#X msg 184 428 -1 \$1;
#X obj 211 74 max 0;
#X obj 50 73 max 0;
#X obj 50 364 t f f b;
#X obj 50 115 * 3.14159;
#X obj 60 193 min 3.14;
#X obj 199 294 * 0.767;
#X obj 238 254 sinh;
#X msg 211 140 1 \$1;
#X obj 211 162 /;
#X obj 50 144 * 2;
#X obj 50 95 min 21000;
#X connect 0 0 39 0;
#X connect 1 0 38 0;
#X connect 4 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 29 0;
#X connect 8 0 40 0;
#X connect 9 0 43 0;
#X connect 10 0 45 0;
#X connect 12 0 20 1;
#X connect 12 0 21 1;
#X connect 12 0 22 1;
#X connect 12 0 23 1;
#X connect 12 0 24 1;
#X connect 13 0 22 0;
#X connect 14 0 35 0;
#X connect 15 0 23 0;
#X connect 16 0 24 0;
#X connect 17 0 36 0;
#X connect 18 0 20 0;
#X connect 19 0 8 0;
#X connect 19 1 9 0;
#X connect 20 0 11 0;
#X connect 21 0 26 0;
#X connect 22 0 25 0;
#X connect 23 0 27 0;
#X connect 24 0 28 0;
#X connect 29 0 19 0;
#X connect 30 0 29 0;
#X connect 30 1 44 0;
#X connect 31 0 10 0;
#X connect 32 0 33 0;
#X connect 33 0 21 0;
#X connect 34 0 32 0;
#X connect 34 1 12 0;
#X connect 35 0 13 0;
#X connect 36 0 16 0;
#X connect 37 0 15 0;
#X connect 38 0 31 0;
#X connect 39 0 48 0;
#X connect 40 0 18 0;
#X connect 40 1 14 0;
#X connect 40 1 37 0;
#X connect 40 1 17 0;
#X connect 40 2 33 0;
#X connect 41 0 47 0;
#X connect 42 0 29 0;
#X connect 43 0 34 0;
#X connect 44 0 43 1;
#X connect 45 0 46 0;
#X connect 46 0 30 0;
#X connect 47 0 7 0;
#X connect 48 0 41 0;
#X restore 177 242 pd coef_hpf_biquad;
#N canvas 269 177 545 625 coef_bpf_biquad 0;
#X obj 50 32 inlet;
#X obj 211 31 inlet;
#X text 92 34 f;
#X text 256 31 Q;
#X obj 119 148 samplerate~;
#X obj 119 125 loadbang;
#X obj 176 126 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 50 180 /;
#X obj 50 349 cos;
#X obj 199 276 sin;
#X obj 211 126 * 2;
#X obj 50 544 outlet;
#X obj 288 484 + 1;
#X obj 50 467 * -2;
#X obj 50 249 t f f;
#X obj 50 519 /;
#X obj 94 520 /;
#X obj 139 520 /;
#X obj 229 520 /;
#X obj 139 544 outlet;
#X obj 94 544 outlet;
#X obj 184 544 outlet;
#X obj 229 544 outlet;
#X obj 50 226 f;
#X obj 211 195 t b f;
#X msg 94 438 1 \$1;
#X obj 94 483 -;
#X obj 229 481 * -1;
#X msg 184 520 0;
#X obj 199 330 t f b f;
#X obj 211 74 max 0;
#X obj 50 73 max 0;
#X obj 50 122 * 3.14159;
#X obj 211 105 + 0.7;
#X msg 211 148 1 \$1;
#X obj 238 242 sinh;
#X obj 211 170 /;
#X obj 50 148 * 2;
#X obj 50 99 min 21000;
#X obj 199 303 * 0.767;
#X connect 0 0 31 0;
#X connect 1 0 30 0;
#X connect 4 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 23 0;
#X connect 8 0 13 0;
#X connect 9 0 39 0;
#X connect 10 0 34 0;
#X connect 12 0 15 1;
#X connect 12 0 16 1;
#X connect 12 0 17 1;
#X connect 12 0 18 1;
#X connect 13 0 15 0;
#X connect 14 0 8 0;
#X connect 14 1 9 0;
#X connect 15 0 11 0;
#X connect 16 0 20 0;
#X connect 17 0 19 0;
#X connect 18 0 22 0;
#X connect 23 0 14 0;
#X connect 24 0 23 0;
#X connect 24 1 35 0;
#X connect 25 0 26 0;
#X connect 26 0 16 0;
#X connect 27 0 18 0;
#X connect 28 0 21 0;
#X connect 29 0 25 0;
#X connect 29 0 17 0;
#X connect 29 0 27 0;
#X connect 29 1 28 0;
#X connect 29 2 12 0;
#X connect 30 0 33 0;
#X connect 31 0 38 0;
#X connect 32 0 37 0;
#X connect 33 0 10 0;
#X connect 34 0 36 0;
#X connect 35 0 39 1;
#X connect 36 0 24 0;
#X connect 37 0 7 0;
#X connect 38 0 32 0;
#X connect 39 0 29 0;
#X restore 188 335 pd coef_bpf_biquad;
#X msg 95 544 clear;
#N canvas 520 123 368 628 coef_lpf_biquad 0;
#X obj 50 32 inlet;
#X obj 211 31 inlet;
#X text 92 34 f;
#X text 256 31 Q;
#X obj 117 137 samplerate~;
#X obj 117 114 loadbang;
#X obj 174 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 50 170 /;
#X obj 50 369 cos;
#X obj 199 296 sin;
#X obj 211 116 * 2;
#X obj 50 564 outlet;
#X obj 288 504 + 1;
#X obj 139 501 / 2;
#X obj 94 505 -;
#X msg 99 463 1 \$1;
#X msg 139 458 1 \$1;
#X obj 184 480 -;
#X obj 229 501 / 2;
#X msg 229 460 1 \$1;
#X obj 50 487 * -2;
#X obj 139 480 -;
#X msg 184 458 1 \$1;
#X obj 229 481 -;
#X obj 199 350 t f f;
#X obj 50 269 t f f;
#X obj 50 539 /;
#X obj 94 540 /;
#X obj 139 540 /;
#X obj 184 539 /;
#X obj 229 540 /;
#X obj 139 564 outlet;
#X obj 94 564 outlet;
#X obj 184 564 outlet;
#X obj 229 564 outlet;
#X obj 50 246 f;
#X obj 211 185 t b f;
#X obj 211 95 + 0.707;
#X obj 211 74 max 0;
#X obj 50 73 max 0;
#X obj 50 394 t f f b;
#X obj 50 115 * 3.14159;
#X obj 67 206 min 3.14;
#X obj 238 295 sinh;
#X obj 199 325 * 0.767;
#X msg 211 140 1 \$1;
#X obj 211 162 /;
#X obj 50 143 * 2;
#X obj 50 95 min 21000;
#X connect 0 0 39 0;
#X connect 1 0 38 0;
#X connect 4 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 35 0;
#X connect 8 0 40 0;
#X connect 9 0 44 0;
#X connect 10 0 45 0;
#X connect 12 0 26 1;
#X connect 12 0 27 1;
#X connect 12 0 28 1;
#X connect 12 0 29 1;
#X connect 12 0 30 1;
#X connect 13 0 28 0;
#X connect 14 0 27 0;
#X connect 15 0 14 0;
#X connect 16 0 21 0;
#X connect 17 0 29 0;
#X connect 18 0 30 0;
#X connect 19 0 23 0;
#X connect 20 0 26 0;
#X connect 21 0 13 0;
#X connect 22 0 17 0;
#X connect 23 0 18 0;
#X connect 24 0 15 0;
#X connect 24 1 12 0;
#X connect 25 0 8 0;
#X connect 25 1 9 0;
#X connect 26 0 11 0;
#X connect 27 0 32 0;
#X connect 28 0 31 0;
#X connect 29 0 33 0;
#X connect 30 0 34 0;
#X connect 35 0 25 0;
#X connect 36 0 35 0;
#X connect 36 1 43 0;
#X connect 37 0 10 0;
#X connect 38 0 37 0;
#X connect 39 0 48 0;
#X connect 40 0 20 0;
#X connect 40 1 16 0;
#X connect 40 1 22 0;
#X connect 40 1 19 0;
#X connect 40 2 14 0;
#X connect 41 0 47 0;
#X connect 42 0 35 0;
#X connect 43 0 44 1;
#X connect 44 0 24 0;
#X connect 45 0 46 0;
#X connect 46 0 36 0;
#X connect 47 0 7 0;
#X connect 48 0 41 0;
#X restore 165 154 pd coef_lpf_biquad;
#X obj 165 178 pack f f f f f;
#X obj 165 132 mtof;
#X floatatom 165 115 5 0 0 0 - - -;
#X floatatom 270 133 5 0 0 0 - - -;
#X obj 177 266 pack f f f f f;
#X obj 177 221 mtof;
#X floatatom 177 203 5 0 0 0 - - -;
#X floatatom 282 221 5 0 0 0 - - -;
#X obj 188 356 pack f f f f f;
#X obj 188 311 mtof;
#X floatatom 188 291 5 0 0 0 - - -;
#X floatatom 293 311 5 0 0 0 - - -;
#X obj 200 443 pack f f f f f;
#X obj 200 398 mtof;
#X floatatom 200 380 5 0 0 0 - - -;
#X floatatom 318 400 5 0 0 0 - - -;
#N canvas 101 71 356 625 coef_notch_biquad 0;
#X obj 50 32 inlet;
#X obj 205 31 inlet;
#X text 92 34 f;
#X text 250 31 Q;
#X obj 119 148 samplerate~;
#X obj 119 125 loadbang;
#X obj 176 126 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 50 180 /;
#X obj 50 349 cos;
#X obj 199 276 sin;
#X obj 205 126 * 2;
#X obj 50 574 outlet;
#X obj 288 484 + 1;
#X obj 50 467 * -2;
#X obj 50 249 t f f;
#X obj 50 519 /;
#X obj 94 520 /;
#X obj 139 520 /;
#X obj 229 520 /;
#X obj 139 574 outlet;
#X obj 94 574 outlet;
#X obj 184 574 outlet;
#X obj 229 574 outlet;
#X obj 50 226 f;
#X obj 205 195 t b f;
#X msg 94 438 1 \$1;
#X obj 94 483 -;
#X obj 199 330 t f b f;
#X obj 205 74 max 0;
#X obj 50 73 max 0;
#X obj 50 122 * 3.14159;
#X msg 205 148 1 \$1;
#X obj 232 242 sinh;
#X obj 205 170 /;
#X obj 199 303 *;
#X obj 50 148 * 2;
#X msg 139 487 1;
#X msg 231 481 1;
#X obj 50 548 t f f;
#X obj 205 104 + 0.1;
#X obj 50 99 min 21000;
#X connect 0 0 29 0;
#X connect 1 0 28 0;
#X connect 4 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 23 0;
#X connect 8 0 13 0;
#X connect 9 0 34 0;
#X connect 10 0 31 0;
#X connect 12 0 15 1;
#X connect 12 0 16 1;
#X connect 12 0 17 1;
#X connect 12 0 18 1;
#X connect 13 0 15 0;
#X connect 14 0 8 0;
#X connect 14 1 9 0;
#X connect 15 0 38 0;
#X connect 16 0 20 0;
#X connect 17 0 19 0;
#X connect 18 0 22 0;
#X connect 23 0 14 0;
#X connect 24 0 23 0;
#X connect 24 1 32 0;
#X connect 25 0 26 0;
#X connect 26 0 16 0;
#X connect 27 0 25 0;
#X connect 27 1 36 0;
#X connect 27 1 37 0;
#X connect 27 2 12 0;
#X connect 28 0 39 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 31 0 33 0;
#X connect 32 0 34 1;
#X connect 33 0 24 0;
#X connect 34 0 27 0;
#X connect 35 0 7 0;
#X connect 36 0 17 0;
#X connect 37 0 18 0;
#X connect 38 0 11 0;
#X connect 38 1 21 0;
#X connect 39 0 10 0;
#X connect 40 0 30 0;
#X restore 200 421 pd coef_notch_biquad;
#X obj 42 517 noise~;
#X obj 41 640 dac~;
#X obj 165 483 t a;
#X obj 355 176 pack f f f f f;
#X obj 355 131 mtof;
#X floatatom 355 113 5 0 0 0 - - -;
#X floatatom 416 131 5 0 0 0 - - -;
#X obj 355 451 t a;
#N canvas 101 71 356 625 coef_peak_biquad 0;
#X obj 50 32 inlet;
#X obj 206 31 inlet;
#X text 92 34 f;
#X text 251 31 Q;
#X obj 119 148 samplerate~;
#X obj 119 125 loadbang;
#X obj 176 126 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 50 180 /;
#X obj 50 349 cos;
#X obj 200 276 sin;
#X obj 206 126 * 2;
#X obj 50 574 outlet;
#X obj 283 485 + 1;
#X obj 50 467 * -2;
#X obj 50 249 t f f;
#X obj 50 519 /;
#X obj 94 520 /;
#X obj 139 520 /;
#X obj 229 520 /;
#X obj 139 574 outlet;
#X obj 94 574 outlet;
#X obj 184 574 outlet;
#X obj 229 574 outlet;
#X obj 50 226 f;
#X obj 206 195 t b f;
#X msg 94 458 1 \$1;
#X obj 206 74 max 0;
#X obj 50 73 max 0;
#X obj 50 128 * 3.14159;
#X msg 206 148 1 \$1;
#X obj 233 226 sinh;
#X obj 206 170 /;
#X obj 50 148 * 2;
#X obj 50 548 t f f;
#X obj 206 104 + 0.1;
#X obj 302 32 inlet;
#X text 344 198 A;
#X obj 302 117 pow;
#X msg 302 96 10;
#X obj 302 77 t b f;
#X obj 302 54 / 40;
#X msg 140 460 1 \$1;
#X msg 230 460 1 \$1;
#X obj 230 485 -;
#X obj 200 356 t f f;
#X obj 302 202 t b f;
#X obj 140 485 +;
#X obj 94 483 -;
#X obj 50 99 min 21000;
#X obj 200 406 / 1;
#X obj 230 407 * 1;
#X obj 283 407 / 1;
#X obj 200 303 * 74.2;
#X connect 0 0 27 0;
#X connect 1 0 26 0;
#X connect 4 0 7 1;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 7 0 23 0;
#X connect 8 0 13 0;
#X connect 9 0 52 0;
#X connect 10 0 29 0;
#X connect 12 0 15 1;
#X connect 12 0 16 1;
#X connect 12 0 17 1;
#X connect 12 0 18 1;
#X connect 13 0 15 0;
#X connect 14 0 8 0;
#X connect 14 1 9 0;
#X connect 15 0 33 0;
#X connect 16 0 20 0;
#X connect 17 0 19 0;
#X connect 18 0 22 0;
#X connect 23 0 14 0;
#X connect 24 0 23 0;
#X connect 24 1 30 0;
#X connect 25 0 47 0;
#X connect 26 0 34 0;
#X connect 27 0 48 0;
#X connect 28 0 32 0;
#X connect 29 0 31 0;
#X connect 30 0 52 1;
#X connect 31 0 24 0;
#X connect 32 0 7 0;
#X connect 33 0 11 0;
#X connect 33 1 21 0;
#X connect 34 0 10 0;
#X connect 35 0 40 0;
#X connect 37 0 45 0;
#X connect 38 0 37 0;
#X connect 39 0 38 0;
#X connect 39 1 37 1;
#X connect 40 0 39 0;
#X connect 41 0 46 0;
#X connect 42 0 43 0;
#X connect 43 0 18 0;
#X connect 44 0 49 0;
#X connect 44 0 50 0;
#X connect 44 1 51 0;
#X connect 45 0 23 0;
#X connect 45 1 49 1;
#X connect 45 1 50 1;
#X connect 45 1 51 1;
#X connect 46 0 17 0;
#X connect 47 0 16 0;
#X connect 48 0 28 0;
#X connect 49 0 25 0;
#X connect 50 0 42 0;
#X connect 50 0 41 0;
#X connect 51 0 12 0;
#X connect 52 0 44 0;
#X restore 355 154 pd coef_peak_biquad;
#X floatatom 477 134 5 0 0 0 - - -;
#X obj 42 613 *~ 0.1;
#X obj 372 276 pack f f f f f;
#X floatatom 388 337 9 0 0 0 - - -;
#X obj 388 318 mtof;
#X floatatom 388 302 5 0 127 0 - - -;
#X floatatom 523 336 5 0 0 0 - - -;
#X obj 388 381 pack f f f f f;
#N canvas 435 52 535 646 coef_highShelf_biquad 0;
#X obj 50 32 inlet;
#X text 92 34 f;
#X obj 50 165 * 6.283;
#X obj 106 188 samplerate~;
#X obj 106 166 loadbang;
#X obj 164 167 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 50 220 /;
#X obj 96 272 cos;
#X obj 69 271 sin;
#X obj 319 36 inlet;
#X text 387 146 A;
#X obj 319 121 pow;
#X msg 319 100 10;
#X obj 319 81 t b f;
#X obj 319 58 / 40;
#X obj 319 182 t f f;
#X obj 319 204 *;
#X obj 319 224 + 1;
#X obj 360 183 - 1;
#X obj 360 204 t f f;
#X obj 360 226 *;
#X obj 319 254 -;
#X text 360 279 beta;
#X obj 319 278 sqrt;
#X obj 319 143 t f f f;
#X obj 50 243 t b f f;
#X obj 50 493 /;
#X obj 50 525 outlet;
#X obj 99 527 outlet;
#X obj 149 528 outlet;
#X obj 199 528 outlet;
#X obj 249 529 outlet;
#X obj 99 493 /;
#X obj 149 496 /;
#X obj 199 494 /;
#X obj 249 497 /;
#X obj 50 392 expr 2 * ( ($f2-1) - ($f2+1)*$f4 ) \; ($f2+1) - ($f2-1)*$f4
- $f1*$f3 \; $f2 * ( ($f2+1) + ($f2-1)*$f4 + $f1*$f3 ) \; -2 * $f2
* ( ($f2-1) + ($f2+1)*$f4 ) \; $f2 * ( ($f2+1) + ($f2-1)*$f4 - $f1*$f3
) \; ($f2+1) - ($f2-1)*$f4 + $f1*$f3 \;;
#X obj 50 73 max 0;
#X obj 50 99 min 21000;
#X obj 50 357 f;
#X msg 135 281 1;
#X obj 135 302 sqrt;
#X obj 135 257 loadbang;
#X connect 0 0 37 0;
#X connect 2 0 6 0;
#X connect 3 0 6 1;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 25 0;
#X connect 7 0 36 3;
#X connect 8 0 36 2;
#X connect 9 0 14 0;
#X connect 11 0 24 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 13 1 11 1;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 1 16 1;
#X connect 16 0 17 0;
#X connect 17 0 21 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 19 1 20 1;
#X connect 20 0 21 1;
#X connect 21 0 23 0;
#X connect 23 0 36 0;
#X connect 24 0 15 0;
#X connect 24 1 18 0;
#X connect 24 2 36 1;
#X connect 25 0 39 0;
#X connect 25 1 8 0;
#X connect 25 2 7 0;
#X connect 26 0 27 0;
#X connect 32 0 28 0;
#X connect 33 0 29 0;
#X connect 34 0 30 0;
#X connect 35 0 31 0;
#X connect 36 0 26 0;
#X connect 36 1 32 0;
#X connect 36 2 33 0;
#X connect 36 3 34 0;
#X connect 36 4 35 0;
#X connect 36 5 26 1;
#X connect 36 5 32 1;
#X connect 36 5 33 1;
#X connect 36 5 34 1;
#X connect 36 5 35 1;
#X connect 37 0 38 0;
#X connect 38 0 2 0;
#X connect 39 0 36 0;
#X connect 40 0 41 0;
#X connect 40 0 36 1;
#X connect 41 0 39 1;
#X connect 42 0 40 0;
#X restore 388 358 pd coef_highShelf_biquad;
#X text 59 45 y(n) = b0 x(n) + b1 x(n-1) + b2 x(n-2) -a1 y(n-1) -a2
y(n-2);
#N canvas 0 0 450 300 5_line~ 0;
#X obj 80 123 line~;
#X obj 79 147 outlet~;
#X obj 80 73 inlet;
#X obj 136 123 line~;
#X obj 135 147 outlet~;
#X obj 136 73 inlet;
#X obj 193 123 line~;
#X obj 192 147 outlet~;
#X obj 193 73 inlet;
#X obj 247 123 line~;
#X obj 246 147 outlet~;
#X obj 247 73 inlet;
#X obj 304 123 line~;
#X obj 303 147 outlet~;
#X obj 304 73 inlet;
#X msg 80 96 \$1 133;
#X msg 136 96 \$1 133;
#X msg 193 96 \$1 133;
#X msg 247 96 \$1 133;
#X msg 304 96 \$1 133;
#X connect 0 0 1 0;
#X connect 2 0 15 0;
#X connect 3 0 4 0;
#X connect 5 0 16 0;
#X connect 6 0 7 0;
#X connect 8 0 17 0;
#X connect 9 0 10 0;
#X connect 11 0 18 0;
#X connect 12 0 13 0;
#X connect 14 0 19 0;
#X connect 15 0 0 0;
#X connect 16 0 3 0;
#X connect 17 0 6 0;
#X connect 18 0 9 0;
#X connect 19 0 12 0;
#X restore 165 535 pd 5_line~;
#X obj 165 508 unpack f f f f f;
#N canvas 0 0 444 301 oscillo 0;
#X obj 41 25 loadbang;
#X obj 26 223 metro 100;
#X obj 8 -9 inlet~;
#X msg 41 47 1;
#X obj 42 81 tgl 20 0 empty empty Stop 0 -6 0 8 -258699 -1 -1 1 1;
#X obj 118 -3 inlet;
#X msg 147 48 1;
#X msg 115 48 0;
#X obj 118 21 moses 10;
#X obj 19 263 tabwrite~ \$0-oscillo;
#X obj 100 140 cnv 1 300 1 empty empty empty 20 12 0 14 -195568 -66577
0;
#N canvas 0 0 767 419 (subpatch) 0;
#X array \$0-oscillo 300 float 0;
#X coords 0 1 299 -1 300 80 1;
#X restore 100 100 graph;
#X obj 110 75 change;
#X obj 234 62 block~ 640 1 0.25;
#X connect 0 0 3 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 8 0;
#X connect 6 0 12 0;
#X connect 7 0 12 0;
#X connect 8 0 7 0;
#X connect 8 1 6 0;
#X connect 8 1 1 1;
#X connect 12 0 1 0;
#X coords 0 -1 1 1 300 80 1 100 100;
#X restore 97 617 pd oscillo;
#X obj 43 586 bq~ ---------;
#X text 41 17 bq~ is a biquad \, but with audio input for the coeficients.
Out out is :;
#X text 57 63 (it's not the same structure than biquad~ ! );
#X text 326 584 <- drop in remplacement for bq~ \, using fexpr~;
#N canvas 0 98 595 201 bq~ 0;
#X obj 56 60 inlet~;
#X obj 192 58 inlet~;
#X obj 239 58 inlet~;
#X obj 319 59 inlet~;
#X obj 366 59 inlet~;
#X obj 412 58 inlet~;
#X text 323 37 b0;
#X obj 56 156 outlet~;
#X msg 67 84 clear;
#X text 188 34 a1;
#X obj 57 113 fexpr~ $x4[0]*$x1[0] + $x5[0]*$x1[-1] + $x6[0]*$x1[-2]
- $x2[0]*$y1[-1] - $x3[0]*$y1[-2];
#X connect 0 0 10 0;
#X connect 1 0 10 1;
#X connect 2 0 10 2;
#X connect 3 0 10 3;
#X connect 4 0 10 4;
#X connect 5 0 10 5;
#X connect 8 0 10 0;
#X connect 10 0 7 0;
#X restore 254 583 pd bq~ ---;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 4 1;
#X connect 4 0 38 0;
#X connect 4 1 38 1;
#X connect 4 2 38 2;
#X connect 4 3 38 3;
#X connect 4 4 38 4;
#X connect 5 0 49 0;
#X connect 6 0 14 0;
#X connect 6 1 14 1;
#X connect 6 2 14 2;
#X connect 6 3 14 3;
#X connect 6 4 14 4;
#X connect 7 0 18 0;
#X connect 7 1 18 1;
#X connect 7 2 18 2;
#X connect 7 3 18 3;
#X connect 7 4 18 4;
#X connect 8 0 49 0;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 9 2 10 2;
#X connect 9 3 10 3;
#X connect 9 4 10 4;
#X connect 10 0 29 0;
#X connect 11 0 9 0;
#X connect 12 0 11 0;
#X connect 13 0 9 1;
#X connect 14 0 29 0;
#X connect 15 0 6 0;
#X connect 16 0 15 0;
#X connect 17 0 6 1;
#X connect 18 0 29 0;
#X connect 19 0 7 0;
#X connect 20 0 19 0;
#X connect 21 0 7 1;
#X connect 22 0 29 0;
#X connect 23 0 26 0;
#X connect 24 0 23 0;
#X connect 25 0 26 1;
#X connect 26 0 22 0;
#X connect 26 1 22 1;
#X connect 26 2 22 2;
#X connect 26 3 22 3;
#X connect 26 4 22 4;
#X connect 27 0 5 0;
#X connect 29 0 47 0;
#X connect 30 0 34 0;
#X connect 31 0 35 0;
#X connect 32 0 31 0;
#X connect 33 0 35 1;
#X connect 34 0 29 0;
#X connect 35 0 30 0;
#X connect 35 1 30 1;
#X connect 35 2 30 2;
#X connect 35 3 30 3;
#X connect 35 4 30 4;
#X connect 36 0 35 2;
#X connect 37 0 28 0;
#X connect 37 0 28 1;
#X connect 38 0 34 0;
#X connect 39 0 44 0;
#X connect 40 0 39 0;
#X connect 41 0 40 0;
#X connect 42 0 44 1;
#X connect 43 0 34 0;
#X connect 44 0 43 0;
#X connect 44 1 43 1;
#X connect 44 2 43 2;
#X connect 44 3 43 3;
#X connect 44 4 43 4;
#X connect 46 0 49 1;
#X connect 46 1 49 2;
#X connect 46 2 49 3;
#X connect 46 3 49 4;
#X connect 46 4 49 5;
#X connect 47 0 46 0;
#X connect 47 1 46 1;
#X connect 47 2 46 2;
#X connect 47 3 46 3;
#X connect 47 4 46 4;
#X connect 49 0 48 0;
#X connect 49 0 37 0;
|