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
|
#N canvas 117 18 719 674 10;
#X obj 47 249 print;
#X text 291 171 1.arg: <float> ambisonic order;
#X text 306 180 (1 .. 12 for 2 dimensional use);
#X obj 47 226 round_zero 1e-006;
#X text 117 310 ambisonic-order = n_ao;
#X msg 150 170 ambi_weight 1 1 1;
#X msg 133 149 ambi_weight 1 1 0.3904;
#X text 305 385 ambisonic-order-group;
#X text 98 416 -90 <= delta <= +90;
#X text 98 428 -180 <= phi <= +180;
#X text 34 385 input: <ambi_weight> one mul-factor for each;
#X text 21 12 ambi_decode;
#X text 105 12 calculates a decoder-matrix;
#X obj 47 204 ambi_decode 2 2 5 0;
#X text 291 199 2.arg: <float> dimension;
#X text 440 199 (2 or 3);
#X text 291 211 3.arg: <float> number of real loudspeakers;
#X text 305 222 (best results \, if n_ls = n_ambi_channels);
#X text 316 232 (could be more or less);
#X text 292 243 4.arg: <float> number of phantom_loudspeakers;
#X text 334 254 (optional \, default 0);
#X msg 46 116 pinv;
#X obj 59 90 t b b;
#X obj 59 46 bng 35 250 50 0 empty empty empty 0 -6 0 8 -24198 -42246
-1;
#X text 34 334 input: <ls> index + phi [degree] .. 2-dimensional;
#X text 34 344 input: <ls> index + delta + phi [degree] .. 3-dimensional
;
#X text 34 358 input: <phls> index + phi [degree .. 2-dimensional;
#X text 34 369 input: <phls> index + delta + phi [degree] .. 3-dimensional
;
#X text 63 525 <float> n_col = (2*n_ao+1) = number of ambisonic-channels
;
#X text 51 534 + <float> n_row = (n_ls) = number of loudspeakers;
#X text 286 311 number of loudspeakers = n_ls;
#X text 51 594 + <float> n_row = (n_ls) = number of loudspeakers;
#X text 36 575 output in case of 3d: <matrix> ((n_ao+1)*(n_ao+1)*n_ls+2)
;
#X text 37 514 output in case of 2d: <matrix> ((2*n_ao+1)*n_ls+2);
#X text 384 575 <float> :;
#X text 341 513 <float> :;
#X text 281 585 number of ambisonic-channels;
#X text 63 585 <float> n_col = (n_ao+1)*(n_ao+1) =;
#X text 252 604 <float> elements of a matrix;
#X text 51 604 + (n_ao + 1) * (n_ao + 1) * n_ls;
#X text 51 544 + (2*n_ao + 1) * n_ls <float> elements of a matrix;
#X text 34 458 input: <pinv> calculates the pseudo-inverse of the encoded
;
#X text 90 469 loudspeaker-positions (+ the phantom-speakers);
#X text 104 480 and output a matrix-message;
#X text 306 189 (1 .. 5 for 3 dimensional use);
#X msg 95 116 ls 1 0 \, ls 2 72 \, ls 3 144 \, ls 4 216 \, ls 5 288
;
#X text 113 405 1 <= index <= n_ao;
#X text 340 275 a regular matrix to inverse it);
#X text 437 384 to suppress the side-lobe-phenomena;
#X text 308 265 (it is sometimes necessary to add phantom-ls. for achieving
;
#N canvas 0 0 812 677 phantom_example 0;
#X obj 57 631 print;
#X obj 57 608 round_zero 1e-006;
#X msg 57 94 pinv;
#X obj 70 24 bng 35 250 50 0 empty empty empty 0 -6 0 8 -24198 -42246
-1;
#X msg 198 72 ls 1 5 \, ls 2 2.5 \, ls 3 0 \, ls 4 -2.5 \, ls 5 -5
;
#X msg 92 176 phls 5 -17.5 \, phls 6 -20 \, phls 7 -22.5 \, phls 8
-25;
#X msg 92 200 phls 9 -27.5 \, phls 10 -30 \, phls 11 -32.5 \, phls
12 -35;
#X msg 92 223 phls 13 -37.5 \, phls 14 -40 \, phls 15 -42.5 \, phls
16 -45;
#X msg 92 247 phls 17 -47.5 \, phls 18 -50 \, phls 19 -52.5 \, phls
20 -55;
#X msg 92 270 phls 21 -57.5 \, phls 22 -60 \, phls 23 -62.5 \, phls
24 -65;
#X msg 92 294 phls 25 -67.5 \, phls 26 -70 \, phls 27 -72.5 \, phls
28 -75;
#X msg 92 317 phls 29 -77.5 \, phls 30 -80 \, phls 31 -82.5 \, phls
32 -85;
#X msg 92 340 phls 33 -87.5 \, phls 34 -90 \, phls 35 -92.5 \, phls
36 -95;
#X msg 92 364 phls 37 -97.5 \, phls 38 -100 \, phls 39 -102.5 \, phls
40 -105;
#X msg 92 387 phls 41 -107.5 \, phls 42 -110 \, phls 43 -112.5 \, phls
44 -115;
#X msg 92 411 phls 45 -117.5 \, phls 46 -120 \, phls 47 -122.5 \, phls
48 -125;
#X msg 92 434 phls 49 -127.5 \, phls 50 -130 \, phls 51 -132.5 \, phls
52 -135;
#X msg 92 456 phls 53 -137.5 \, phls 54 -140 \, phls 55 -142.5 \, phls
56 -145;
#X msg 92 480 phls 57 -147.5 \, phls 58 -150 \, phls 59 -152.5 \, phls
60 -155;
#X msg 92 503 phls 61 -157.5 \, phls 62 -160 \, phls 63 -162.5 \, phls
64 -165;
#X msg 92 527 phls 65 -167.5 \, phls 66 -170 \, phls 67 -172.5 \, phls
68 -175;
#X msg 92 550 phls 69 -177.5 \, phls 70 -180 \, phls 71 177.5 \, phls
72 175;
#X msg 497 228 phls 73 172.5 \, phls 74 170 \, phls 75 167.5 \, phls
76 165;
#X msg 497 249 phls 77 162.5 \, phls 78 160 \, phls 79 157.5 \, phls
80 155;
#X msg 497 270 phls 81 152.5 \, phls 82 150 \, phls 83 147.5 \, phls
84 145;
#X msg 497 290 phls 85 142.5 \, phls 86 140 \, phls 87 137.5 \, phls
88 135;
#X msg 497 312 phls 89 132.5 \, phls 90 130 \, phls 91 127.5 \, phls
92 125;
#X msg 497 333 phls 93 122.5 \, phls 94 120 \, phls 95 117.5 \, phls
96 115;
#X msg 497 354 phls 97 112.5 \, phls 98 110 \, phls 99 107.5 \, phls
100 105;
#X msg 497 375 phls 101 102.5 \, phls 102 100 \, phls 103 97.5 \, phls
104 95;
#X msg 497 396 phls 105 92.5 \, phls 106 90 \, phls 107 87.5 \, phls
108 85;
#X msg 497 418 phls 109 82.5 \, phls 110 80 \, phls 111 77.5 \, phls
112 75;
#X msg 497 439 phls 113 72.5 \, phls 114 70 \, phls 115 67.5 \, phls
116 65;
#X msg 497 460 phls 117 62.5 \, phls 118 60 \, phls 119 57.5 \, phls
120 55;
#X msg 497 481 phls 121 52.5 \, phls 122 50 \, phls 123 47.5 \, phls
124 45;
#X msg 497 502 phls 125 42.5 \, phls 126 40 \, phls 127 37.5 \, phls
128 35;
#X msg 497 524 phls 129 32.5 \, phls 130 30 \, phls 131 27.5 \, phls
132 25;
#X msg 497 545 phls 133 22.5 \, phls 134 20 \, phls 135 17.5 \, phls
136 15;
#X msg 497 566 phls 137 12.5 \, phls 138 10 \, phls 139 7.5;
#X obj 70 68 t b b b b;
#X obj 92 127 t b;
#X obj 497 206 t b;
#X obj 57 586 ambi_decode 2 2 5 139;
#X msg 92 152 phls 1 -7.5 \, phls 2 -10 \, phls 3 -12.5 \, phls 4 -15
;
#X connect 1 0 0 0;
#X connect 2 0 42 0;
#X connect 3 0 39 0;
#X connect 4 0 42 0;
#X connect 5 0 42 0;
#X connect 6 0 42 0;
#X connect 7 0 42 0;
#X connect 8 0 42 0;
#X connect 9 0 42 0;
#X connect 10 0 42 0;
#X connect 11 0 42 0;
#X connect 12 0 42 0;
#X connect 13 0 42 0;
#X connect 14 0 42 0;
#X connect 15 0 42 0;
#X connect 16 0 42 0;
#X connect 17 0 42 0;
#X connect 18 0 42 0;
#X connect 19 0 42 0;
#X connect 20 0 42 0;
#X connect 21 0 42 0;
#X connect 22 0 42 0;
#X connect 23 0 42 0;
#X connect 24 0 42 0;
#X connect 25 0 42 0;
#X connect 26 0 42 0;
#X connect 27 0 42 0;
#X connect 28 0 42 0;
#X connect 29 0 42 0;
#X connect 30 0 42 0;
#X connect 31 0 42 0;
#X connect 32 0 42 0;
#X connect 33 0 42 0;
#X connect 34 0 42 0;
#X connect 35 0 42 0;
#X connect 36 0 42 0;
#X connect 37 0 42 0;
#X connect 38 0 42 0;
#X connect 39 0 2 0;
#X connect 39 1 41 0;
#X connect 39 2 40 0;
#X connect 39 3 4 0;
#X connect 40 0 43 0;
#X connect 40 0 5 0;
#X connect 40 0 6 0;
#X connect 40 0 7 0;
#X connect 40 0 8 0;
#X connect 40 0 9 0;
#X connect 40 0 10 0;
#X connect 40 0 11 0;
#X connect 40 0 12 0;
#X connect 40 0 13 0;
#X connect 40 0 14 0;
#X connect 40 0 15 0;
#X connect 40 0 16 0;
#X connect 40 0 17 0;
#X connect 40 0 18 0;
#X connect 40 0 19 0;
#X connect 40 0 20 0;
#X connect 40 0 21 0;
#X connect 41 0 22 0;
#X connect 41 0 23 0;
#X connect 41 0 24 0;
#X connect 41 0 25 0;
#X connect 41 0 26 0;
#X connect 41 0 27 0;
#X connect 41 0 28 0;
#X connect 41 0 29 0;
#X connect 41 0 30 0;
#X connect 41 0 31 0;
#X connect 41 0 32 0;
#X connect 41 0 33 0;
#X connect 41 0 34 0;
#X connect 41 0 35 0;
#X connect 41 0 36 0;
#X connect 41 0 37 0;
#X connect 41 0 38 0;
#X connect 42 0 1 0;
#X connect 43 0 42 0;
#X restore 421 117 pd phantom_example regular;
#N canvas 0 0 814 679 real_example 0;
#X obj 58 293 print;
#X obj 58 270 round_zero 1e-006;
#X msg 57 94 pinv;
#X obj 70 24 bng 35 250 50 0 empty empty empty 0 -6 0 8 -24198 -42246
-1;
#X msg 103 115 ls 1 5 \, ls 2 2.5 \, ls 3 0 \, ls 4 -2.5 \, ls 5 -5
;
#X obj 70 68 t b b;
#X obj 58 248 ambi_decode 2 2 5 0;
#X connect 1 0 0 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 1 4 0;
#X connect 6 0 1 0;
#X restore 421 90 pd real_example singular;
#X connect 3 0 0 0;
#X connect 5 0 13 0;
#X connect 6 0 13 0;
#X connect 13 0 3 0;
#X connect 21 0 13 0;
#X connect 22 0 21 0;
#X connect 22 1 45 0;
#X connect 23 0 22 0;
#X connect 45 0 13 0;
|
