Mercurial > hg > weather-synthesis-prototyping
diff June/Gen2_D2.pd @ 117:3f2588a64b25
merged
author | Roderick Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Sat, 01 Aug 2015 05:48:03 +0100 |
parents | 00df473dba2c |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/June/Gen2_D2.pd Sat Aug 01 05:48:03 2015 +0100 @@ -0,0 +1,414 @@ +#N canvas 284 207 1102 758 10; +#X declare -lib mrpeach; +#N canvas 236 158 426 423 windspeed 0; +#X obj 3 -19 +~ 1; +#X obj 3 76 +~; +#X obj 3 3 *~ 0.25; +#X obj 19 53 +~; +#X obj 3 98 clip~ 0 1; +#N canvas 548 156 136 193 squall 0; +#X obj 63 20 noise~; +#X obj 63 83 hip~ 0; +#X obj 63 41 lop~ 3; +#X obj 63 62 lop~ 3; +#X obj 0 86 *~; +#X obj 22 130 *~; +#X obj 0 20 max~ 0.4; +#X obj 0 42 -~ 0.4; +#X obj 0 64 *~ 8; +#X obj 63 104 *~ 20; +#X obj 0 0 inlet~; +#X obj 22 154 outlet~; +#X connect 0 0 2 0; +#X connect 1 0 9 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 4 0 5 0; +#X connect 5 0 11 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 4 0; +#X connect 8 0 4 1; +#X connect 9 0 5 1; +#X connect 10 0 6 0; +#X restore 77 28 pd squall; +#N canvas 398 157 136 192 gust 0; +#X obj 0 0 noise~; +#X obj 0 63 hip~ 0; +#X obj 0 106 *~; +#X obj 67 44 *~; +#X obj 67 21 +~ 0.5; +#X obj 67 67 -~ 0.125; +#X obj 0 42 lop~ 0.5; +#X obj 0 21 lop~ 0.5; +#X obj 0 84 *~ 50; +#X obj 67 0 inlet~; +#X obj 0 131 outlet~; +#X connect 0 0 7 0; +#X connect 1 0 8 0; +#X connect 2 0 10 0; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 4 0 3 1; +#X connect 5 0 2 1; +#X connect 6 0 1 0; +#X connect 7 0 6 0; +#X connect 8 0 2 0; +#X connect 9 0 4 0; +#X restore 18 29 pd gust; +#X obj 3 120 outlet~; +#X obj 3 -41 osc~ 0.01; +#X connect 0 0 2 0; +#X connect 1 0 4 0; +#X connect 2 0 5 0; +#X connect 2 0 6 0; +#X connect 2 0 1 0; +#X connect 3 0 1 1; +#X connect 4 0 7 0; +#X connect 5 0 3 1; +#X connect 6 0 3 0; +#X connect 8 0 0 0; +#X restore 260 -116 pd windspeed; +#X text 24 15 Light air = 0.56 m/s - 1.39 m/s; +#X text 24 37 Light Breeze = 1.67 m/s - 3.33 m/s; +#X text 24 57 Gentle Breeze = 3.61 m/s - 5.56 m/s; +#X text 24 77 Moderate Breeze = 5.83 m/s - 8.33 m/s; +#X text 25 98 Fresh Breeze = 8.61 m/s - 11.11 m/s; +#X text 24 119 Strong Breeze = 11.39 m/s - 13.89 m/s; +#X text 25 139 Moderate Gale = 14.17 m/s - 16.94 m/s; +#X text 26 159 Fresh Gale = 17.22 m/s - 20.56 m/s; +#X text 25 179 Strong Gale = 20.83 m/s - 24.72 m/s; +#X text 25 197 Whole Gale = 25 m/s - 28.61 m/s; +#X text 25 217 Storm = 28.89 m/s - 33.06 m/s; +#X text 26 235 Hurricane = 33.33 -; +#X text 62 -16 Beaufort Scale Chart; +#X obj 56 429 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 119 429 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 210 429 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144 +-1 -1 500 1; +#X text 239 448 Gain; +#X obj 210 365 loadbang; +#X obj 260 78 delwrite~ varwind 3000; +#X obj 343 -114 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 303 -11 snapshot~; +#X obj 303 -36 metro 100; +#X obj 303 -58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 303 16 10 0 0 0 - - -; +#X obj 260 -82 *~ 1; +#X obj 260 -56 +~ 1; +#X text 107 274 Equations from Chanaud 2010; +#X text 20 339 Frequency = (Strouhal Number * Velocity) / Distance +; +#X text 19 299 Reynolds Number = (Density * Velocity * Length) / Viscosity +; +#X text 19 319 Strouhal Number = 0.198 * (1 - (19.7/ Reynolds Number)) +; +#N canvas 865 368 293 255 opLevels 0; +#X obj 88 129 dac~; +#X obj 64 70 catch~ l; +#X obj 128 70 catch~ r; +#X obj 129 104 *~ 0.45; +#X obj 65 104 *~ 0.45; +#X obj 65 154 prvu~; +#X obj 129 155 prvu~; +#X obj 186 75 / 127; +#X obj 186 40 inlet; +#X obj 65 183 outlet; +#X obj 129 183 outlet; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 0 1; +#X connect 3 0 6 0; +#X connect 4 0 0 0; +#X connect 4 0 5 0; +#X connect 5 0 9 0; +#X connect 6 0 10 0; +#X connect 7 0 3 1; +#X connect 7 0 4 1; +#X connect 8 0 7 0; +#X restore 55 386 pd opLevels; +#X obj 303 -83 loadbang; +#X msg 210 393 5; +#X text 300 34 Wind Speed; +#X text 487 -70 Diameter; +#X obj 374 431 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 374 457 cursor; +#X obj 374 481 route motion; +#X obj 374 509 route x y; +#X floatatom 334 562 5 0 0 0 - - -; +#X floatatom 466 539 5 0 0 0 - - -; +#X obj 374 563 s xCurs; +#X obj 399 543 s yCurs; +#X obj 363 182 unpack f f; +#X obj 429 100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 405 242 8 0 0 0 - - -; +#X msg 325 148 0; +#X msg 320 171 1; +#N canvas 317 45 445 395 posCalc 0; +#X obj 104 19 r xCurs; +#X obj 160 19 r yCurs; +#X obj 119 50 inlet; +#X obj 175 46 inlet; +#X obj 104 80 -; +#X obj 160 80 -; +#X obj 105 141 *; +#X obj 161 139 *; +#X obj 131 199 sqrt; +#X obj 131 173 +; +#X floatatom 78 233 5 0 0 0 - - -; +#X obj 131 232 outlet; +#X obj 254 135 /; +#X floatatom 316 186 9 0 0 0 - - -; +#X floatatom 46 147 5 0 0 0 - - -; +#X obj 254 162 expr acos($f1); +#X obj 254 186 * 360; +#X floatatom 315 238 5 0 0 0 - - -; +#X obj 254 243 outlet; +#X obj 254 210 / 6.28319; +#X obj 160 104 / 20; +#X obj 104 104 / 20; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 4 1; +#X connect 3 0 5 1; +#X connect 4 0 21 0; +#X connect 5 0 20 0; +#X connect 6 0 9 0; +#X connect 7 0 9 1; +#X connect 8 0 10 0; +#X connect 8 0 11 0; +#X connect 8 0 12 1; +#X connect 9 0 8 0; +#X connect 12 0 15 0; +#X connect 15 0 13 0; +#X connect 15 0 16 0; +#X connect 16 0 19 0; +#X connect 19 0 17 0; +#X connect 19 0 18 0; +#X connect 20 0 7 0; +#X connect 20 0 7 1; +#X connect 21 0 6 0; +#X connect 21 0 6 1; +#X connect 21 0 12 0; +#X connect 21 0 14 0; +#X restore 703 183 pd posCalc; +#X obj 631 183 unpack f f; +#X obj 697 101 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 673 243 8 0 0 0 - - -; +#X msg 593 149 0; +#X msg 588 172 1; +#X obj 486 339 unpack f f; +#X obj 552 257 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 528 399 8 0 0 0 - - -; +#X msg 448 305 0; +#X msg 443 328 1; +#N canvas 317 45 445 395 posCalc 0; +#X obj 104 19 r xCurs; +#X obj 160 19 r yCurs; +#X obj 119 50 inlet; +#X obj 175 46 inlet; +#X obj 104 80 -; +#X obj 160 80 -; +#X obj 105 141 *; +#X obj 161 139 *; +#X obj 131 199 sqrt; +#X obj 131 173 +; +#X floatatom 78 233 5 0 0 0 - - -; +#X obj 131 232 outlet; +#X obj 254 135 /; +#X floatatom 316 186 9 0 0 0 - - -; +#X floatatom 46 147 5 0 0 0 - - -; +#X obj 254 162 expr acos($f1); +#X obj 254 186 * 360; +#X floatatom 315 238 5 0 0 0 - - -; +#X obj 254 243 outlet; +#X obj 254 210 / 6.28319; +#X obj 104 104 / 20; +#X obj 160 104 / 20; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 4 1; +#X connect 3 0 5 1; +#X connect 4 0 20 0; +#X connect 5 0 21 0; +#X connect 6 0 9 0; +#X connect 7 0 9 1; +#X connect 8 0 10 0; +#X connect 8 0 11 0; +#X connect 8 0 12 1; +#X connect 9 0 8 0; +#X connect 12 0 15 0; +#X connect 15 0 13 0; +#X connect 15 0 16 0; +#X connect 16 0 19 0; +#X connect 19 0 17 0; +#X connect 19 0 18 0; +#X connect 20 0 6 0; +#X connect 20 0 6 1; +#X connect 20 0 12 0; +#X connect 20 0 14 0; +#X connect 21 0 7 0; +#X connect 21 0 7 1; +#X restore 435 182 pd posCalc; +#N canvas 317 45 445 395 posCalc 0; +#X obj 104 19 r xCurs; +#X obj 160 19 r yCurs; +#X obj 119 50 inlet; +#X obj 175 46 inlet; +#X obj 104 80 -; +#X obj 160 80 -; +#X obj 105 141 *; +#X obj 161 139 *; +#X obj 131 199 sqrt; +#X obj 131 173 +; +#X floatatom 78 233 5 0 0 0 - - -; +#X obj 131 232 outlet; +#X obj 254 135 /; +#X floatatom 316 186 9 0 0 0 - - -; +#X floatatom 46 147 5 0 0 0 - - -; +#X obj 254 162 expr acos($f1); +#X obj 254 186 * 360; +#X floatatom 315 238 5 0 0 0 - - -; +#X obj 254 243 outlet; +#X obj 254 210 / 6.28319; +#X obj 160 104 / 20; +#X obj 104 104 / 20; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 4 1; +#X connect 3 0 5 1; +#X connect 4 0 21 0; +#X connect 5 0 20 0; +#X connect 6 0 9 0; +#X connect 7 0 9 1; +#X connect 8 0 10 0; +#X connect 8 0 11 0; +#X connect 8 0 12 1; +#X connect 9 0 8 0; +#X connect 12 0 15 0; +#X connect 15 0 13 0; +#X connect 15 0 16 0; +#X connect 16 0 19 0; +#X connect 19 0 17 0; +#X connect 19 0 18 0; +#X connect 20 0 7 0; +#X connect 20 0 7 1; +#X connect 21 0 6 0; +#X connect 21 0 6 1; +#X connect 21 0 12 0; +#X connect 21 0 14 0; +#X restore 558 338 pd posCalc; +#X msg 435 155 100.5; +#X msg 492 155 100.5; +#X msg 703 156 1100.5; +#X msg 760 156 150.5; +#X msg 558 312 640.5; +#X msg 615 312 650.5; +#X msg 363 154 300 0.0035; +#X msg 631 155 300 0.0012; +#X msg 486 311 300 0.00075; +#X obj 528 374 thisFreq; +#X obj 673 218 thisFreq; +#X obj 405 217 thisFreq; +#X msg 877 -99 connect localhost 9001; +#X obj 877 4 udpsend; +#X obj 981 -20 packOSC; +#X obj 793 -140 import mrpeach; +#X floatatom 982 -67 5 0 0 0 - - -; +#X msg 982 -45 send /test \$1; +#X obj 761 -79 udpreceive 9000; +#X obj 761 -52 unpackOSC; +#X obj 794 -20 print; +#X floatatom 767 41 5 0 0 0 - - -; +#X floatatom 648 48 5 0 0 0 - - -; +#X obj 766 5 OSCroute /playerX; +#X obj 648 5 OSCroute /playerZ; +#X floatatom 808 78 5 0 0 0 - - -; +#X floatatom 862 131 5 0 0 0 - - -; +#X obj 807 42 OSCroute /cylinderLX; +#X obj 861 81 OSCroute /cylinderLZ; +#X obj 564 -5 unpackOSC; +#X obj 564 38 print; +#X obj 564 -28 udpreceive 9002; +#X connect 0 0 25 0; +#X connect 16 0 31 0; +#X connect 18 0 33 0; +#X connect 20 0 25 1; +#X connect 20 0 26 1; +#X connect 21 0 24 0; +#X connect 22 0 21 0; +#X connect 23 0 22 0; +#X connect 25 0 26 0; +#X connect 26 0 19 0; +#X connect 26 0 21 0; +#X connect 31 0 14 0; +#X connect 31 1 15 0; +#X connect 32 0 23 0; +#X connect 33 0 16 0; +#X connect 36 0 37 0; +#X connect 37 0 38 0; +#X connect 38 0 39 0; +#X connect 39 0 40 0; +#X connect 39 0 42 0; +#X connect 39 1 41 0; +#X connect 39 1 43 0; +#X connect 44 0 73 2; +#X connect 44 1 73 3; +#X connect 45 0 68 0; +#X connect 45 0 62 0; +#X connect 45 0 63 0; +#X connect 47 0 73 1; +#X connect 48 0 73 1; +#X connect 49 0 72 5; +#X connect 49 1 72 4; +#X connect 50 0 72 2; +#X connect 50 1 72 3; +#X connect 51 0 69 0; +#X connect 51 0 64 0; +#X connect 51 0 65 0; +#X connect 53 0 72 1; +#X connect 54 0 72 1; +#X connect 55 0 71 2; +#X connect 55 1 71 3; +#X connect 56 0 70 0; +#X connect 56 0 66 0; +#X connect 56 0 67 0; +#X connect 58 0 71 1; +#X connect 59 0 71 1; +#X connect 60 0 73 5; +#X connect 60 1 73 4; +#X connect 61 0 71 5; +#X connect 61 1 71 4; +#X connect 62 0 60 0; +#X connect 63 0 60 1; +#X connect 64 0 49 0; +#X connect 65 0 49 1; +#X connect 66 0 61 0; +#X connect 67 0 61 1; +#X connect 68 0 44 0; +#X connect 69 0 50 0; +#X connect 70 0 55 0; +#X connect 71 0 57 0; +#X connect 72 0 52 0; +#X connect 73 0 46 0; +#X connect 74 0 75 0; +#X connect 76 0 75 0; +#X connect 78 0 79 0; +#X connect 79 0 76 0; +#X connect 80 0 81 0; +#X connect 81 0 85 0; +#X connect 81 0 86 0; +#X connect 81 0 89 0; +#X connect 81 0 90 0; +#X connect 81 0 82 0; +#X connect 85 0 83 0; +#X connect 86 0 84 0; +#X connect 89 0 87 0; +#X connect 90 0 88 0; +#X connect 93 0 91 0;