-
Notifications
You must be signed in to change notification settings - Fork 0
/
rds~.pd
executable file
·392 lines (392 loc) · 8.56 KB
/
rds~.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
#N canvas 119 60 919 484 10;
#X obj 12 252 phasor~;
#X obj 12 385 cos~;
#X obj 42 324 cos~;
#X obj 42 346 *~;
#X obj 122 49 > 0;
#X obj 122 71 sel 1 0;
#X obj 180 329 *~;
#X obj 834 205 log~;
#X obj 834 227 /~;
#X obj 849 161 log~;
#X obj 834 183 sig~ 261.626;
#X obj 420 235 sig~ 261.626;
#X obj 420 257 /~;
#X obj 180 210 line~;
#X msg 180 188 1 \, 0 141213;
#X obj 122 115 s \$0-non-rds;
#X obj 141 93 s \$0-nof-rds;
#X obj 612 266 r \$0-non-rds;
#X obj 748 271 r \$0-nof-rds;
#X obj 195 307 *~ 0.24;
#X obj 180 252 pow~ 48;
#X obj 80 324 cos~;
#X obj 80 346 *~;
#X obj 250 210 line~;
#X obj 250 329 *~;
#X obj 80 302 *~ 6;
#X obj 250 252 pow~ 4;
#X msg 250 188 1 \, 0 3000;
#X obj 320 210 line~;
#X obj 320 329 *~;
#X obj 110 324 cos~;
#X obj 110 346 *~;
#X obj 110 302 *~ 20;
#X msg 320 188 1 \, 0 500;
#X obj 180 274 *~;
#X obj 250 274 *~;
#X obj 320 274 *~;
#X obj 420 290 min~ 1;
#X obj 265 307 *~ 0.0008;
#N canvas 0 22 507 447 env 0;
#X obj 163 73 unpack f f f;
#X obj 88 386 outlet~;
#X obj 163 259 -~;
#X obj 195 242 sig~ 1;
#X obj 195 264 -~;
#X obj 245 225 *~;
#X obj 163 281 *~;
#X obj 148 325 +~;
#X obj 163 303 /~;
#X obj 280 242 sig~ 1;
#X obj 280 264 -~;
#X obj 280 286 +~;
#X obj 88 198 sig~ 1;
#X obj 88 220 -~;
#X obj 88 242 *~;
#X obj 88 264 +~;
#X obj 131 247 *~;
#N canvas 0 22 234 183 <=~ 0;
#X obj 150 34 inlet~;
#X obj 45 34 inlet~;
#X obj 45 129 outlet~;
#N canvas 467 216 450 300 @hv_obj 0;
#X obj 217 60 inlet~;
#X obj 120 60 inlet~;
#X obj 170 183 outlet~;
#X connect 1 0 2 0;
#X restore 45 105 pd @hv_obj __and~f;
#X obj 150 83 sig~ 1;
#N canvas 715 101 191 233 @hv_obj 0;
#X obj 49 83 -~;
#X obj 50 109 clip~ -1e-37 0;
#X obj 49 32 inlet~;
#X obj 93 33 inlet~;
#X obj 50 174 outlet~;
#X obj 50 151 *~ 1e+37;
#X obj 49 58 min~;
#X obj 50 130 +~ 1e-37;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 2 0 0 1;
#X connect 3 0 6 1;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X restore 45 57 pd @hv_obj __lte~f;
#X connect 0 0 5 1;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 363 247 pd <=~;
#N canvas 0 22 255 189 >=~ 0;
#X obj 150 34 inlet~;
#X obj 45 34 inlet~;
#X obj 45 129 outlet~;
#N canvas 467 216 290 220 @hv_obj 0;
#X obj 158 52 inlet~;
#X obj 61 52 inlet~;
#X obj 61 136 outlet~;
#X obj 61 100 *~;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore 45 105 pd @hv_obj __and~f;
#X obj 150 83 sig~ 1;
#N canvas 249 541 148 189 @hv_obj 0;
#X obj 23 69 -~;
#X obj 23 94 clip~ -1e-37 0;
#X obj 23 18 inlet~;
#X obj 67 19 inlet~;
#X obj 23 159 outlet~;
#X obj 23 136 *~ 1e+37;
#X obj 23 44 min~;
#X obj 23 115 +~ 1e-37;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 0 1;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X restore 45 57 pd @hv_obj __gte~f;
#X connect 0 0 5 1;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 413 252 pd >=~;
#X obj 446 230 sig~ 0;
#X obj 363 269 *~;
#X obj 348 308 sig~ 1;
#X obj 348 330 -~;
#X obj 88 286 *~;
#X obj 148 347 *~;
#X obj 88 364 +~;
#X obj 163 156 line~;
#X obj 103 161 line~;
#X obj 12 12 inlet list;
#N canvas 349 167 179 187 hv.vline 0;
#X obj 12 34 t a b;
#X msg 75 56 0;
#N canvas 274 138 292 165 dbl-pipe 0;
#X obj 22 22 inlet;
#X obj 82 22 inlet;
#X obj 182 22 inlet;
#X obj 22 64 pipe 0;
#X obj 82 64 pipe 0;
#X obj 22 86 outlet;
#X obj 82 86 outlet;
#X obj 132 64 pipe 0;
#X obj 132 86 outlet;
#X obj 132 22 inlet;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 3 1;
#X connect 2 0 4 1;
#X connect 2 0 7 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 7 0;
#X restore 12 100 pd dbl-pipe;
#X obj 12 78 unpack f f f f;
#X obj 12 122 pack f f f;
#X obj 12 12 inlet;
#X obj 12 144 outlet;
#X connect 0 0 3 0;
#X connect 0 1 1 0;
#X connect 1 0 2 3;
#X connect 2 0 4 0;
#X connect 2 1 4 1;
#X connect 2 2 4 2;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 3 2 2 2;
#X connect 3 3 2 3;
#X connect 4 0 6 0;
#X connect 5 0 0 0;
#X restore 12 34 pd hv.vline;
#X obj 12 56 t a b a;
#X obj 325 90 sig~;
#X msg 103 139 0 \, 1 \$1;
#X obj 178 225 samphold~;
#X obj 12 78 unpack f f f;
#X msg 229 110 -1 \, 0 1;
#X obj 229 132 line~;
#X obj 245 247 exp~;
#X obj 325 247 exp~;
#X obj 325 68 inlet curve;
#X obj 144 381 s~ \$0-env-rds;
#X obj 178 203 r~ \$0-env-rds;
#X connect 0 0 26 0;
#X connect 0 2 31 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 6 1;
#X connect 5 0 37 0;
#X connect 6 0 8 0;
#X connect 7 0 24 0;
#X connect 8 0 7 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 23 0;
#X connect 16 0 15 1;
#X connect 17 0 20 0;
#X connect 18 0 20 1;
#X connect 19 0 17 1;
#X connect 19 0 18 1;
#X connect 20 0 11 1;
#X connect 20 0 22 1;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 22 0 24 1;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 1 0;
#X connect 25 0 40 0;
#X connect 26 0 2 0;
#X connect 26 0 16 1;
#X connect 27 0 5 0;
#X connect 27 0 13 1;
#X connect 27 0 16 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 34 0;
#X connect 30 1 35 0;
#X connect 30 2 0 0;
#X connect 31 0 5 1;
#X connect 31 0 18 0;
#X connect 31 0 17 0;
#X connect 31 0 38 0;
#X connect 32 0 27 0;
#X connect 33 0 2 1;
#X connect 33 0 7 0;
#X connect 33 0 14 1;
#X connect 34 1 32 0;
#X connect 35 0 36 0;
#X connect 36 0 33 1;
#X connect 37 0 4 1;
#X connect 38 0 10 1;
#X connect 39 0 31 0;
#X connect 41 0 33 0;
#X restore 612 310 pd env;
#X obj 180 232 lop~ 2000;
#X obj 250 232 lop~ 2000;
#X obj 320 232 lop~ 2000;
#X obj 12 200 lop~ 1000;
#X obj 633 217 /~ 261.626;
#X obj 612 332 pow~;
#X obj 12 407 *~ -1;
#X obj 12 429 *~;
#X obj 180 166 r \$0-non-rds;
#X obj 633 239 max~ 1;
#X msg 748 293 0 50 0;
#X obj 320 252 pow~ 8;
#X msg 612 288 1 1 0 \, 0 14213 -16 6;
#X obj 42 368 *~;
#X obj 181 67 s \$0-vel-rds;
#X obj 506 153 r \$0-vel-rds;
#X obj 506 175 - 1;
#X obj 506 197 / 126;
#X obj 506 285 + 100;
#X obj 154 39 sel 0;
#X msg 506 219 1 \$1;
#X obj 506 241 -;
#X obj 506 263 * -9;
#X obj 506 307 dbtorms;
#X msg 506 329 \$1 1;
#X obj 506 351 line~;
#X obj 556 285 + 100;
#X obj 556 307 dbtorms;
#X msg 556 329 \$1 1;
#X obj 556 351 line~;
#X obj 110 368 *~;
#X obj 556 263 * -12;
#X obj 834 249 cos~;
#X obj 834 271 /~ 2;
#X obj 834 293 +~ 0.5;
#X obj 834 315 /~ 2;
#X obj 612 354 *~;
#X obj 834 337 +~ 0.5;
#X obj 612 376 *~;
#X obj 612 414 lop~ 10000;
#X obj 335 307 *~ 0.001;
#X obj 12 451 outlet~;
#X obj 12 144 inlet~ frequency;
#X obj 122 12 inlet velocity;
#X connect 0 0 2 0;
#X connect 0 0 25 0;
#X connect 0 0 32 0;
#X connect 0 0 1 0;
#X connect 1 0 46 0;
#X connect 2 0 3 0;
#X connect 3 0 53 0;
#X connect 4 0 5 0;
#X connect 5 0 15 0;
#X connect 5 1 16 0;
#X connect 6 0 3 1;
#X connect 7 0 8 0;
#X connect 8 0 72 0;
#X connect 9 0 8 1;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 12 0 36 1;
#X connect 12 0 35 1;
#X connect 12 0 34 1;
#X connect 12 0 37 0;
#X connect 13 0 40 0;
#X connect 14 0 13 0;
#X connect 17 0 52 0;
#X connect 18 0 50 0;
#X connect 19 0 6 1;
#X connect 20 0 34 0;
#X connect 21 0 22 0;
#X connect 22 0 53 0;
#X connect 23 0 41 0;
#X connect 24 0 22 1;
#X connect 25 0 21 0;
#X connect 26 0 35 0;
#X connect 27 0 23 0;
#X connect 28 0 42 0;
#X connect 29 0 31 1;
#X connect 30 0 31 0;
#X connect 31 0 70 0;
#X connect 32 0 30 0;
#X connect 33 0 28 0;
#X connect 34 0 6 0;
#X connect 35 0 24 0;
#X connect 36 0 29 0;
#X connect 37 0 19 0;
#X connect 37 0 38 0;
#X connect 38 0 24 1;
#X connect 39 0 45 0;
#X connect 40 0 20 0;
#X connect 41 0 26 0;
#X connect 42 0 51 0;
#X connect 43 0 0 0;
#X connect 43 0 12 1;
#X connect 43 0 44 0;
#X connect 44 0 49 0;
#X connect 44 0 80 0;
#X connect 45 0 76 0;
#X connect 46 0 47 0;
#X connect 47 0 81 0;
#X connect 48 0 14 0;
#X connect 48 0 27 0;
#X connect 48 0 33 0;
#X connect 49 0 45 1;
#X connect 50 0 39 0;
#X connect 51 0 36 0;
#X connect 52 0 39 0;
#X connect 53 0 1 0;
#X connect 55 0 56 0;
#X connect 56 0 57 0;
#X connect 57 0 60 0;
#X connect 58 0 63 0;
#X connect 59 1 54 0;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 71 0;
#X connect 62 0 58 0;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 65 0 53 1;
#X connect 66 0 67 0;
#X connect 67 0 68 0;
#X connect 68 0 69 0;
#X connect 69 0 70 1;
#X connect 69 0 78 1;
#X connect 70 0 1 0;
#X connect 71 0 66 0;
#X connect 72 0 73 0;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 75 0 77 0;
#X connect 76 0 78 0;
#X connect 77 0 76 1;
#X connect 78 0 79 0;
#X connect 79 0 47 1;
#X connect 80 0 29 1;
#X connect 82 0 43 0;
#X connect 82 0 9 0;
#X connect 83 0 4 0;
#X connect 83 0 59 0;