Mercurial > hg > weather-synthesis-prototyping
comparison AeolianHarp/stringE.pd @ 104:078bc293e072
Aeolian harp file updated
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Sun, 26 Jul 2015 08:47:42 +0100 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
103:899f8e554fa6 | 104:078bc293e072 |
---|---|
1 #N canvas -9 64 1440 700 10; | |
2 #X text 818 -13 Mass Density of Air; | |
3 #X text 127 302 Frequency (Hz); | |
4 #X obj 895 435 throw~ l; | |
5 #X obj 922 416 throw~ r; | |
6 #X obj 910 289 osc~; | |
7 #X obj 940 -12 *~ 1.225; | |
8 #X obj 940 63 /~ 1.81e-05; | |
9 #X obj 940 18 *~ 1; | |
10 #X obj 910 238 /~ 1; | |
11 #X floatatom 221 282 10 0 0 0 - - -; | |
12 #X obj 925 106 /~; | |
13 #X obj 910 214 *~; | |
14 #X obj 910 263 clip~ 0 20000; | |
15 #X obj 232 -71 inlet; | |
16 #X text 781 56 Reynolds Number; | |
17 #X text 794 230 Strouhal Number; | |
18 #X obj 393 -73 inlet; | |
19 #X obj 910 319 *~; | |
20 #X text 970 43 Viscosity; | |
21 #X obj 674 240 *~ 2; | |
22 #X obj 674 267 osc~; | |
23 #X obj 674 289 *~; | |
24 #X obj 895 348 +~; | |
25 #X obj 232 -47 s \$0-diameter; | |
26 #X obj 1001 -13 r \$0-diameter; | |
27 #X obj 990 187 r \$0-diameter; | |
28 #X obj 149 -9 s~ \$0-windSpeed; | |
29 #X obj 338 60 r~ \$0-windSpeed; | |
30 #X obj 989 156 r~ \$0-windSpeed; | |
31 #X obj 940 -40 r~ \$0-windSpeed; | |
32 #X obj 845 213 s~ \$0_str; | |
33 #X obj 328 39 r~ \$0_str; | |
34 #X obj 707 267 r~ \$0_dragDiGain; | |
35 #X obj 825 289 s~ \$0-myFreq; | |
36 #X obj 674 219 r~ \$0-myFreq; | |
37 #X obj 948 289 r~ \$0_liftDiGain; | |
38 #X obj 149 -51 sig~; | |
39 #X obj 149 -30 vd~ varwind; | |
40 #X obj 149 -75 inlet; | |
41 #X obj 1161 19 r~ \$0-myFreq; | |
42 #X obj 1127 -31 noise~; | |
43 #X obj 1204 203 throw~ l; | |
44 #X obj 1231 182 throw~ r; | |
45 #X obj 1204 110 *~; | |
46 #X obj 143 104 snapshot~; | |
47 #X obj 143 79 metro 100; | |
48 #X obj 143 57 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 | |
49 1; | |
50 #X floatatom 143 130 10 0 0 0 - - -; | |
51 #X obj 143 31 loadbang; | |
52 #X obj 69 79 r~ \$0-myRey; | |
53 #X obj 953 87 s~ \$0-myRey; | |
54 #X obj 1342 20 snapshot~; | |
55 #X floatatom 1342 46 10 0 0 0 - - -; | |
56 #X obj 1342 -53 loadbang; | |
57 #X obj 1342 -28 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 | |
58 1 1; | |
59 #X obj 1253 -82 r~ \$0-myRey; | |
60 #X obj 1169 371 r~ \$0-myFreq; | |
61 #X obj 1135 300 noise~; | |
62 #X obj 1212 560 throw~ l; | |
63 #X obj 1239 537 throw~ r; | |
64 #X obj 1212 468 *~; | |
65 #X obj 1350 380 snapshot~; | |
66 #X floatatom 1350 406 10 0 0 0 - - -; | |
67 #X obj 1350 307 loadbang; | |
68 #X obj 1350 332 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 | |
69 1 1; | |
70 #X obj 1261 278 r~ \$0-myRey; | |
71 #X obj 1169 397 *~ 2; | |
72 #X text 128 150 Reynolds Number; | |
73 #X obj 1127 62 vcf~ 1000 10; | |
74 #X obj 1135 422 vcf~ 1000 10; | |
75 #X obj 895 391 fcpan; | |
76 #X obj 1204 159 fcpan; | |
77 #X obj 1212 512 fcpan; | |
78 #X obj 1219 83 *~ 1; | |
79 #X obj 1227 443 *~ 1; | |
80 #X obj 1261 353 clip~ 2 400; | |
81 #X obj 1253 -7 clip~ 2 400; | |
82 #X obj 1261 302 *~ -0.003; | |
83 #X obj 1253 -58 *~ -0.003; | |
84 #X obj 1342 -5 metro 10; | |
85 #X obj 1350 355 metro 10; | |
86 #X obj 393 -53 s \$0_dist; | |
87 #X obj 626 -80 inlet; | |
88 #X obj 626 -11 s \$0_thisPan; | |
89 #X obj 922 362 r \$0_thisPan; | |
90 #X obj 1231 135 r \$0_thisPan; | |
91 #X obj 1239 490 r \$0_thisPan; | |
92 #X floatatom 571 -11 8 0 0 0 - - -; | |
93 #X obj 626 -56 max 0.1; | |
94 #X obj 626 -33 min 0.9; | |
95 #X text 1263 456 Drag Dipole spectrum calculation; | |
96 #X text 1258 100 Lift Dipole spectrum calculation; | |
97 #X text 661 102 Calculates the frequency; | |
98 #X text 661 115 based on the physics of; | |
99 #X text 662 128 the object and environment; | |
100 #X obj 335 319 r~ \$0-windSpeed; | |
101 #X obj 324 296 r~ \$0_str; | |
102 #X obj 1227 420 r~ \$0_dragNoiseGain; | |
103 #X obj 1219 41 r~ \$0_liftNoiseGain; | |
104 #X obj 891 67 sig~ 1; | |
105 #X obj 925 132 sqrt~; | |
106 #X obj 925 157 *~ 1.0356; | |
107 #X obj 851 148 sig~ 0.2684; | |
108 #X obj 910 187 -~; | |
109 #X obj 144 426 snapshot~; | |
110 #X obj 144 401 metro 100; | |
111 #X obj 144 379 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 | |
112 1; | |
113 #X floatatom 144 452 10 0 0 0 - - -; | |
114 #X obj 144 353 loadbang; | |
115 #X obj 80 402 r~ \$0_str; | |
116 #N canvas 515 100 622 660 noiseGain 0; | |
117 #X text -21205 129 Mass Density of Air \, squared; | |
118 #X text -20857 164 Speed of Sound to power 2; | |
119 #X obj -21070 29 *~; | |
120 #X obj -21022 70 *~; | |
121 #X obj -21022 104 *~ 1; | |
122 #X obj -21022 132 *~ 1.50063; | |
123 #X obj -20859 118 *; | |
124 #X obj -20859 141 * 118033; | |
125 #X obj -21022 193 /~ 1; | |
126 #X obj -21021 422 *~ 0.27; | |
127 #X text -20859 71 Distance; | |
128 #X obj -20890 352 cos; | |
129 #X obj -20890 307 / 360; | |
130 #X floatatom -20863 403 8 0 0 0 - - -; | |
131 #X obj -20890 376 *; | |
132 #X obj -20911 435 *~ 0.27; | |
133 #X obj -20890 329 * 6.28319; | |
134 #X obj -21000 282 + 90; | |
135 #X text -20895 510 Calculates Drag Dipole gain; | |
136 #X text -21175 486 Calculates Lift Dipole gain; | |
137 #N canvas 759 125 286 289 pow8 0; | |
138 #X obj 47 67 *~; | |
139 #X obj 76 67 *~; | |
140 #X obj 76 35 inlet~; | |
141 #X obj 47 170 outlet~; | |
142 #X obj 136 173 snapshot~; | |
143 #X obj 136 148 metro 100; | |
144 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 | |
145 1; | |
146 #X floatatom 136 200 10 0 0 0 - - -; | |
147 #X obj 136 100 loadbang; | |
148 #X obj 106 67 *~; | |
149 #X obj 47 93 *~; | |
150 #X obj 47 118 *~; | |
151 #X obj 136 67 *~; | |
152 #X obj 47 144 *~; | |
153 #X connect 0 0 10 0; | |
154 #X connect 1 0 10 1; | |
155 #X connect 2 0 0 0; | |
156 #X connect 2 0 0 1; | |
157 #X connect 2 0 1 1; | |
158 #X connect 2 0 9 0; | |
159 #X connect 2 0 9 1; | |
160 #X connect 2 0 1 0; | |
161 #X connect 2 0 12 0; | |
162 #X connect 2 0 12 1; | |
163 #X connect 4 0 7 0; | |
164 #X connect 5 0 4 0; | |
165 #X connect 6 0 5 0; | |
166 #X connect 8 0 6 0; | |
167 #X connect 9 0 11 1; | |
168 #X connect 10 0 11 0; | |
169 #X connect 11 0 13 0; | |
170 #X connect 12 0 13 1; | |
171 #X connect 13 0 3 0; | |
172 #X connect 13 0 4 0; | |
173 #X restore -21022 32 pd pow8; | |
174 #X obj -21005 222 s~ \$0-c; | |
175 #X obj -20948 385 r~ \$0-c; | |
176 #X obj -21070 7 inlet~; | |
177 #X obj -21022 7 inlet~; | |
178 #X obj -20989 55 inlet; | |
179 #X obj -20942 229 inlet; | |
180 #X obj -20873 229 inlet; | |
181 #X obj -20859 92 inlet; | |
182 #X obj -21021 465 outlet~; | |
183 #X obj -20911 485 outlet~; | |
184 #X text -20947 211 Azimuth; | |
185 #X text -20871 210 Elevation; | |
186 #X text -20961 26 Gain proportional to windspeed to power 8 for spectrum | |
187 ; | |
188 #X text -20981 74 Diameter; | |
189 #N canvas 1567 153 479 552 angleCalc 0; | |
190 #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 | |
191 -1 -1 7425 1; | |
192 #X text 287 77 Elevation Angle; | |
193 #X obj 236 118 / 360; | |
194 #X obj 236 140 * 6.28319; | |
195 #X obj 164 80 / 360; | |
196 #X obj 164 102 * 6.28319; | |
197 #X floatatom 49 106 5 0 0 0 - - -; | |
198 #X floatatom 304 140 5 0 0 0 - - -; | |
199 #X obj 278 443 * 360; | |
200 #X floatatom 325 494 5 0 0 0 - - -; | |
201 #X obj 278 467 / 6.28319; | |
202 #X obj 236 235 *; | |
203 #X obj 236 267 swap 1; | |
204 #X obj 236 300 -; | |
205 #X obj 236 329 sqrt; | |
206 #X obj 278 360 /; | |
207 #X obj 278 388 atan; | |
208 #X obj 278 414 * 2; | |
209 #X text 318 296 Arccos of angle; | |
210 #X obj 293 236 + 1; | |
211 #X obj 164 126 cos; | |
212 #X obj 236 171 cos; | |
213 #X obj 236 205 *; | |
214 #X obj 164 149 t f b; | |
215 #X obj 162 174 delay 9; | |
216 #X obj 278 494 outlet; | |
217 #X obj 236 90 inlet; | |
218 #X obj 164 57 inlet; | |
219 #X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 | |
220 -1 -1 4950 1; | |
221 #X text 56 42 Azimuth Angle; | |
222 #X connect 0 0 7 0; | |
223 #X connect 2 0 3 0; | |
224 #X connect 3 0 21 0; | |
225 #X connect 4 0 5 0; | |
226 #X connect 5 0 20 0; | |
227 #X connect 8 0 10 0; | |
228 #X connect 10 0 9 0; | |
229 #X connect 10 0 25 0; | |
230 #X connect 11 0 12 0; | |
231 #X connect 12 0 13 0; | |
232 #X connect 12 1 13 1; | |
233 #X connect 13 0 14 0; | |
234 #X connect 14 0 15 0; | |
235 #X connect 15 0 16 0; | |
236 #X connect 16 0 17 0; | |
237 #X connect 17 0 8 0; | |
238 #X connect 19 0 15 1; | |
239 #X connect 20 0 23 0; | |
240 #X connect 21 0 22 0; | |
241 #X connect 22 0 11 0; | |
242 #X connect 22 0 11 1; | |
243 #X connect 22 0 19 0; | |
244 #X connect 23 0 22 1; | |
245 #X connect 23 1 24 0; | |
246 #X connect 24 0 22 0; | |
247 #X connect 26 0 2 0; | |
248 #X connect 26 0 0 0; | |
249 #X connect 27 0 4 0; | |
250 #X connect 27 0 28 0; | |
251 #X connect 28 0 6 0; | |
252 #X restore -20942 252 pd angleCalc; | |
253 #X obj -20951 117 inlet; | |
254 #X obj -20951 142 *; | |
255 #X obj -21022 167 *~ 1; | |
256 #X text -20953 99 Length; | |
257 #X obj -21000 305 / 360; | |
258 #X obj -21000 351 cos; | |
259 #X obj -21000 375 *; | |
260 #X obj -21000 328 * 6.28319; | |
261 #X obj -21021 397 *~ 1; | |
262 #X obj -20911 411 *~ 1; | |
263 #X text -20848 459 Need for scienctific reasoning here!; | |
264 #X text -21239 441 Need for scienctific reasoning here!; | |
265 #X obj -21021 444 *~ 0.02; | |
266 #X obj -20911 460 *~ 0.002; | |
267 #X connect 2 0 3 1; | |
268 #X connect 3 0 4 0; | |
269 #X connect 4 0 5 0; | |
270 #X connect 5 0 38 0; | |
271 #X connect 6 0 7 0; | |
272 #X connect 7 0 8 1; | |
273 #X connect 8 0 21 0; | |
274 #X connect 8 0 44 0; | |
275 #X connect 9 0 48 0; | |
276 #X connect 11 0 14 0; | |
277 #X connect 11 0 14 1; | |
278 #X connect 12 0 16 0; | |
279 #X connect 14 0 13 0; | |
280 #X connect 14 0 45 1; | |
281 #X connect 15 0 49 0; | |
282 #X connect 16 0 11 0; | |
283 #X connect 17 0 40 0; | |
284 #X connect 20 0 3 0; | |
285 #X connect 22 0 45 0; | |
286 #X connect 23 0 2 0; | |
287 #X connect 23 0 2 1; | |
288 #X connect 24 0 20 0; | |
289 #X connect 25 0 4 1; | |
290 #X connect 26 0 35 0; | |
291 #X connect 27 0 35 1; | |
292 #X connect 28 0 6 0; | |
293 #X connect 28 0 6 1; | |
294 #X connect 35 0 17 0; | |
295 #X connect 35 0 12 0; | |
296 #X connect 36 0 37 0; | |
297 #X connect 36 0 37 1; | |
298 #X connect 37 0 38 1; | |
299 #X connect 38 0 8 0; | |
300 #X connect 40 0 43 0; | |
301 #X connect 41 0 42 0; | |
302 #X connect 41 0 42 1; | |
303 #X connect 42 0 44 1; | |
304 #X connect 43 0 41 0; | |
305 #X connect 44 0 9 0; | |
306 #X connect 45 0 15 0; | |
307 #X connect 48 0 29 0; | |
308 #X connect 49 0 30 0; | |
309 #X restore 324 448 pd noiseGain; | |
310 #X obj 347 340 r \$0-diameter; | |
311 #X obj 393 424 r \$0_dist; | |
312 #X obj 381 402 r \$0_azim; | |
313 #X obj 370 381 r \$0_elev; | |
314 #X obj 324 493 s~ \$0_liftNoiseGain; | |
315 #X obj 393 471 s~ \$0_dragNoiseGain; | |
316 #N canvas 0 130 702 650 freqGain 0; | |
317 #X text 36 127 Mass Density of Air \, squared; | |
318 #X text 508 93 Speed of Sound to power 2; | |
319 #N canvas 759 125 286 289 pow6 0; | |
320 #X obj 47 67 *~; | |
321 #X obj 76 67 *~; | |
322 #X obj 76 35 inlet~; | |
323 #X obj 47 163 outlet~; | |
324 #X obj 136 184 snapshot~; | |
325 #X obj 136 159 metro 100; | |
326 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 | |
327 1; | |
328 #X floatatom 136 211 10 0 0 0 - - -; | |
329 #X obj 216 210 outlet; | |
330 #X obj 136 111 loadbang; | |
331 #X obj 106 67 *~; | |
332 #X obj 47 93 *~; | |
333 #X obj 47 118 *~; | |
334 #X connect 0 0 11 0; | |
335 #X connect 1 0 11 1; | |
336 #X connect 2 0 0 0; | |
337 #X connect 2 0 0 1; | |
338 #X connect 2 0 1 1; | |
339 #X connect 2 0 10 0; | |
340 #X connect 2 0 10 1; | |
341 #X connect 2 0 1 0; | |
342 #X connect 4 0 7 0; | |
343 #X connect 4 0 8 0; | |
344 #X connect 5 0 4 0; | |
345 #X connect 6 0 5 0; | |
346 #X connect 9 0 6 0; | |
347 #X connect 10 0 12 1; | |
348 #X connect 11 0 12 0; | |
349 #X connect 12 0 4 0; | |
350 #X connect 12 0 3 0; | |
351 #X restore 219 30 pd pow6; | |
352 #X obj 173 32 *~; | |
353 #X obj 219 68 *~; | |
354 #X obj 219 102 *~ 1; | |
355 #X obj 219 130 *~ 1.50063; | |
356 #X obj 506 45 *; | |
357 #X obj 506 70 * 118033; | |
358 #X obj 219 240 /~ 1; | |
359 #X obj 219 506 *~ 0.27; | |
360 #X text 380 261 Azimuth; | |
361 #X text 497 1 Distance; | |
362 #X obj 419 420 cos; | |
363 #X obj 419 375 / 360; | |
364 #X floatatom 446 466 8 0 0 0 - - -; | |
365 #X obj 419 444 *; | |
366 #X obj 398 491 *~ 0.27; | |
367 #X obj 236 269 s~ \$0-a; | |
368 #X obj 357 441 r~ \$0-a; | |
369 #X obj 419 397 * 6.28319; | |
370 #X floatatom 471 46 5 0 0 0 - - -; | |
371 #N canvas 131 175 477 312 angleCalc 0; | |
372 #X obj 297 33 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 | |
373 -1 -1 0 1; | |
374 #X text 233 6 Elevation Angle; | |
375 #X obj 242 59 / 360; | |
376 #X obj 242 81 * 6.28319; | |
377 #X obj 170 21 / 360; | |
378 #X obj 170 43 * 6.28319; | |
379 #X floatatom 50 22 5 0 0 0 - - -; | |
380 #X floatatom 294 57 5 0 0 0 - - -; | |
381 #X floatatom 204 196 5 0 0 0 - - -; | |
382 #X obj 170 67 cos; | |
383 #X obj 242 112 cos; | |
384 #X obj 242 146 *; | |
385 #X obj 170 90 t f b; | |
386 #X obj 168 115 delay 9; | |
387 #X obj 242 197 outlet; | |
388 #X obj 242 31 inlet; | |
389 #X obj 170 -6 inlet; | |
390 #X obj 53 -4 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 | |
391 -1 -1 0 1; | |
392 #X text 136 -30 Azimuth Angle; | |
393 #X obj 242 172 arccos; | |
394 #X connect 0 0 7 0; | |
395 #X connect 0 0 2 0; | |
396 #X connect 2 0 3 0; | |
397 #X connect 3 0 10 0; | |
398 #X connect 4 0 5 0; | |
399 #X connect 5 0 9 0; | |
400 #X connect 9 0 12 0; | |
401 #X connect 10 0 11 0; | |
402 #X connect 11 0 19 0; | |
403 #X connect 12 0 11 1; | |
404 #X connect 12 1 13 0; | |
405 #X connect 13 0 11 0; | |
406 #X connect 15 0 2 0; | |
407 #X connect 16 0 4 0; | |
408 #X connect 17 0 6 0; | |
409 #X connect 17 0 4 0; | |
410 #X connect 19 0 14 0; | |
411 #X connect 19 0 8 0; | |
412 #X restore 365 297 pd angleCalc; | |
413 #X text 451 260 Elevation; | |
414 #X text 476 498 Calculates Drag Dipole gain; | |
415 #X text 48 445 Calculates Lift Dipole gain; | |
416 #X obj 398 516 *~ 0.1; | |
417 #X obj 173 8 inlet~; | |
418 #X obj 219 7 inlet~; | |
419 #X text 256 54 Diameter; | |
420 #X obj 250 69 inlet; | |
421 #X obj 506 20 inlet; | |
422 #X obj 365 276 inlet; | |
423 #X obj 434 275 inlet; | |
424 #X obj 219 530 outlet~; | |
425 #X obj 398 541 outlet~; | |
426 #X obj 297 125 inlet; | |
427 #X obj 297 149 *; | |
428 #X obj 219 193 *~ 1; | |
429 #X text 292 106 Length; | |
430 #X obj 240 388 / 360; | |
431 #X obj 240 434 cos; | |
432 #X obj 240 458 *; | |
433 #X obj 240 411 * 6.28319; | |
434 #X obj 398 467 *~ 1; | |
435 #X obj 219 481 *~ 1; | |
436 #X obj 305 247 arccos; | |
437 #X obj 305 223 r sigMac; | |
438 #X obj 240 362 +; | |
439 #X obj 305 269 t f b; | |
440 #X obj 240 323 delay 9; | |
441 #X text 309 203 Replicates Doppler effect; | |
442 #X floatatom 274 477 8 0 0 0 - - -; | |
443 #X floatatom 639 438 5 0 0 0 - - -; | |
444 #X connect 2 0 4 0; | |
445 #X connect 3 0 4 1; | |
446 #X connect 4 0 5 0; | |
447 #X connect 5 0 6 0; | |
448 #X connect 6 0 38 0; | |
449 #X connect 7 0 8 0; | |
450 #X connect 8 0 9 1; | |
451 #X connect 9 0 18 0; | |
452 #X connect 9 0 45 0; | |
453 #X connect 10 0 34 0; | |
454 #X connect 13 0 16 0; | |
455 #X connect 13 0 16 1; | |
456 #X connect 14 0 20 0; | |
457 #X connect 16 0 15 0; | |
458 #X connect 16 0 44 1; | |
459 #X connect 17 0 26 0; | |
460 #X connect 19 0 44 0; | |
461 #X connect 20 0 13 0; | |
462 #X connect 22 0 14 0; | |
463 #X connect 22 0 48 0; | |
464 #X connect 26 0 35 0; | |
465 #X connect 27 0 3 0; | |
466 #X connect 27 0 3 1; | |
467 #X connect 28 0 2 0; | |
468 #X connect 30 0 5 1; | |
469 #X connect 31 0 7 1; | |
470 #X connect 31 0 7 0; | |
471 #X connect 31 0 21 0; | |
472 #X connect 32 0 22 0; | |
473 #X connect 33 0 22 1; | |
474 #X connect 36 0 37 0; | |
475 #X connect 36 0 37 1; | |
476 #X connect 37 0 38 1; | |
477 #X connect 38 0 9 0; | |
478 #X connect 40 0 43 0; | |
479 #X connect 41 0 42 0; | |
480 #X connect 41 0 42 1; | |
481 #X connect 42 0 45 1; | |
482 #X connect 42 0 52 0; | |
483 #X connect 43 0 41 0; | |
484 #X connect 44 0 17 0; | |
485 #X connect 45 0 10 0; | |
486 #X connect 46 0 49 0; | |
487 #X connect 47 0 46 0; | |
488 #X connect 48 0 40 0; | |
489 #X connect 49 0 48 1; | |
490 #X connect 49 1 50 0; | |
491 #X connect 50 0 48 0; | |
492 #X restore 328 190 pd freqGain; | |
493 #X obj 462 -73 inlet; | |
494 #X obj 462 -53 s \$0_elev; | |
495 #X obj 349 81 r \$0-diameter; | |
496 #X obj 530 -75 inlet; | |
497 #X obj 530 -53 s \$0_azim; | |
498 #X obj 391 169 r \$0_dist; | |
499 #X obj 370 126 r \$0_azim; | |
500 #X obj 380 147 r \$0_elev; | |
501 #X obj 391 214 s~ \$0_dragDiGain; | |
502 #X obj 328 234 s~ \$0_liftDiGain; | |
503 #X floatatom 393 -26 5 0 0 0 - - -; | |
504 #X floatatom 463 -27 5 0 0 0 - - -; | |
505 #X floatatom 531 -31 5 0 0 0 - - -; | |
506 #X obj 92 282 outlet; | |
507 #X obj 1127 16 hip~; | |
508 #X obj 136 255 snapshot~; | |
509 #X obj 136 208 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 | |
510 1; | |
511 #X obj 136 182 loadbang; | |
512 #X obj 136 230 metro 10; | |
513 #X obj 1135 397 hip~; | |
514 #X obj 57 232 r~ \$0-myFreq; | |
515 #X obj 136 282 s \$0_contFreq; | |
516 #X obj 1148 -7 r \$0_contFreq; | |
517 #X obj 1156 321 r \$0_contFreq; | |
518 #X obj 1156 344 * 2; | |
519 #X text 132 473 Strouhal Number; | |
520 #X text 318 251 Calculates the gain of the dipole source; | |
521 #X text 315 512 Calculates the gain of the source; | |
522 #X text 522 -94 Azimuth; | |
523 #X text 631 -98 Pan; | |
524 #X text 456 -92 Elevation; | |
525 #X text 389 -92 Distance; | |
526 #X text 227 -92 Diameter; | |
527 #X text 142 -93 Wind Speed; | |
528 #X obj 324 -72 inlet; | |
529 #X floatatom 325 -28 5 0 0 0 - - -; | |
530 #X text 320 -91 Length; | |
531 #X obj 324 -50 s \$0_leng; | |
532 #X obj 358 361 r \$0_leng; | |
533 #X obj 359 104 r \$0_leng; | |
534 #X obj 1253 -33 +~ 40; | |
535 #X obj 1261 327 +~ 40; | |
536 #X connect 4 0 17 0; | |
537 #X connect 5 0 7 0; | |
538 #X connect 6 0 10 1; | |
539 #X connect 6 0 50 0; | |
540 #X connect 7 0 6 0; | |
541 #X connect 8 0 12 0; | |
542 #X connect 10 0 100 0; | |
543 #X connect 11 0 8 0; | |
544 #X connect 12 0 4 0; | |
545 #X connect 12 0 33 0; | |
546 #X connect 13 0 23 0; | |
547 #X connect 16 0 81 0; | |
548 #X connect 16 0 128 0; | |
549 #X connect 17 0 22 1; | |
550 #X connect 19 0 20 0; | |
551 #X connect 20 0 21 0; | |
552 #X connect 21 0 22 0; | |
553 #X connect 22 0 70 0; | |
554 #X connect 24 0 7 1; | |
555 #X connect 25 0 8 1; | |
556 #X connect 27 0 117 1; | |
557 #X connect 28 0 11 1; | |
558 #X connect 29 0 5 0; | |
559 #X connect 31 0 117 0; | |
560 #X connect 32 0 21 1; | |
561 #X connect 34 0 19 0; | |
562 #X connect 35 0 17 1; | |
563 #X connect 36 0 37 0; | |
564 #X connect 37 0 26 0; | |
565 #X connect 38 0 36 0; | |
566 #X connect 39 0 68 1; | |
567 #X connect 40 0 132 0; | |
568 #X connect 43 0 71 0; | |
569 #X connect 44 0 47 0; | |
570 #X connect 45 0 44 0; | |
571 #X connect 46 0 45 0; | |
572 #X connect 48 0 46 0; | |
573 #X connect 49 0 44 0; | |
574 #X connect 51 0 52 0; | |
575 #X connect 51 0 68 2; | |
576 #X connect 53 0 54 0; | |
577 #X connect 54 0 79 0; | |
578 #X connect 55 0 78 0; | |
579 #X connect 56 0 66 0; | |
580 #X connect 57 0 137 0; | |
581 #X connect 60 0 72 0; | |
582 #X connect 61 0 62 0; | |
583 #X connect 61 0 69 2; | |
584 #X connect 63 0 64 0; | |
585 #X connect 64 0 80 0; | |
586 #X connect 65 0 77 0; | |
587 #X connect 66 0 69 1; | |
588 #X connect 68 0 43 0; | |
589 #X connect 69 0 60 0; | |
590 #X connect 70 0 2 0; | |
591 #X connect 70 1 3 0; | |
592 #X connect 71 0 41 0; | |
593 #X connect 71 1 42 0; | |
594 #X connect 72 0 58 0; | |
595 #X connect 72 1 59 0; | |
596 #X connect 73 0 43 1; | |
597 #X connect 74 0 60 1; | |
598 #X connect 75 0 61 0; | |
599 #X connect 76 0 51 0; | |
600 #X connect 77 0 159 0; | |
601 #X connect 78 0 158 0; | |
602 #X connect 79 0 51 0; | |
603 #X connect 80 0 61 0; | |
604 #X connect 82 0 88 0; | |
605 #X connect 84 0 70 1; | |
606 #X connect 85 0 71 1; | |
607 #X connect 86 0 72 1; | |
608 #X connect 88 0 89 0; | |
609 #X connect 89 0 83 0; | |
610 #X connect 89 0 87 0; | |
611 #X connect 95 0 110 1; | |
612 #X connect 96 0 110 0; | |
613 #X connect 97 0 74 0; | |
614 #X connect 98 0 73 0; | |
615 #X connect 99 0 10 0; | |
616 #X connect 100 0 101 0; | |
617 #X connect 101 0 103 1; | |
618 #X connect 102 0 103 0; | |
619 #X connect 103 0 30 0; | |
620 #X connect 103 0 11 0; | |
621 #X connect 104 0 107 0; | |
622 #X connect 105 0 104 0; | |
623 #X connect 106 0 105 0; | |
624 #X connect 108 0 106 0; | |
625 #X connect 109 0 104 0; | |
626 #X connect 110 0 115 0; | |
627 #X connect 110 1 116 0; | |
628 #X connect 111 0 110 2; | |
629 #X connect 112 0 110 6; | |
630 #X connect 113 0 110 5; | |
631 #X connect 114 0 110 4; | |
632 #X connect 117 0 127 0; | |
633 #X connect 117 1 126 0; | |
634 #X connect 118 0 119 0; | |
635 #X connect 118 0 129 0; | |
636 #X connect 120 0 117 2; | |
637 #X connect 121 0 122 0; | |
638 #X connect 121 0 130 0; | |
639 #X connect 123 0 117 6; | |
640 #X connect 124 0 117 4; | |
641 #X connect 125 0 117 5; | |
642 #X connect 132 0 68 0; | |
643 #X connect 133 0 139 0; | |
644 #X connect 133 0 131 0; | |
645 #X connect 133 0 9 0; | |
646 #X connect 134 0 136 0; | |
647 #X connect 135 0 134 0; | |
648 #X connect 136 0 133 0; | |
649 #X connect 137 0 69 0; | |
650 #X connect 138 0 133 0; | |
651 #X connect 140 0 132 1; | |
652 #X connect 141 0 142 0; | |
653 #X connect 142 0 137 1; | |
654 #X connect 152 0 153 0; | |
655 #X connect 152 0 155 0; | |
656 #X connect 156 0 110 3; | |
657 #X connect 157 0 117 3; | |
658 #X connect 158 0 76 0; | |
659 #X connect 159 0 75 0; |