1
#N canvas 25 22 868 421 12;
2
#N canvas 0 0 450 300 graph2 0;
3
#X array \$0-tab1 100 float 1;
4
#A 0 1.39998 1.39868 1.3942 1.39349 1.38496 1.3772 1.36745 1.35633
5
1.34208 1.32931 1.31817 1.30372 1.28879 1.27458 1.25944 1.24351 1.22874
6
1.21386 1.19924 1.18487 1.17063 1.15653 1.14284 1.13144 1.11914 1.10722
7
1.09603 1.08515 1.07479 1.06474 1.05519 1.04606 1.03715 1.02899 1.02092
8
1.0128 1.00624 0.999291 0.992705 0.986255 0.980081 0.974014 0.969307
9
0.964106 0.959111 0.954207 0.949901 0.945593 0.941227 0.937556 0.933778
10
0.930231 0.926681 0.923353 0.920059 0.917466 0.914627 0.911849 0.9092
11
0.906745 0.904264 0.901469 0.900065 0.898006 0.896023 0.893895 0.892373
12
0.890666 0.889038 0.887483 0.885924 0.884597 0.883215 0.881537 0.880075
13
0.879619 0.878522 0.877414 0.876234 0.87571 0.874819 0.873886 0.873124
14
0.87241 0.871807 0.870763 0.870512 0.869952 0.869465 0.868958 0.868403
15
0.86826 0.867939 0.866731 0.867094 0.867762 0.867796 0.864339 0.872811
17
#X coords 0 5 99 0 200 300 1;
18
#X restore 621 28 graph;
19
#X obj 29 245 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
21
#X floatatom 37 289 3 0 0 0 - - -;
22
#X text 676 334 frequency;
23
#N canvas 876 177 375 255 startup 0;
24
#X obj 22 24 loadbang;
25
#X obj 22 48 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
28
#X text 35 195 This subpatch loads initial;
29
#X text 31 219 values in number boxes.;
30
#X msg 22 91 \; \$1-pole 60 \; \$1-zero 20;
34
#X restore 289 390 pd startup;
35
#X floatatom 281 265 3 -99 99 0 - #0-pole -;
36
#X text 559 316 gain=0;
37
#X text 108 34 SHELVING FILTER;
38
#X obj 29 378 filter-graph2 \$0-tab1;
39
#X obj 29 266 filter-graph1 100 22050;
40
#X text 796 330 22050;
41
#X obj 232 314 rpole~;
43
#X floatatom 335 264 4 -100 100 0 - #0-zero -;
45
#X obj 231 346 rzero~;
49
#X text 16 58 This patch demonstrates using the raw filters \, rpole~
50
and rzero~ (raw \, real-valued one-pole and one-zero filters) \, to
51
make a shelving filter.;
52
#X text 14 109 If the pole is at p and the zero is at q \, the gain
53
at DC is (1-q)/(1-p) and the gain at Nyquist is (1+q)/(1+p). If the
54
pole location is close to plus or minus one \, this can give large
55
gains unless q is in the same vicinity. (try \, for example \, p=90%
57
#X text 11 191 The crossover region varies from DC to Nyquist as p
58
and q decrease from 100% to -100%.;
61
#X text 383 263 (in hundredths);
62
#X text 610 387 updated for Pd version 0.39;