blob: a39887c98aec7a92624e3ed539c02f7b0e2d9746 (
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
|
#N canvas 22 22 973 526 10;
#X msg 454 136 100;
#X msg 489 139 1000;
#X msg 532 139 3000;
#X obj 305 182 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 0 22 450 300 (subpatch) 0;
#X array array101 100 float 0;
#X coords 0 1.1 99 -0.1 100 50 1;
#X restore 845 186 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array array102 100 float 0;
#X coords 0 1.1 99 -0.1 100 50 1;
#X restore 845 256 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array array103 100 float 0;
#X coords 0 1.1 99 -0.1 100 50 1;
#X restore 845 326 graph;
#X obj 203 309 tabwrite~ array101;
#X obj 250 355 tabwrite~ array103;
#X obj 225 332 tabwrite~ array102;
#N canvas 0 22 450 300 (subpatch) 0;
#X array array100 100 float 0;
#X coords 0 1.1 99 -0.1 100 50 1;
#X restore 845 116 graph;
#X obj 304 254 tabwrite~ array100;
#N canvas 0 22 450 300 dirac 0;
#X obj 103 44 inlet;
#X obj 103 65 t b b;
#X obj 71 100 del 2;
#X msg 126 112 1;
#X msg 70 122 0;
#X obj 92 151 biquad~ 0 0 1 -1 0;
#X obj 92 176 max~ 0;
#X obj 92 197 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X restore 212 222 pd dirac;
#X text 113 442 IEM KUG;
#X text 87 430 musil;
#X text 125 430 @;
#X text 133 430 iem.at;
#X text 96 452 Graz \, Austria;
#X text 46 419 (c) Thomas Musil 2000 - 2011;
#X obj 24 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X floatatom 24 110 5 0 0 0 - - -;
#X floatatom 42 93 5 0 0 0 - - -;
#N canvas 0 22 528 567 dsp 0;
#X obj 20 65 inlet;
#X obj 20 406 outlet;
#X msg 31 88 \; pd dsp \$1;
#X obj 20 199 cputime;
#X obj 20 178 t b b;
#X text 15 11 dsp;
#X text 59 65 1/0 = ON/OFF;
#X text 97 313 CPU-load;
#X obj 62 126 loadbang;
#X obj 20 126 sel 1;
#X text 64 12 turn dsp-kernel on & off \,;
#X obj 20 240 t f f;
#X obj 211 405 outlet;
#X text 65 408 average;
#X text 177 405 peak;
#X obj 211 154 f;
#X obj 146 179 > -1;
#X obj 169 155 f -1;
#X obj 179 91 t f b f;
#X obj 146 204 sel 1;
#X obj 192 132 f -1;
#X obj 20 154 metro 500;
#X obj 20 220 * 0.2;
#X text 74 37 -dsp-load in %;
#X text 65 24 measure average- and peak-;
#X obj 20 292 1p1z 0.1 0 0.9;
#X obj 20 315 * 100;
#X obj 20 360 int;
#X obj 20 338 + 0.499;
#X obj 20 383 * 0.01;
#X obj 246 207 r pd;
#X obj 246 231 route dsp;
#X text 245 318 to toggle input;
#X msg 246 283 \; dsp_tgl set \$1;
#X obj 247 341 r dsp_tgl;
#X obj 246 257 route float;
#X obj 146 227 del 3990;
#X text 179 455 IEM KUG;
#X text 153 443 musil;
#X text 190 443 @;
#X text 199 443 iem.at;
#X text 162 465 Graz \, Austria;
#X msg 275 108 \; pd audio-dialog 0 0 0 0 64 0 0 0 0 0 0 0 64 0 0 0
44100 \$1;
#X obj 275 81 inlet;
#X text 271 56 system delay time in ms;
#N canvas 0 22 486 468 once 0;
#X obj 89 162 spigot;
#X obj 34 59 inlet;
#X obj 89 111 t a b;
#X obj 126 140 f 1;
#X obj 89 194 t a b;
#X obj 119 216 f 0;
#X obj 89 247 outlet;
#X obj 207 56 inlet;
#X obj 207 79 bang;
#X obj 207 102 f 1;
#X text 8 6 once;
#X text 64 7 only the first message passes through;
#X text 29 37 message in;
#X text 29 289 message out (only once);
#X text 203 36 anything to init once;
#X obj 34 80 route bang;
#X obj 34 110 t b b;
#X obj 34 162 spigot;
#X obj 34 194 t b b;
#X text 98 377 IEM KUG;
#X text 73 363 musil;
#X text 110 365 @;
#X text 118 365 iem.at;
#X text 81 387 Graz \, Austria;
#X text 120 339 @;
#X text 128 339 iem.at;
#X text 33 338 (c) zmoelnig;
#X text 33 352 (c) Thomas Musil 2000 - 2011;
#X connect 0 0 4 0;
#X connect 1 0 15 0;
#X connect 2 0 0 0;
#X connect 2 1 3 0;
#X connect 3 0 0 1;
#X connect 3 0 17 1;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 3 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 3 1;
#X connect 15 0 16 0;
#X connect 15 1 2 0;
#X connect 16 0 17 0;
#X connect 16 1 3 0;
#X connect 17 0 18 0;
#X connect 18 0 6 0;
#X connect 18 1 5 0;
#X restore 69 270 pd once;
#X text 112 430 (c) Thomas Musil 2000 - 2011;
#X connect 0 0 2 0;
#X connect 0 0 9 0;
#X connect 3 0 22 0;
#X connect 4 0 3 0;
#X connect 4 1 3 1;
#X connect 8 0 21 0;
#X connect 9 0 21 0;
#X connect 11 0 25 0;
#X connect 11 1 45 0;
#X connect 15 0 17 1;
#X connect 15 0 12 0;
#X connect 16 0 19 0;
#X connect 17 0 16 1;
#X connect 18 0 16 0;
#X connect 18 1 17 0;
#X connect 18 2 15 1;
#X connect 19 0 15 0;
#X connect 19 0 36 0;
#X connect 20 0 17 1;
#X connect 21 0 4 0;
#X connect 22 0 11 0;
#X connect 22 0 18 0;
#X connect 25 0 26 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 27 0;
#X connect 29 0 1 0;
#X connect 30 0 31 0;
#X connect 31 0 35 0;
#X connect 35 0 33 0;
#X connect 36 0 20 0;
#X connect 43 0 42 0;
#X connect 45 0 25 5;
#X connect 45 0 25 4;
#X restore 24 69 pd dsp;
#X text 420 465 3.) initial argument: <float> interpolation time in
ms;
#X text 421 449 2.) inital argument: <float> maximum delay time in
ms;
#X text 421 433 1.) inital argument: <float> number of delay taps =
outlets;
#X msg 428 194 time \$1;
#X floatatom 428 168 5 0 0 0 - - -;
#X msg 420 137 0;
#X text 20 146 <list> of n <float> delay times in ms;
#X text 472 174 interpolation time in ms;
#X msg 96 165 0.1 0.2 0.3;
#X msg 76 190 1.8 1.7 1.6;
#X obj 299 70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 300 117 sel 0 1;
#X obj 300 92 t f b;
#X msg 578 136 6000;
#N canvas 0 22 472 410 del_chain 0;
#X obj 158 58 inlet;
#X obj 128 341 outlet;
#X obj 207 86 del 10;
#X obj 207 106 del 990;
#X obj 207 127 del 990;
#X obj 207 148 del 990;
#X obj 207 169 del 990;
#X obj 207 190 del 990;
#X obj 207 211 del 990;
#X obj 207 233 del 990;
#X obj 207 254 del 990;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 7 0 1 0;
#X connect 8 0 1 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 1 0;
#X connect 10 0 1 0;
#X restore 326 154 pd del_chain;
#X text 21 13 n_delay2p_line~;
#X obj 202 283 n_delay2p_line~ 3 5 100;
#X text 161 12 One signal inlet and n delay tap outlets. Delay times
change every sample with a 2-point interpolation and are given in ms.
;
#X connect 0 0 27 0;
#X connect 1 0 27 0;
#X connect 2 0 27 0;
#X connect 3 0 7 0;
#X connect 3 0 9 0;
#X connect 3 0 8 0;
#X connect 3 0 11 0;
#X connect 3 0 12 0;
#X connect 12 0 11 0;
#X connect 12 0 39 0;
#X connect 19 0 22 0;
#X connect 22 0 20 0;
#X connect 22 1 21 0;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 0;
#X connect 31 0 39 0;
#X connect 32 0 39 0;
#X connect 33 0 35 0;
#X connect 34 0 31 0;
#X connect 34 1 32 0;
#X connect 35 0 34 0;
#X connect 35 1 36 0;
#X connect 35 1 37 0;
#X connect 36 0 27 0;
#X connect 37 0 3 0;
#X connect 39 0 7 0;
#X connect 39 1 9 0;
#X connect 39 2 8 0;
|
