aboutsummaryrefslogtreecommitdiff
path: root/effects/rrad.filt~.pd
blob: a591d4f6f137ffc8a4d9f0e923c8fee01f77baac (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
#N canvas 415 35 191 107 10;
#N canvas 757 353 450 300 noise 0;
#X obj 215 52 == 1;
#X obj 151 51 == 0;
#X obj 106 228 outlet~;
#X obj 257 79 inlet;
#X obj 214 4 r \$0-filt_type;
#X obj 33 52 inlet~;
#N canvas 358 389 450 300 hip 0;
#X obj 130 69 inlet~;
#X obj 130 207 outlet~;
#X obj 251 70 inlet;
#X obj 251 119 switch~ 0;
#X obj 130 114 hip~ 4000;
#X obj 188 70 inlet;
#X obj 352 74 r \$0-Q;
#X obj 225 157 hp2~ 4000 0.707 10;
#X connect 0 0 4 0;
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 5 0 4 1;
#X connect 5 0 7 1;
#X connect 6 0 7 2;
#X connect 7 0 1 0;
#X restore 91 146 pd hip;
#N canvas 358 389 450 300 lop 0;
#X obj 130 69 inlet~;
#X obj 130 168 outlet~;
#X obj 251 70 inlet;
#X obj 188 70 inlet;
#X obj 130 114 lop~ 4000;
#X obj 251 120 switch~ 1;
#X obj 350 83 r \$0-Q;
#X obj 172 146 lp2~ 4000 0.707 20;
#X connect 0 0 4 0;
#X connect 0 0 7 0;
#X connect 2 0 5 0;
#X connect 3 0 4 1;
#X connect 3 0 7 1;
#X connect 6 0 7 2;
#X connect 7 0 1 0;
#X restore 158 145 pd lop;
#N canvas 201 195 450 300 bap 0;
#X obj 130 69 inlet~;
#X obj 130 168 outlet~;
#X obj 251 70 inlet;
#X obj 188 70 inlet;
#X obj 130 114 lop~ 4000;
#X obj 350 83 r \$0-Q;
#X obj 172 146 bpq2~ 400 0.707 20;
#X obj 251 120 switch~ 0;
#X connect 0 0 4 0;
#X connect 0 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 4 1;
#X connect 3 0 6 1;
#X connect 5 0 6 2;
#X connect 6 0 1 0;
#X restore 245 147 pd bap;
#X obj 262 52 == 2;
#X obj 215 24 unpack 0 0;
#N canvas 0 0 450 300 off 0;
#X obj 251 70 inlet~;
#X obj 247 170 outlet~;
#X obj 318 66 r \$0-wet;
#X obj 308 120 line~;
#X obj 260 118 *~;
#X msg 312 93 \$1 100;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 4 1;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X restore 38 146 pd off;
#X obj 311 206 s \$0-wet;
#X obj 313 152 f;
#X obj 313 80 select 0 1;
#X obj 311 183 f;
#X obj 347 132 r \$0-wet;
#X connect 0 0 7 2;
#X connect 1 0 6 2;
#X connect 3 0 6 1;
#X connect 3 0 7 1;
#X connect 3 0 8 1;
#X connect 4 0 10 0;
#X connect 5 0 7 0;
#X connect 5 0 6 0;
#X connect 5 0 8 0;
#X connect 5 0 11 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 8 0 2 0;
#X connect 9 0 8 2;
#X connect 10 0 1 0;
#X connect 10 0 0 0;
#X connect 10 0 9 0;
#X connect 11 0 2 0;
#X connect 13 0 15 1;
#X connect 14 0 13 0;
#X connect 14 1 15 0;
#X connect 15 0 12 0;
#X connect 16 0 13 1;
#X restore 199 133 pd noise;
#X obj 250 110 r \$0-filt_freq;
#X obj 144 101 inlet~;
#X obj 163 170 outlet~;
#X obj 232 77 s \$0-filt_type;
#X obj 42 76 hradio 15 1 0 3 \$0-filt_type \$0-filt_type hip/lop/bp
0 -6 0 8 -262144 -1 -1 2;
#X obj 232 36 loadbang;
#X obj 14 40 hsl 64 15 0 127 0 0 \$0-freq \$0-freq freq -2 -6 0 8 -262144
-1 -1 5100 1;
#X obj 317 -4 r \$0-freq;
#X obj 317 21 mtof;
#X obj 317 43 s \$0-filt_freq;
#X obj 353 68 inlet;
#X obj 356 89 s \$0-freq;
#X obj 102 40 hsl 64 15 0 1 0 0 \$0-wet \$0-wet dry-level -2 -6 0 8
-262144 -1 -1 6300 1;
#N canvas 803 359 450 300 noise 0;
#X obj 215 52 == 1;
#X obj 151 51 == 0;
#X obj 106 228 outlet~;
#X obj 257 79 inlet;
#X obj 214 4 r \$0-filt_type;
#X obj 33 52 inlet~;
#N canvas 358 389 450 300 hip 0;
#X obj 130 69 inlet~;
#X obj 130 207 outlet~;
#X obj 251 70 inlet;
#X obj 251 119 switch~ 0;
#X obj 130 114 hip~ 4000;
#X obj 188 70 inlet;
#X obj 352 74 r \$0-Q;
#X obj 225 157 hp2~ 4000 0.707 10;
#X connect 0 0 4 0;
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 5 0 4 1;
#X connect 5 0 7 1;
#X connect 6 0 7 2;
#X connect 7 0 1 0;
#X restore 91 146 pd hip;
#N canvas 358 389 450 300 lop 0;
#X obj 130 69 inlet~;
#X obj 130 168 outlet~;
#X obj 251 70 inlet;
#X obj 188 70 inlet;
#X obj 130 114 lop~ 4000;
#X obj 251 120 switch~ 1;
#X obj 350 83 r \$0-Q;
#X obj 172 146 lp2~ 4000 0.707 20;
#X connect 0 0 4 0;
#X connect 0 0 7 0;
#X connect 2 0 5 0;
#X connect 3 0 4 1;
#X connect 3 0 7 1;
#X connect 6 0 7 2;
#X connect 7 0 1 0;
#X restore 158 145 pd lop;
#N canvas 201 195 450 300 bap 0;
#X obj 130 69 inlet~;
#X obj 130 168 outlet~;
#X obj 251 70 inlet;
#X obj 188 70 inlet;
#X obj 130 114 lop~ 4000;
#X obj 350 83 r \$0-Q;
#X obj 172 146 bpq2~ 400 0.707 20;
#X obj 251 120 switch~ 0;
#X connect 0 0 4 0;
#X connect 0 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 4 1;
#X connect 3 0 6 1;
#X connect 5 0 6 2;
#X connect 6 0 1 0;
#X restore 245 147 pd bap;
#X obj 262 52 == 2;
#X obj 215 24 unpack 0 0;
#N canvas 0 0 450 300 off 0;
#X obj 251 70 inlet~;
#X obj 247 170 outlet~;
#X obj 318 66 r \$0-wet;
#X obj 308 120 line~;
#X obj 260 118 *~;
#X msg 312 93 \$1 100;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 4 1;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X restore 38 146 pd off;
#X connect 0 0 7 2;
#X connect 1 0 6 2;
#X connect 3 0 6 1;
#X connect 3 0 7 1;
#X connect 3 0 8 1;
#X connect 4 0 10 0;
#X connect 5 0 7 0;
#X connect 5 0 6 0;
#X connect 5 0 8 0;
#X connect 5 0 11 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 8 0 2 0;
#X connect 9 0 8 2;
#X connect 10 0 1 0;
#X connect 10 0 0 0;
#X connect 10 0 9 0;
#X connect 11 0 2 0;
#X restore 339 170 pd noise;
#X obj 390 147 r \$0-filt_freq;
#X obj 284 138 inlet~;
#X obj 303 207 outlet~;
#X msg 232 57 3;
#X msg 186 52 1;
#X obj 181 78 s \$0-wet;
#X obj 111 76 tgl 15 0 \$0-filt-on empty filter-on? 0 -6 0 8 -262144
-1 -1 0 1;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 6 0 18 0;
#X connect 6 0 19 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 12 0;
#X connect 14 0 17 0;
#X connect 15 0 14 1;
#X connect 16 0 14 0;
#X connect 18 0 4 0;
#X connect 19 0 20 0;
#X coords 0 0 1 1 180 80 1;