-
Notifications
You must be signed in to change notification settings - Fork 2
/
zirk_id.pd
339 lines (339 loc) · 8.02 KB
/
zirk_id.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
#N canvas 357 256 878 673 10;
#X obj 442 344 switch~;
#X obj 457 293 loadbang;
#X msg 457 319 0;
#X obj 242 252 *~ 1;
#X obj 224 85 s \$0-mute;
#X obj 471 478 r \$0-position;
#X obj 492 501 r \$0-span;
#X obj 288 501 r \$0-span;
#X obj 265 478 r \$0-position;
#X obj 574 292 s \$0-report;
#N canvas 0 23 356 299 report 0;
#X obj 46 65 env~ 2048;
#X obj 46 166 change;
#X obj 46 217 spigot;
#X obj 46 39 inlet~;
#X obj 191 242 switch~;
#X msg 208 214 0;
#X obj 208 186 loadbang;
#X obj 191 121 r \$0-report;
#X obj 191 144 route level;
#X obj 46 242 outlet;
#X obj 46 193 - 100;
#X obj 46 90 int;
#X msg 46 140 0;
#X text 79 91 noise threshold;
#X obj 46 116 moses 5;
#X connect 0 0 11 0;
#X connect 1 0 10 0;
#X connect 2 0 9 0;
#X connect 3 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 2 1;
#X connect 8 0 4 0;
#X connect 10 0 2 0;
#X connect 11 0 14 0;
#X connect 12 0 1 0;
#X connect 14 0 12 0;
#X connect 14 1 1 0;
#X restore 363 405 pd report level;
#X obj 320 86 s \$0-directout;
#N canvas 653 372 435 505 algorithm 0;
#X obj 153 25 inlet;
#X obj 225 25 loadbang;
#X obj 192 305 t f b;
#X obj 192 332 until;
#X msg 235 333 0;
#X obj 192 358 f;
#X obj 222 359 + 1;
#X msg 222 382 \$1 0;
#X obj 172 410 route 0 1 2;
#X obj 46 283 sel 0;
#X obj 153 102 route VBAP vbap HOA hoa;
#X msg 225 53 vbap;
#X msg 153 128 1;
#X msg 220 128 2;
#X text 233 305 turn off algos;
#X text 182 160 save last algo;
#X text 13 305 output last algo;
#X msg 288 128 99;
#X msg 48 361 \$1;
#X obj 153 251 t a a b;
#X obj 75 411 change;
#X obj 75 464 s \$0-resend;
#X obj 243 462 s \$0-vbap;
#X msg 243 437 on \$1;
#X obj 315 462 s \$0-hoa;
#X msg 315 437 on \$1;
#X msg 75 438 bang;
#X text 223 75 choose algo;
#X text 317 128 none;
#X obj 48 385 sel 0;
#N canvas 144 384 360 280 hrtf 0;
#X msg 154 199 0 \$1;
#X obj 88 138 == 0;
#X obj 43 45 inlet;
#X obj 43 231 outlet;
#X obj 43 167 spigot 1;
#X obj 135 45 inlet;
#X obj 238 231 s \$0-hrtf;
#X msg 238 199 on \$1;
#X obj 135 100 t f f f;
#X text 36 16 bypass algoithm \, use hrtf;
#X obj 238 167 spigot 1;
#X connect 0 0 3 0;
#X connect 1 0 4 1;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 5 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 10 0;
#X connect 8 1 0 0;
#X connect 8 2 1 0;
#X connect 10 0 7 0;
#X restore 153 220 pd hrtf bypass;
#X obj 288 163 r \$0-algorithm;
#X obj 153 160 f 1;
#X obj 153 188 pack 1 1;
#X obj 288 192 route on;
#X obj 333 221 s \$0-hrtf;
#X msg 192 279 2;
#X connect 0 0 10 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 5 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 1 23 0;
#X connect 8 2 25 0;
#X connect 9 0 32 0;
#X connect 10 0 12 0;
#X connect 10 1 12 0;
#X connect 10 2 13 0;
#X connect 10 3 13 0;
#X connect 10 4 17 0;
#X connect 11 0 10 0;
#X connect 12 0 32 0;
#X connect 13 0 32 0;
#X connect 17 0 32 0;
#X connect 18 0 29 0;
#X connect 19 0 18 0;
#X connect 19 1 8 0;
#X connect 19 2 36 0;
#X connect 20 0 26 0;
#X connect 23 0 22 0;
#X connect 25 0 24 0;
#X connect 26 0 21 0;
#X connect 29 0 21 0;
#X connect 29 1 20 0;
#X connect 30 0 19 0;
#X connect 31 0 34 0;
#X connect 32 0 33 0;
#X connect 33 0 30 0;
#X connect 34 0 30 1;
#X connect 34 1 35 0;
#X connect 36 0 2 0;
#X restore 177 108 pd algorithm;
#N canvas 501 31 419 271 input 0;
#X obj 66 19 inlet;
#X obj 66 213 outlet~;
#X obj 66 133 list prepend set;
#X obj 66 159 list trim;
#X obj 66 102 makefilename \$0-noinput;
#X obj 66 185 receive~ \$0-noinput;
#X obj 228 185 send~ \$0-noinput;
#X obj 228 103 makefilename zirk_input%d;
#X obj 66 74 sel 0;
#X obj 66 47 route float none;
#X msg 112 74 0;
#X connect 0 0 9 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X connect 7 0 2 0;
#X connect 8 0 4 0;
#X connect 8 1 7 0;
#X connect 9 0 8 0;
#X connect 9 1 10 0;
#X connect 9 2 2 0;
#X connect 10 0 4 0;
#X restore 34 191 pd input;
#X obj 513 545 r \$0-hoa;
#X obj 311 545 r \$0-vbap;
#N canvas 169 23 285 168 print 0;
#X obj 44 37 inlet;
#X obj 44 92 list trim;
#X obj 44 118 print zirk_id \$1;
#X obj 44 67 list prepend unknown message:;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 3 0 1 0;
#X restore 763 138 pd print error;
#X obj 34 22 inlet;
#X obj 393 638 outlet;
#X obj 611 267 s \$0-vbap;
#X obj 242 571 zirk_vbap \$2;
#X obj 450 570 zirk_hoa \$2;
#X obj 649 244 s \$0-hoa;
#X obj 463 111 + 100;
#X obj 463 136 dbtorms;
#X obj 463 163 t f;
#X obj 463 85 route db gain float;
#X obj 574 111 route report vbap hoa optim hrtf;
#N canvas 947 39 467 266 direct 0;
#X obj 110 148 list prepend set;
#X obj 110 175 list trim;
#X obj 110 35 r \$0-directout;
#X obj 49 35 inlet~;
#X obj 110 119 makefilename \$0-nooutput;
#X obj 246 206 catch~ \$0-nooutput;
#X obj 110 205 throw~ \$0-nooutput;
#X obj 49 205 outlet~;
#X obj 271 119 makefilename zirk_output%d;
#X obj 110 91 sel 0;
#X obj 110 64 route float none;
#X msg 156 91 0;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 10 0;
#X connect 3 0 7 0;
#X connect 3 0 6 0;
#X connect 4 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 4 0;
#X connect 9 1 8 0;
#X connect 10 0 9 0;
#X connect 10 1 11 0;
#X connect 10 2 0 0;
#X connect 11 0 4 0;
#X restore 242 405 pd direct output;
#X obj 97 546 r \$0-hrtf;
#X obj 71 479 r \$0-position;
#X obj 46 571 zirk_hrtf;
#N canvas 0 23 325 226 position 0;
#X obj 167 55 inlet;
#X obj 167 89 t a a;
#X obj 69 175 s \$0-position;
#X text 49 22 store and resend last position;
#X obj 69 55 r \$0-resend;
#X obj 69 128 list 0 0 0;
#X connect 0 0 1 0;
#X connect 1 0 5 1;
#X connect 1 1 2 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X restore 81 163 pd position;
#N canvas 0 23 325 226 span 0;
#X obj 167 55 inlet;
#X obj 69 55 r \$0-resend;
#X obj 69 128 f;
#X obj 167 89 t f f;
#X obj 69 175 s \$0-span;
#X text 49 22 store and resend last span value;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 3 1 4 0;
#X restore 129 135 pd span;
#X text 591 84 redirect optim messages to hoa;
#X text 94 28 catch older muted & directout messages;
#X obj 34 57 route input position span algorithm mute muted directoutput
directout on, f 72;
#X obj 687 187 list prepend optim;
#X obj 363 432 outlet;
#N canvas 0 23 450 300 report 0;
#X obj 147 157 spigot;
#X obj 180 91 r \$0-report;
#X obj 147 182 outlet;
#X obj 147 62 inlet;
#X obj 180 118 route current;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 3 0 0 0;
#X connect 4 0 0 1;
#X restore 393 610 pd report current;
#X obj 687 214 list trim;
#X obj 442 271 pipe 5;
#X obj 415 243 t f f;
#N canvas 0 23 375 278 mute 0;
#X obj 64 185 *~;
#X obj 235 92 == 0;
#X obj 235 62 r \$0-mute;
#X obj 235 151 line~;
#X msg 142 92 \$1 5;
#X obj 142 119 spigot 1;
#X obj 64 61 inlet~;
#X obj 64 212 outlet~;
#X obj 142 62 inlet;
#X text 172 186 5 ms line declick;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 1 0 5 1;
#X connect 2 0 1 0;
#X connect 3 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X connect 8 0 4 0;
#X restore 242 345 pd mute;
#X text 349 320 5 ms declick;
#X obj 725 163 s \$0-algorithm;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 43 0;
#X connect 5 0 21 1;
#X connect 6 0 21 2;
#X connect 7 0 20 2;
#X connect 8 0 20 1;
#X connect 10 0 38 0;
#X connect 13 0 3 0;
#X connect 14 0 21 3;
#X connect 15 0 20 3;
#X connect 17 0 36 0;
#X connect 20 0 39 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 3 1;
#X connect 26 0 23 0;
#X connect 26 1 23 0;
#X connect 26 2 25 0;
#X connect 26 3 27 0;
#X connect 27 0 9 0;
#X connect 27 1 19 0;
#X connect 27 2 22 0;
#X connect 27 3 37 0;
#X connect 27 4 45 0;
#X connect 27 5 16 0;
#X connect 28 0 20 0;
#X connect 28 0 21 0;
#X connect 28 0 31 0;
#X connect 29 0 31 2;
#X connect 30 0 31 1;
#X connect 36 0 13 0;
#X connect 36 1 32 0;
#X connect 36 2 33 0;
#X connect 36 3 12 0;
#X connect 36 4 4 0;
#X connect 36 5 4 0;
#X connect 36 6 11 0;
#X connect 36 7 11 0;
#X connect 36 8 42 0;
#X connect 36 9 26 0;
#X connect 37 0 40 0;
#X connect 39 0 18 0;
#X connect 40 0 22 0;
#X connect 41 0 0 0;
#X connect 42 0 43 1;
#X connect 42 1 41 0;
#X connect 43 0 28 0;
#X connect 43 0 10 0;