Mercurial > hg > weather-synthesis-prototyping

comparison June/Gen2_D2.pd @ 117:3f2588a64b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged
author Roderick Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 01 Aug 2015 05:48:03 +0100
parents 00df473dba2c
children
comparison
equal deleted inserted replaced
116:195db2866d0a 117:3f2588a64b25
1 #N canvas 284 207 1102 758 10;
2 #X declare -lib mrpeach;
3 #N canvas 236 158 426 423 windspeed 0;
4 #X obj 3 -19 +~ 1;
5 #X obj 3 76 +~;
6 #X obj 3 3 *~ 0.25;
7 #X obj 19 53 +~;
8 #X obj 3 98 clip~ 0 1;
9 #N canvas 548 156 136 193 squall 0;
10 #X obj 63 20 noise~;
11 #X obj 63 83 hip~ 0;
12 #X obj 63 41 lop~ 3;
13 #X obj 63 62 lop~ 3;
14 #X obj 0 86 *~;
15 #X obj 22 130 *~;
16 #X obj 0 20 max~ 0.4;
17 #X obj 0 42 -~ 0.4;
18 #X obj 0 64 *~ 8;
19 #X obj 63 104 *~ 20;
20 #X obj 0 0 inlet~;
21 #X obj 22 154 outlet~;
22 #X connect 0 0 2 0;
23 #X connect 1 0 9 0;
24 #X connect 2 0 3 0;
25 #X connect 3 0 1 0;
26 #X connect 4 0 5 0;
27 #X connect 5 0 11 0;
28 #X connect 6 0 7 0;
29 #X connect 7 0 8 0;
30 #X connect 8 0 4 0;
31 #X connect 8 0 4 1;
32 #X connect 9 0 5 1;
33 #X connect 10 0 6 0;
34 #X restore 77 28 pd squall;
35 #N canvas 398 157 136 192 gust 0;
36 #X obj 0 0 noise~;
37 #X obj 0 63 hip~ 0;
38 #X obj 0 106 *~;
39 #X obj 67 44 *~;
40 #X obj 67 21 +~ 0.5;
41 #X obj 67 67 -~ 0.125;
42 #X obj 0 42 lop~ 0.5;
43 #X obj 0 21 lop~ 0.5;
44 #X obj 0 84 *~ 50;
45 #X obj 67 0 inlet~;
46 #X obj 0 131 outlet~;
47 #X connect 0 0 7 0;
48 #X connect 1 0 8 0;
49 #X connect 2 0 10 0;
50 #X connect 3 0 5 0;
51 #X connect 4 0 3 0;
52 #X connect 4 0 3 1;
53 #X connect 5 0 2 1;
54 #X connect 6 0 1 0;
55 #X connect 7 0 6 0;
56 #X connect 8 0 2 0;
57 #X connect 9 0 4 0;
58 #X restore 18 29 pd gust;
59 #X obj 3 120 outlet~;
60 #X obj 3 -41 osc~ 0.01;
61 #X connect 0 0 2 0;
62 #X connect 1 0 4 0;
63 #X connect 2 0 5 0;
64 #X connect 2 0 6 0;
65 #X connect 2 0 1 0;
66 #X connect 3 0 1 1;
67 #X connect 4 0 7 0;
68 #X connect 5 0 3 1;
69 #X connect 6 0 3 0;
70 #X connect 8 0 0 0;
71 #X restore 260 -116 pd windspeed;
72 #X text 24 15 Light air = 0.56 m/s - 1.39 m/s;
73 #X text 24 37 Light Breeze = 1.67 m/s - 3.33 m/s;
74 #X text 24 57 Gentle Breeze = 3.61 m/s - 5.56 m/s;
75 #X text 24 77 Moderate Breeze = 5.83 m/s - 8.33 m/s;
76 #X text 25 98 Fresh Breeze = 8.61 m/s - 11.11 m/s;
77 #X text 24 119 Strong Breeze = 11.39 m/s - 13.89 m/s;
78 #X text 25 139 Moderate Gale = 14.17 m/s - 16.94 m/s;
79 #X text 26 159 Fresh Gale = 17.22 m/s - 20.56 m/s;
80 #X text 25 179 Strong Gale = 20.83 m/s - 24.72 m/s;
81 #X text 25 197 Whole Gale = 25 m/s - 28.61 m/s;
82 #X text 25 217 Storm = 28.89 m/s - 33.06 m/s;
83 #X text 26 235 Hurricane = 33.33 -;
84 #X text 62 -16 Beaufort Scale Chart;
85 #X obj 56 429 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
86 #X obj 119 429 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
87 #X obj 210 429 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
88 -1 -1 500 1;
89 #X text 239 448 Gain;
90 #X obj 210 365 loadbang;
91 #X obj 260 78 delwrite~ varwind 3000;
92 #X obj 343 -114 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
93 -1 -1 0 1;
94 #X obj 303 -11 snapshot~;
95 #X obj 303 -36 metro 100;
96 #X obj 303 -58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
97 1;
98 #X floatatom 303 16 10 0 0 0 - - -;
99 #X obj 260 -82 *~ 1;
100 #X obj 260 -56 +~ 1;
101 #X text 107 274 Equations from Chanaud 2010;
102 #X text 20 339 Frequency = (Strouhal Number * Velocity) / Distance
103 ;
104 #X text 19 299 Reynolds Number = (Density * Velocity * Length) / Viscosity
105 ;
106 #X text 19 319 Strouhal Number = 0.198 * (1 - (19.7/ Reynolds Number))
107 ;
108 #N canvas 865 368 293 255 opLevels 0;
109 #X obj 88 129 dac~;
110 #X obj 64 70 catch~ l;
111 #X obj 128 70 catch~ r;
112 #X obj 129 104 *~ 0.45;
113 #X obj 65 104 *~ 0.45;
114 #X obj 65 154 prvu~;
115 #X obj 129 155 prvu~;
116 #X obj 186 75 / 127;
117 #X obj 186 40 inlet;
118 #X obj 65 183 outlet;
119 #X obj 129 183 outlet;
120 #X connect 1 0 4 0;
121 #X connect 2 0 3 0;
122 #X connect 3 0 0 1;
123 #X connect 3 0 6 0;
124 #X connect 4 0 0 0;
125 #X connect 4 0 5 0;
126 #X connect 5 0 9 0;
127 #X connect 6 0 10 0;
128 #X connect 7 0 3 1;
129 #X connect 7 0 4 1;
130 #X connect 8 0 7 0;
131 #X restore 55 386 pd opLevels;
132 #X obj 303 -83 loadbang;
133 #X msg 210 393 5;
134 #X text 300 34 Wind Speed;
135 #X text 487 -70 Diameter;
136 #X obj 374 431 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
137 1;
138 #X obj 374 457 cursor;
139 #X obj 374 481 route motion;
140 #X obj 374 509 route x y;
141 #X floatatom 334 562 5 0 0 0 - - -;
142 #X floatatom 466 539 5 0 0 0 - - -;
143 #X obj 374 563 s xCurs;
144 #X obj 399 543 s yCurs;
145 #X obj 363 182 unpack f f;
146 #X obj 429 100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
147 -1 -1;
148 #X floatatom 405 242 8 0 0 0 - - -;
149 #X msg 325 148 0;
150 #X msg 320 171 1;
151 #N canvas 317 45 445 395 posCalc 0;
152 #X obj 104 19 r xCurs;
153 #X obj 160 19 r yCurs;
154 #X obj 119 50 inlet;
155 #X obj 175 46 inlet;
156 #X obj 104 80 -;
157 #X obj 160 80 -;
158 #X obj 105 141 *;
159 #X obj 161 139 *;
160 #X obj 131 199 sqrt;
161 #X obj 131 173 +;
162 #X floatatom 78 233 5 0 0 0 - - -;
163 #X obj 131 232 outlet;
164 #X obj 254 135 /;
165 #X floatatom 316 186 9 0 0 0 - - -;
166 #X floatatom 46 147 5 0 0 0 - - -;
167 #X obj 254 162 expr acos($f1);
168 #X obj 254 186 * 360;
169 #X floatatom 315 238 5 0 0 0 - - -;
170 #X obj 254 243 outlet;
171 #X obj 254 210 / 6.28319;
172 #X obj 160 104 / 20;
173 #X obj 104 104 / 20;
174 #X connect 0 0 4 0;
175 #X connect 1 0 5 0;
176 #X connect 2 0 4 1;
177 #X connect 3 0 5 1;
178 #X connect 4 0 21 0;
179 #X connect 5 0 20 0;
180 #X connect 6 0 9 0;
181 #X connect 7 0 9 1;
182 #X connect 8 0 10 0;
183 #X connect 8 0 11 0;
184 #X connect 8 0 12 1;
185 #X connect 9 0 8 0;
186 #X connect 12 0 15 0;
187 #X connect 15 0 13 0;
188 #X connect 15 0 16 0;
189 #X connect 16 0 19 0;
190 #X connect 19 0 17 0;
191 #X connect 19 0 18 0;
192 #X connect 20 0 7 0;
193 #X connect 20 0 7 1;
194 #X connect 21 0 6 0;
195 #X connect 21 0 6 1;
196 #X connect 21 0 12 0;
197 #X connect 21 0 14 0;
198 #X restore 703 183 pd posCalc;
199 #X obj 631 183 unpack f f;
200 #X obj 697 101 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
201 -1 -1;
202 #X floatatom 673 243 8 0 0 0 - - -;
203 #X msg 593 149 0;
204 #X msg 588 172 1;
205 #X obj 486 339 unpack f f;
206 #X obj 552 257 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
207 -1 -1;
208 #X floatatom 528 399 8 0 0 0 - - -;
209 #X msg 448 305 0;
210 #X msg 443 328 1;
211 #N canvas 317 45 445 395 posCalc 0;
212 #X obj 104 19 r xCurs;
213 #X obj 160 19 r yCurs;
214 #X obj 119 50 inlet;
215 #X obj 175 46 inlet;
216 #X obj 104 80 -;
217 #X obj 160 80 -;
218 #X obj 105 141 *;
219 #X obj 161 139 *;
220 #X obj 131 199 sqrt;
221 #X obj 131 173 +;
222 #X floatatom 78 233 5 0 0 0 - - -;
223 #X obj 131 232 outlet;
224 #X obj 254 135 /;
225 #X floatatom 316 186 9 0 0 0 - - -;
226 #X floatatom 46 147 5 0 0 0 - - -;
227 #X obj 254 162 expr acos($f1);
228 #X obj 254 186 * 360;
229 #X floatatom 315 238 5 0 0 0 - - -;
230 #X obj 254 243 outlet;
231 #X obj 254 210 / 6.28319;
232 #X obj 104 104 / 20;
233 #X obj 160 104 / 20;
234 #X connect 0 0 4 0;
235 #X connect 1 0 5 0;
236 #X connect 2 0 4 1;
237 #X connect 3 0 5 1;
238 #X connect 4 0 20 0;
239 #X connect 5 0 21 0;
240 #X connect 6 0 9 0;
241 #X connect 7 0 9 1;
242 #X connect 8 0 10 0;
243 #X connect 8 0 11 0;
244 #X connect 8 0 12 1;
245 #X connect 9 0 8 0;
246 #X connect 12 0 15 0;
247 #X connect 15 0 13 0;
248 #X connect 15 0 16 0;
249 #X connect 16 0 19 0;
250 #X connect 19 0 17 0;
251 #X connect 19 0 18 0;
252 #X connect 20 0 6 0;
253 #X connect 20 0 6 1;
254 #X connect 20 0 12 0;
255 #X connect 20 0 14 0;
256 #X connect 21 0 7 0;
257 #X connect 21 0 7 1;
258 #X restore 435 182 pd posCalc;
259 #N canvas 317 45 445 395 posCalc 0;
260 #X obj 104 19 r xCurs;
261 #X obj 160 19 r yCurs;
262 #X obj 119 50 inlet;
263 #X obj 175 46 inlet;
264 #X obj 104 80 -;
265 #X obj 160 80 -;
266 #X obj 105 141 *;
267 #X obj 161 139 *;
268 #X obj 131 199 sqrt;
269 #X obj 131 173 +;
270 #X floatatom 78 233 5 0 0 0 - - -;
271 #X obj 131 232 outlet;
272 #X obj 254 135 /;
273 #X floatatom 316 186 9 0 0 0 - - -;
274 #X floatatom 46 147 5 0 0 0 - - -;
275 #X obj 254 162 expr acos($f1);
276 #X obj 254 186 * 360;
277 #X floatatom 315 238 5 0 0 0 - - -;
278 #X obj 254 243 outlet;
279 #X obj 254 210 / 6.28319;
280 #X obj 160 104 / 20;
281 #X obj 104 104 / 20;
282 #X connect 0 0 4 0;
283 #X connect 1 0 5 0;
284 #X connect 2 0 4 1;
285 #X connect 3 0 5 1;
286 #X connect 4 0 21 0;
287 #X connect 5 0 20 0;
288 #X connect 6 0 9 0;
289 #X connect 7 0 9 1;
290 #X connect 8 0 10 0;
291 #X connect 8 0 11 0;
292 #X connect 8 0 12 1;
293 #X connect 9 0 8 0;
294 #X connect 12 0 15 0;
295 #X connect 15 0 13 0;
296 #X connect 15 0 16 0;
297 #X connect 16 0 19 0;
298 #X connect 19 0 17 0;
299 #X connect 19 0 18 0;
300 #X connect 20 0 7 0;
301 #X connect 20 0 7 1;
302 #X connect 21 0 6 0;
303 #X connect 21 0 6 1;
304 #X connect 21 0 12 0;
305 #X connect 21 0 14 0;
306 #X restore 558 338 pd posCalc;
307 #X msg 435 155 100.5;
308 #X msg 492 155 100.5;
309 #X msg 703 156 1100.5;
310 #X msg 760 156 150.5;
311 #X msg 558 312 640.5;
312 #X msg 615 312 650.5;
313 #X msg 363 154 300 0.0035;
314 #X msg 631 155 300 0.0012;
315 #X msg 486 311 300 0.00075;
316 #X obj 528 374 thisFreq;
317 #X obj 673 218 thisFreq;
318 #X obj 405 217 thisFreq;
319 #X msg 877 -99 connect localhost 9001;
320 #X obj 877 4 udpsend;
321 #X obj 981 -20 packOSC;
322 #X obj 793 -140 import mrpeach;
323 #X floatatom 982 -67 5 0 0 0 - - -;
324 #X msg 982 -45 send /test \$1;
325 #X obj 761 -79 udpreceive 9000;
326 #X obj 761 -52 unpackOSC;
327 #X obj 794 -20 print;
328 #X floatatom 767 41 5 0 0 0 - - -;
329 #X floatatom 648 48 5 0 0 0 - - -;
330 #X obj 766 5 OSCroute /playerX;
331 #X obj 648 5 OSCroute /playerZ;
332 #X floatatom 808 78 5 0 0 0 - - -;
333 #X floatatom 862 131 5 0 0 0 - - -;
334 #X obj 807 42 OSCroute /cylinderLX;
335 #X obj 861 81 OSCroute /cylinderLZ;
336 #X obj 564 -5 unpackOSC;
337 #X obj 564 38 print;
338 #X obj 564 -28 udpreceive 9002;
339 #X connect 0 0 25 0;
340 #X connect 16 0 31 0;
341 #X connect 18 0 33 0;
342 #X connect 20 0 25 1;
343 #X connect 20 0 26 1;
344 #X connect 21 0 24 0;
345 #X connect 22 0 21 0;
346 #X connect 23 0 22 0;
347 #X connect 25 0 26 0;
348 #X connect 26 0 19 0;
349 #X connect 26 0 21 0;
350 #X connect 31 0 14 0;
351 #X connect 31 1 15 0;
352 #X connect 32 0 23 0;
353 #X connect 33 0 16 0;
354 #X connect 36 0 37 0;
355 #X connect 37 0 38 0;
356 #X connect 38 0 39 0;
357 #X connect 39 0 40 0;
358 #X connect 39 0 42 0;
359 #X connect 39 1 41 0;
360 #X connect 39 1 43 0;
361 #X connect 44 0 73 2;
362 #X connect 44 1 73 3;
363 #X connect 45 0 68 0;
364 #X connect 45 0 62 0;
365 #X connect 45 0 63 0;
366 #X connect 47 0 73 1;
367 #X connect 48 0 73 1;
368 #X connect 49 0 72 5;
369 #X connect 49 1 72 4;
370 #X connect 50 0 72 2;
371 #X connect 50 1 72 3;
372 #X connect 51 0 69 0;
373 #X connect 51 0 64 0;
374 #X connect 51 0 65 0;
375 #X connect 53 0 72 1;
376 #X connect 54 0 72 1;
377 #X connect 55 0 71 2;
378 #X connect 55 1 71 3;
379 #X connect 56 0 70 0;
380 #X connect 56 0 66 0;
381 #X connect 56 0 67 0;
382 #X connect 58 0 71 1;
383 #X connect 59 0 71 1;
384 #X connect 60 0 73 5;
385 #X connect 60 1 73 4;
386 #X connect 61 0 71 5;
387 #X connect 61 1 71 4;
388 #X connect 62 0 60 0;
389 #X connect 63 0 60 1;
390 #X connect 64 0 49 0;
391 #X connect 65 0 49 1;
392 #X connect 66 0 61 0;
393 #X connect 67 0 61 1;
394 #X connect 68 0 44 0;
395 #X connect 69 0 50 0;
396 #X connect 70 0 55 0;
397 #X connect 71 0 57 0;
398 #X connect 72 0 52 0;
399 #X connect 73 0 46 0;
400 #X connect 74 0 75 0;
401 #X connect 76 0 75 0;
402 #X connect 78 0 79 0;
403 #X connect 79 0 76 0;
404 #X connect 80 0 81 0;
405 #X connect 81 0 85 0;
406 #X connect 81 0 86 0;
407 #X connect 81 0 89 0;
408 #X connect 81 0 90 0;
409 #X connect 81 0 82 0;
410 #X connect 85 0 83 0;
411 #X connect 86 0 84 0;
412 #X connect 89 0 87 0;
413 #X connect 90 0 88 0;
414 #X connect 93 0 91 0;