-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathupp._spat.invd.pd
229 lines (229 loc) · 4.97 KB
/
upp._spat.invd.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
#N canvas 692 189 393 526 10;
#X obj 51 60 inlet;
#X obj 51 475 outlet;
#X obj 232 61 inlet;
#X obj 51 137 f;
#X msg 174 251 0;
#X obj 51 251 unpack 0 0 0, f 17;
#X obj 149 302 f;
#X obj 124 302 f;
#X text 229 43 ls coords;
#X obj 51 443 list prepend;
#X obj 51 356 list append;
#X obj 51 82 t b a b, f 21;
#X obj 51 301 t b a b b;
#X obj 232 473 outlet;
#N canvas 564 189 291 232 num-speakers 0;
#X obj 44 33 inlet;
#X obj 44 182 outlet;
#X obj 44 97 list length;
#X obj 44 119 - 1;
#X obj 44 150 /;
#X obj 125 98 list split 1;
#X obj 44 62 t a a;
#X obj 125 182 outlet;
#X text 125 203 dim;
#X text 44 204 count;
#X text 43 15 list;
#X obj 195 182 outlet;
#X text 196 203 coords;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 7 0;
#X connect 5 0 4 1;
#X connect 5 1 11 0;
#X connect 6 0 2 0;
#X connect 6 1 5 0;
#X restore 232 85 pd num-speakers;
#N canvas 0 22 177 213 count 0;
#X obj 45 24 inlet;
#X obj 45 154 outlet;
#X obj 45 89 until;
#X obj 45 115 f;
#X obj 76 116 + 1;
#X obj 45 53 t a b;
#X msg 90 91 0;
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 2 0;
#X connect 5 1 6 0;
#X connect 6 0 3 1;
#X restore 51 159 pd count;
#X text 306 104 coords;
#X text 262 105 dim;
#X text 218 104 num;
#N canvas 0 22 310 272 nth_coord 0;
#X obj 46 32 inlet;
#X obj 189 34 inlet;
#X obj 74 217 outlet;
#X text 45 12 index;
#X text 188 16 coordinates;
#X obj 131 33 inlet;
#X text 131 15 dim;
#X obj 46 125 list append;
#X obj 46 153 list split;
#X obj 74 185 list split;
#X obj 103 86 *;
#X obj 46 61 t b a;
#X connect 0 0 11 0;
#X connect 1 0 7 1;
#X connect 5 0 10 1;
#X connect 5 0 9 1;
#X connect 7 0 8 0;
#X connect 8 1 9 0;
#X connect 9 0 2 0;
#X connect 10 0 8 1;
#X connect 11 0 7 0;
#X connect 11 1 10 0;
#X restore 51 221 pd nth_coord, f 17;
#X obj 51 187 t a a;
#X text 131 443 prepend index;
#X text 239 455 num speakers;
#X text 125 355 x y z bias pow;
#X text 126 284 preset to 0;
#X text 49 43 x y z bias pow;
#X text 48 15 Compute inverse distances to loudspeaker coordinates
;
#N canvas 83 334 343 353 invd 0;
#X obj 54 71 inlet;
#X obj 180 68 inlet;
#X obj 222 68 inlet;
#X obj 264 68 inlet;
#X obj 54 309 outlet;
#X text 51 12 inverse distance;
#N canvas 0 22 240 200 invd 0;
#X obj 41 33 inlet;
#X obj 41 113 pow;
#X obj 114 33 inlet;
#X obj 161 33 inlet;
#X text 43 15 distance;
#X text 116 15 bias;
#X text 163 14 power;
#X obj 41 149 outlet;
#X obj 71 114 * -1;
#X obj 41 70 + 1;
#X connect 0 0 9 0;
#X connect 1 0 7 0;
#X connect 2 0 9 1;
#X connect 3 0 8 0;
#X connect 8 0 1 1;
#X connect 9 0 1 0;
#X restore 54 241 pd invd;
#N canvas 0 22 450 300 3ddist 0;
#X obj 207 31 inlet;
#X obj 249 31 inlet;
#X obj 291 31 inlet;
#X obj 55 124 -;
#X obj 56 148 t a a;
#X obj 56 172 *;
#X obj 96 123 -;
#X obj 97 147 t a a;
#X obj 97 171 *;
#X obj 136 124 -;
#X obj 137 148 t a a;
#X obj 137 172 *;
#X obj 55 198 +;
#X obj 95 198 +;
#X obj 56 222 sqrt;
#X obj 55 31 inlet;
#X obj 97 31 inlet;
#X obj 139 31 inlet;
#X obj 56 255 outlet, f 31;
#X connect 0 0 3 1;
#X connect 1 0 6 1;
#X connect 2 0 9 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 5 1;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 1 8 1;
#X connect 8 0 13 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 13 1;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 14 0 18 0;
#X connect 15 0 3 0;
#X connect 16 0 6 0;
#X connect 17 0 9 0;
#X restore 54 152 pd 3ddist, f 33;
#X obj 54 187 t a b;
#X msg 121 219 0;
#X obj 54 273 / 1;
#X text 52 45 x y z bias pow;
#N canvas 0 22 240 200 invd 0;
#X obj 41 33 inlet;
#X obj 41 113 pow;
#X obj 114 33 inlet;
#X obj 161 33 inlet;
#X text 43 15 distance;
#X text 116 15 bias;
#X text 163 14 power;
#X obj 41 149 outlet;
#X obj 71 114 * -1;
#X obj 41 70 + 1;
#X connect 0 0 9 0;
#X connect 1 0 7 0;
#X connect 2 0 9 1;
#X connect 3 0 8 0;
#X connect 8 0 1 1;
#X connect 9 0 1 0;
#X restore 121 241 pd invd;
#X obj 54 99 unpack 0 0 0 1 2, f 19;
#X connect 0 0 13 0;
#X connect 1 0 7 3;
#X connect 2 0 7 4;
#X connect 3 0 7 5;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 8 1 9 0;
#X connect 9 0 12 0;
#X connect 10 0 4 0;
#X connect 12 0 10 1;
#X connect 13 0 7 0;
#X connect 13 1 7 1;
#X connect 13 2 7 2;
#X connect 13 3 6 1;
#X connect 13 3 12 1;
#X connect 13 4 6 2;
#X connect 13 4 12 2;
#X restore 51 408 pd invd, f 18;
#X text 164 407 compute gain;
#X connect 0 0 11 0;
#X connect 2 0 14 0;
#X connect 3 0 15 0;
#X connect 4 0 6 1;
#X connect 4 0 7 1;
#X connect 5 0 12 0;
#X connect 5 1 7 1;
#X connect 5 2 6 1;
#X connect 6 0 27 3;
#X connect 7 0 27 2;
#X connect 9 0 1 0;
#X connect 10 0 27 0;
#X connect 11 0 3 0;
#X connect 11 1 10 1;
#X connect 11 2 4 0;
#X connect 12 0 10 0;
#X connect 12 1 27 1;
#X connect 12 2 7 0;
#X connect 12 3 6 0;
#X connect 14 0 13 0;
#X connect 14 0 3 1;
#X connect 14 1 19 1;
#X connect 14 2 19 2;
#X connect 15 0 20 0;
#X connect 19 0 5 0;
#X connect 20 0 19 0;
#X connect 20 1 9 1;
#X connect 27 0 9 0;