SpatDIFSpatializationServer/HOAModule.pd at master · SpatDIF/SpatDIFSpatializationServer · GitHub

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
#N canvas 622 93 1045 727 10;
#X obj 26 73 HOADispatcher \$1 1;
#X obj 321 17 inlet~;
#X obj 475 73 inlet;
#X obj 581 68 inlet;
#X obj 839 49 inlet;
#X text 836 24 on / off;
#X obj 581 98 spigot;
#X obj 475 97 spigot;
#X obj 322 54 *~;
#X obj 322 83 send~ HOASource\$1;
#X obj 533 322 unpack 0 0;
#X obj 533 352 + 1;
#X obj 533 378 pack 0 0;
#X obj 533 404 s HOAGain\$1;
#X obj 324 124 r SpeakerDef;
#X obj 323 360 list split 1;
#X obj 330 484 list prepend dimension;
#X obj 287 627 list prepend speakers;
#X obj 434 416 t l l;
#X obj 487 489 list length;
#X obj 591 482 sel 2 3;
#X obj 490 545 /;
#X text 532 567 numspakers;
#N canvas 60 125 390 482 calcOrder 0;
#X obj 75 47 inlet;
#X obj 250 50 inlet;
#X text 121 51 dimension;
#X obj 141 192 spigot;
#X obj 173 169 == 2;
#X obj 241 193 spigot;
#X obj 273 170 == 3;
#X obj 144 241 - 1;
#X obj 144 267 / 2;
#X obj 190 323 i;
#X obj 244 258 sqrt;
#X obj 244 284 - 1;
#X obj 192 365 outlet;
#X connect 0 0 4 0;
#X connect 0 0 6 0;
#X connect 1 0 5 0;
#X connect 1 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 1;
#X connect 5 0 10 0;
#X connect 6 0 5 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 12 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X restore 430 594 pd calcOrder;
#X obj 430 626 list prepend order;
#X obj 433 677 list trim;
#X obj 621 321 print zirkhoa;
#X obj 436 708 print HOA_Speakers;
#X obj 574 520 f 1;
#X obj 604 520 f 2;
#X obj 323 325 t l l;
#X msg 383 417 \$1;
#N canvas 750 318 441 404 degreeToRadian 0;
#X obj -340 197 list split 1;
#X obj -340 114 until;
#X obj -340 152 list append;
#X obj -210 197 bang;
#X obj -341 222 / 180;
#X obj -340 256 * 3.14159;
#X obj -173 271 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144
-1 -1;
#X obj -217 315 t l;
#X obj -324 293 list prepend;
#X obj -363 332 list append;
#X obj -373 48 inlet;
#X obj -314 81 t b l b;
#X obj -380 73 t b l;
#X obj -360 362 outlet;
#X connect 0 0 4 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 8 1;
#X connect 7 0 8 1;
#X connect 8 0 7 0;
#X connect 8 0 9 1;
#X connect 9 0 13 0;
#X connect 10 0 12 0;
#X connect 11 0 1 0;
#X connect 11 1 2 1;
#X connect 11 2 6 0;
#X connect 12 0 9 0;
#X connect 12 1 11 0;
#X restore 288 598 pd degreeToRadian;
#X obj 475 211 / 180;
#X obj 581 154 f 1;
#X obj 475 157 unpack 0 0;
#X obj 543 210 / 180;
#X obj 543 236 * 3.14159;
#X obj 475 260 pack 0 0;
#X obj 581 183 - 0;
#X obj 581 127 t b f;
#X obj 475 236 * -3.14159;
#X obj 475 183 - 90;
#X msg 382 183 \$1;
#X obj 324 149 t a a;
#X obj 384 229 == 2;
#X obj 384 203 t f f;
#X obj 418 229 == 3;
#X obj 384 255 ||;
#X obj 324 296 spigot;
#X obj 384 280 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 677 18 inlet;
#X text 676 -1 optim;
#X obj 680 184 list prepend optim;
#X obj 680 216 list trim;
#X obj 839 127 switch~;
#X obj 839 95 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 911 77 0;
#X obj 911 52 loadbang;
#X obj 26 92 HOADispatcher \$1 2;
#X obj 26 111 HOADispatcher \$1 3;
#X obj 26 130 HOADispatcher \$1 4;
#X obj 26 149 HOADispatcher \$1 5;
#X obj 26 168 HOADispatcher \$1 6;
#X obj 26 187 HOADispatcher \$1 7;
#X obj 26 206 HOADispatcher \$1 8;
#X obj 26 225 HOADispatcher \$1 9;
#X obj 26 244 HOADispatcher \$1 10;
#X obj 26 263 HOADispatcher \$1 11;
#X obj 26 282 HOADispatcher \$1 12;
#X obj 26 301 HOADispatcher \$1 13;
#X obj 26 320 HOADispatcher \$1 14;
#X obj 26 339 HOADispatcher \$1 15;
#X obj 26 358 HOADispatcher \$1 16;
#X obj 26 377 HOADispatcher \$1 17;
#X obj 26 396 HOADispatcher \$1 18;
#X obj 26 415 HOADispatcher \$1 19;
#X obj 26 434 HOADispatcher \$1 20;
#X obj 26 453 HOADispatcher \$1 21;
#X obj 26 472 HOADispatcher \$1 22;
#X obj 26 491 HOADispatcher \$1 23;
#X obj 26 510 HOADispatcher \$1 24;
#X obj 26 529 HOADispatcher \$1 25;
#X obj 26 548 HOADispatcher \$1 26;
#X obj 26 567 HOADispatcher \$1 27;
#X obj 26 586 HOADispatcher \$1 28;
#X obj 26 605 HOADispatcher \$1 29;
#X obj 26 624 HOADispatcher \$1 30;
#X obj 26 643 HOADispatcher \$1 31;
#X obj 26 662 HOADispatcher \$1 32;
#X obj 154 74 HOADispatcher \$1 33;
#X obj 154 93 HOADispatcher \$1 34;
#X obj 154 112 HOADispatcher \$1 35;
#X obj 154 131 HOADispatcher \$1 36;
#X obj 154 150 HOADispatcher \$1 37;
#X obj 154 169 HOADispatcher \$1 38;
#X obj 154 188 HOADispatcher \$1 39;
#X obj 154 207 HOADispatcher \$1 40;
#X obj 154 226 HOADispatcher \$1 41;
#X obj 154 245 HOADispatcher \$1 42;
#X obj 154 264 HOADispatcher \$1 43;
#X obj 154 283 HOADispatcher \$1 44;
#X obj 154 302 HOADispatcher \$1 45;
#X obj 154 321 HOADispatcher \$1 46;
#X obj 154 340 HOADispatcher \$1 47;
#X obj 154 359 HOADispatcher \$1 48;
#X obj 154 378 HOADispatcher \$1 49;
#X obj 154 397 HOADispatcher \$1 50;
#X obj 154 417 HOADispatcher \$1 51;
#X obj 154 435 HOADispatcher \$1 52;
#X obj 154 454 HOADispatcher \$1 53;
#X obj 154 473 HOADispatcher \$1 54;
#X obj 154 492 HOADispatcher \$1 55;
#X obj 154 511 HOADispatcher \$1 56;
#X obj 154 530 HOADispatcher \$1 57;
#X obj 154 549 HOADispatcher \$1 58;
#X obj 154 568 HOADispatcher \$1 59;
#X obj 154 587 HOADispatcher \$1 60;
#X obj 154 606 HOADispatcher \$1 61;
#X obj 154 625 HOADispatcher \$1 62;
#X obj 154 644 HOADispatcher \$1 63;
#X obj 154 663 HOADispatcher \$1 64;
#X obj 475 118 xyz2aed;
#X connect 1 0 8 0;
#X connect 2 0 7 0;
#X connect 3 0 6 0;
#X connect 4 0 6 1;
#X connect 4 0 7 1;
#X connect 4 0 8 1;
#X connect 4 0 56 0;
#X connect 6 0 40 0;
#X connect 7 0 122 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 10 1 12 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 14 0 44 0;
#X connect 15 1 18 0;
#X connect 16 0 25 0;
#X connect 17 0 25 0;
#X connect 18 0 32 0;
#X connect 18 1 19 0;
#X connect 19 0 21 0;
#X connect 20 0 28 0;
#X connect 20 1 29 0;
#X connect 21 0 23 1;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 28 0 21 1;
#X connect 29 0 21 1;
#X connect 30 0 15 0;
#X connect 30 1 31 0;
#X connect 30 1 20 0;
#X connect 31 0 16 0;
#X connect 31 0 23 0;
#X connect 32 0 17 0;
#X connect 33 0 41 0;
#X connect 34 0 39 0;
#X connect 35 0 42 0;
#X connect 35 1 36 0;
#X connect 36 0 37 0;
#X connect 37 0 38 1;
#X connect 40 0 34 0;
#X connect 40 1 39 1;
#X connect 41 0 38 0;
#X connect 42 0 33 0;
#X connect 43 0 46 0;
#X connect 44 0 49 0;
#X connect 44 1 43 0;
#X connect 45 0 48 0;
#X connect 46 0 45 0;
#X connect 46 1 47 0;
#X connect 47 0 48 1;
#X connect 48 0 50 0;
#X connect 49 0 30 0;
#X connect 50 0 49 1;
#X connect 51 0 53 0;
#X connect 53 0 54 0;
#X connect 56 0 55 0;
#X connect 57 0 56 0;
#X connect 58 0 57 0;
#X connect 122 0 35 0;