blob: 3cfa683a7350def2aa5a3e03672d775f1857fd7a (
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
|
#N canvas 772 367 667 473 10;
#X text 14 413 Version: 2007-09-15;
#X text 15 430 Author: Roman Haefeli;
#X text 15 394 taken and modified from 3.audio.examples/H12.peaking.pd
;
#N canvas 212 395 643 406 filterl 0;
#X obj 76 246 cpole~;
#X obj 77 291 czero~;
#X obj 343 185 *~ 0.01;
#X obj 398 185 *~ 0.01;
#X obj 361 146 cos~;
#X obj 398 147 cos~;
#X obj 398 125 -~ 0.25;
#X obj 378 42 samplerate~;
#X obj 362 64 /~;
#X obj 378 19 loadbang;
#X obj 76 15 inlet~;
#X obj 77 319 outlet~;
#X obj 147 212 *~;
#X obj 175 213 *~;
#N canvas 497 504 214 352 \$0-lookuptable 0;
#X obj 52 125 *~ -0.1;
#X obj 52 146 expr~ exp($v1);
#X obj 52 167 *~ -1;
#X obj 52 189 +~ 0.9999;
#X obj 52 104 line~;
#X msg 52 83 0.001 \, 100 1000;
#X obj 8 49 t b b b;
#X obj 30 226 tabwrite~ \$0-lookup1;
#X obj 8 272 del 1000;
#X obj 8 317 switch~;
#X obj 8 292 0;
#X obj 8 250 t b b;
#X obj 38 294 1;
#X obj 8 14 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 11 0;
#X connect 6 1 7 0;
#X connect 6 2 5 0;
#X connect 8 0 10 0;
#X connect 10 0 9 0;
#X connect 11 0 8 0;
#X connect 11 1 12 0;
#X connect 12 0 9 0;
#X connect 13 0 6 0;
#X restore 305 276 pd \$0-lookuptable;
#X obj 305 298 table \$0-lookup1 44100;
#X obj 191 115 tabread~ \$0-lookup1;
#X obj 192 93 *~ 401;
#X obj 132 -20 mtof~;
#X obj 210 -29 sig~ 30;
#X floatatom 210 -54 5 0 0 0 - - -;
#X obj 134 -87 osc~ 2;
#X obj 134 -64 +~ 4;
#X obj 133 -42 *~ 24;
#X text 209 -73 Q;
#X text 133 -105 peakfreq;
#X obj 180 -85 inlet;
#X obj 223 -85 inlet;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 11 0;
#X connect 2 0 1 2;
#X connect 3 0 1 3;
#X connect 4 0 2 0;
#X connect 4 0 12 0;
#X connect 5 0 3 0;
#X connect 5 0 13 0;
#X connect 6 0 5 0;
#X connect 7 0 8 1;
#X connect 8 0 6 0;
#X connect 8 0 4 0;
#X connect 9 0 7 0;
#X connect 10 0 0 0;
#X connect 12 0 0 2;
#X connect 13 0 0 3;
#X connect 16 0 12 1;
#X connect 16 0 13 1;
#X connect 17 0 16 0;
#X connect 18 0 8 0;
#X connect 19 0 17 0;
#X connect 20 0 19 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 23 0 18 0;
#X connect 26 0 21 0;
#X connect 27 0 19 0;
#X restore 133 93 pd filterl;
#X obj 88 129 tof/crossfade~ 2;
#X obj 96 195 outlet~;
#X obj 146 195 outlet~;
#X obj 55 12 inlet~;
#X obj 105 12 inlet~;
#X obj 405 72 inlet params;
#X obj 405 118 print PARAM_NOTFOUND;
#X obj 207 128 tof/param /wet 0 /g slider 0 1;
#X obj 207 171 line~;
#X msg 207 150 \$1 5;
#X obj 165 14 tof/param /frequency 2 /g slider 1 1000;
#X obj 175 34 tof/param /q 0 /g slider 0 100;
#N canvas 213 427 643 406 filterl 0;
#X obj 76 246 cpole~;
#X obj 77 291 czero~;
#X obj 343 185 *~ 0.01;
#X obj 398 185 *~ 0.01;
#X obj 361 146 cos~;
#X obj 398 147 cos~;
#X obj 398 125 -~ 0.25;
#X obj 378 42 samplerate~;
#X obj 362 64 /~;
#X obj 378 19 loadbang;
#X obj 76 15 inlet~;
#X obj 77 319 outlet~;
#X obj 147 212 *~;
#X obj 175 213 *~;
#N canvas 808 267 214 352 \$0-lookuptable 0;
#X obj 52 125 *~ -0.1;
#X obj 52 146 expr~ exp($v1);
#X obj 52 167 *~ -1;
#X obj 52 189 +~ 0.9999;
#X obj 52 104 line~;
#X msg 52 83 0.001 \, 100 1000;
#X obj 8 49 t b b b;
#X obj 8 272 del 1000;
#X obj 8 317 switch~;
#X obj 8 292 0;
#X obj 8 250 t b b;
#X obj 38 294 1;
#X obj 8 14 loadbang;
#X obj 30 226 tabwrite~ \$0-lookup2;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 13 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 6 1 13 0;
#X connect 6 2 5 0;
#X connect 7 0 9 0;
#X connect 9 0 8 0;
#X connect 10 0 7 0;
#X connect 10 1 11 0;
#X connect 11 0 8 0;
#X connect 12 0 6 0;
#X restore 305 276 pd \$0-lookuptable;
#X obj 192 93 *~ 401;
#X obj 132 -20 mtof~;
#X obj 210 -29 sig~ 30;
#X floatatom 210 -54 5 0 0 0 - - -;
#X obj 134 -87 osc~ 2;
#X obj 134 -64 +~ 4;
#X obj 133 -42 *~ 24;
#X text 209 -73 Q;
#X text 133 -105 peakfreq;
#X obj 180 -85 inlet;
#X obj 223 -85 inlet;
#X obj 305 298 table \$0-lookup2 44100;
#X obj 191 115 tabread~ \$0-lookup2;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 11 0;
#X connect 2 0 1 2;
#X connect 3 0 1 3;
#X connect 4 0 2 0;
#X connect 4 0 12 0;
#X connect 5 0 3 0;
#X connect 5 0 13 0;
#X connect 6 0 5 0;
#X connect 7 0 8 1;
#X connect 8 0 6 0;
#X connect 8 0 4 0;
#X connect 9 0 7 0;
#X connect 10 0 0 0;
#X connect 12 0 0 2;
#X connect 13 0 0 3;
#X connect 15 0 27 0;
#X connect 16 0 8 0;
#X connect 17 0 15 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 16 0;
#X connect 24 0 19 0;
#X connect 25 0 17 0;
#X connect 27 0 12 1;
#X connect 27 0 13 1;
#X restore 203 93 pd filterl;
#X obj 386 200 iemguts/propertybang;
#X obj 387 229 tof/param gui;
#X obj 405 94 tof/param route;
#X connect 3 0 4 2;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 7 0 4 0;
#X connect 7 0 3 0;
#X connect 8 0 4 1;
#X connect 8 0 16 0;
#X connect 9 0 19 0;
#X connect 11 0 13 0;
#X connect 12 0 4 4;
#X connect 13 0 12 0;
#X connect 14 0 3 1;
#X connect 14 0 16 1;
#X connect 15 0 3 2;
#X connect 15 0 16 2;
#X connect 16 0 4 3;
#X connect 17 0 18 0;
#X connect 19 0 10 0;
|
