Mercurial > hg > weather-synthesis-prototyping

annotate June/Gen2_D2.pd @ 47:a5a457d56a39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cursor track added
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 01 Jun 2015 13:14:10 +0100
parents 9bc0e269d5e8
children 4b14b2a355e9
rev   line source
r@47 1 #N canvas 206 23 830 745 10;
r@46 2 #N canvas 236 158 426 423 windspeed 0;
r@46 3 #X obj 3 -19 +~ 1;
r@46 4 #X obj 3 76 +~;
r@46 5 #X obj 3 3 *~ 0.25;
r@46 6 #X obj 19 53 +~;
r@46 7 #X obj 3 98 clip~ 0 1;
r@46 8 #N canvas 548 156 136 193 squall 0;
r@46 9 #X obj 63 20 noise~;
r@46 10 #X obj 63 83 hip~ 0;
r@46 11 #X obj 63 41 lop~ 3;
r@46 12 #X obj 63 62 lop~ 3;
r@46 13 #X obj 0 86 *~;
r@46 14 #X obj 22 130 *~;
r@46 15 #X obj 0 20 max~ 0.4;
r@46 16 #X obj 0 42 -~ 0.4;
r@46 17 #X obj 0 64 *~ 8;
r@46 18 #X obj 63 104 *~ 20;
r@46 19 #X obj 0 0 inlet~;
r@46 20 #X obj 22 154 outlet~;
r@46 21 #X connect 0 0 2 0;
r@46 22 #X connect 1 0 9 0;
r@46 23 #X connect 2 0 3 0;
r@46 24 #X connect 3 0 1 0;
r@46 25 #X connect 4 0 5 0;
r@46 26 #X connect 5 0 11 0;
r@46 27 #X connect 6 0 7 0;
r@46 28 #X connect 7 0 8 0;
r@46 29 #X connect 8 0 4 0;
r@46 30 #X connect 8 0 4 1;
r@46 31 #X connect 9 0 5 1;
r@46 32 #X connect 10 0 6 0;
r@46 33 #X restore 77 28 pd squall;
r@46 34 #N canvas 398 157 136 192 gust 0;
r@46 35 #X obj 0 0 noise~;
r@46 36 #X obj 0 63 hip~ 0;
r@46 37 #X obj 0 106 *~;
r@46 38 #X obj 67 44 *~;
r@46 39 #X obj 67 21 +~ 0.5;
r@46 40 #X obj 67 67 -~ 0.125;
r@46 41 #X obj 0 42 lop~ 0.5;
r@46 42 #X obj 0 21 lop~ 0.5;
r@46 43 #X obj 0 84 *~ 50;
r@46 44 #X obj 67 0 inlet~;
r@46 45 #X obj 0 131 outlet~;
r@46 46 #X connect 0 0 7 0;
r@46 47 #X connect 1 0 8 0;
r@46 48 #X connect 2 0 10 0;
r@46 49 #X connect 3 0 5 0;
r@46 50 #X connect 4 0 3 0;
r@46 51 #X connect 4 0 3 1;
r@46 52 #X connect 5 0 2 1;
r@46 53 #X connect 6 0 1 0;
r@46 54 #X connect 7 0 6 0;
r@46 55 #X connect 8 0 2 0;
r@46 56 #X connect 9 0 4 0;
r@46 57 #X restore 18 29 pd gust;
r@46 58 #X obj 3 120 outlet~;
r@46 59 #X obj 3 -41 osc~ 0.01;
r@46 60 #X connect 0 0 2 0;
r@46 61 #X connect 1 0 4 0;
r@46 62 #X connect 2 0 5 0;
r@46 63 #X connect 2 0 6 0;
r@46 64 #X connect 2 0 1 0;
r@46 65 #X connect 3 0 1 1;
r@46 66 #X connect 4 0 7 0;
r@46 67 #X connect 5 0 3 1;
r@46 68 #X connect 6 0 3 0;
r@46 69 #X connect 8 0 0 0;
r@46 70 #X restore 260 -116 pd windspeed;
r@46 71 #X text 24 15 Light air = 0.56 m/s - 1.39 m/s;
r@46 72 #X text 24 37 Light Breeze = 1.67 m/s - 3.33 m/s;
r@46 73 #X text 24 57 Gentle Breeze = 3.61 m/s - 5.56 m/s;
r@46 74 #X text 24 77 Moderate Breeze = 5.83 m/s - 8.33 m/s;
r@46 75 #X text 25 98 Fresh Breeze = 8.61 m/s - 11.11 m/s;
r@46 76 #X text 24 119 Strong Breeze = 11.39 m/s - 13.89 m/s;
r@46 77 #X text 25 139 Moderate Gale = 14.17 m/s - 16.94 m/s;
r@46 78 #X text 26 159 Fresh Gale = 17.22 m/s - 20.56 m/s;
r@46 79 #X text 25 179 Strong Gale = 20.83 m/s - 24.72 m/s;
r@46 80 #X text 25 197 Whole Gale = 25 m/s - 28.61 m/s;
r@46 81 #X text 25 217 Storm = 28.89 m/s - 33.06 m/s;
r@46 82 #X text 26 235 Hurricane = 33.33 -;
r@46 83 #X text 62 -16 Beaufort Scale Chart;
r@46 84 #X obj 56 429 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@46 85 #X obj 119 429 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@46 86 #X obj 210 429 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
r@47 87 -1 -1 6700 1;
r@46 88 #X text 239 448 Gain;
r@46 89 #X obj 210 365 loadbang;
r@46 90 #X obj 260 78 delwrite~ varwind 3000;
r@46 91 #X obj 343 -114 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
r@47 92 -1 -1 6900 1;
r@46 93 #X obj 303 -11 snapshot~;
r@46 94 #X obj 303 -36 metro 100;
r@46 95 #X obj 303 -58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@46 96 1;
r@46 97 #X floatatom 303 16 10 0 0 0 - - -;
r@46 98 #X obj 260 -82 *~ 1;
r@46 99 #X obj 260 -56 +~ 1;
r@46 100 #X text 107 274 Equations from Chanaud 2010;
r@46 101 #X text 20 339 Frequency = (Strouhal Number * Velocity) / Distance
r@46 102 ;
r@46 103 #X text 19 299 Reynolds Number = (Density * Velocity * Length) / Viscosity
r@46 104 ;
r@46 105 #X text 19 319 Strouhal Number = 0.198 * (1 - (19.7/ Reynolds Number))
r@46 106 ;
r@46 107 #N canvas 865 368 293 255 opLevels 0;
r@46 108 #X obj 88 129 dac~;
r@46 109 #X obj 64 70 catch~ l;
r@46 110 #X obj 128 70 catch~ r;
r@46 111 #X obj 129 104 *~ 0.45;
r@46 112 #X obj 65 104 *~ 0.45;
r@46 113 #X obj 65 154 prvu~;
r@46 114 #X obj 129 155 prvu~;
r@46 115 #X obj 186 75 / 127;
r@46 116 #X obj 186 40 inlet;
r@46 117 #X obj 65 183 outlet;
r@46 118 #X obj 129 183 outlet;
r@46 119 #X connect 1 0 4 0;
r@46 120 #X connect 2 0 3 0;
r@46 121 #X connect 3 0 0 1;
r@46 122 #X connect 3 0 6 0;
r@46 123 #X connect 4 0 0 0;
r@46 124 #X connect 4 0 5 0;
r@46 125 #X connect 5 0 9 0;
r@46 126 #X connect 6 0 10 0;
r@46 127 #X connect 7 0 3 1;
r@46 128 #X connect 7 0 4 1;
r@46 129 #X connect 8 0 7 0;
r@46 130 #X restore 55 386 pd opLevels;
r@46 131 #X obj 303 -83 loadbang;
r@46 132 #X msg 210 393 5;
r@46 133 #X text 300 34 Wind Speed;
r@46 134 #X text 487 -70 Diameter;
r@46 135 #X obj 405 217 thisFreq;
r@47 136 #X obj 374 431 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@47 137 1;
r@47 138 #X obj 374 457 cursor;
r@47 139 #X obj 374 481 route motion;
r@47 140 #X obj 374 509 route x y;
r@47 141 #X floatatom 334 562 5 0 0 0 - - -;
r@47 142 #X floatatom 466 539 5 0 0 0 - - -;
r@47 143 #X obj 374 563 s xCurs;
r@47 144 #X obj 399 543 s yCurs;
r@47 145 #N canvas 487 70 461 333 posCalc 0;
r@47 146 #X obj 102 -1 r xCurs;
r@47 147 #X obj 156 0 r yCurs;
r@47 148 #X obj 102 27 t b f;
r@47 149 #X obj 51 22 inlet;
r@47 150 #X obj 220 16 inlet;
r@47 151 #X obj 104 80 -;
r@47 152 #X obj 160 80 -;
r@47 153 #X obj 156 29 t b f;
r@47 154 #X obj 105 141 *;
r@47 155 #X obj 161 139 *;
r@47 156 #X obj 131 199 sqrt;
r@47 157 #X msg 51 57 100;
r@47 158 #X msg 220 54 100;
r@47 159 #X obj 131 173 +;
r@47 160 #X floatatom 78 233 5 0 0 0 - - -;
r@47 161 #X obj 104 104 / 10;
r@47 162 #X obj 160 104 / 10;
r@47 163 #X obj 131 232 outlet;
r@47 164 #X obj 254 135 /;
r@47 165 #X floatatom 316 186 9 0 0 0 - - -;
r@47 166 #X floatatom 46 147 5 0 0 0 - - -;
r@47 167 #X obj 254 162 expr acos($f1);
r@47 168 #X obj 254 186 * 360;
r@47 169 #X obj 254 210 / 6.28319;
r@47 170 #X floatatom 315 238 5 0 0 0 - - -;
r@47 171 #X obj 254 234 outlet;
r@47 172 #X connect 0 0 2 0;
r@47 173 #X connect 1 0 7 0;
r@47 174 #X connect 2 0 11 0;
r@47 175 #X connect 2 1 5 0;
r@47 176 #X connect 5 0 15 0;
r@47 177 #X connect 6 0 16 0;
r@47 178 #X connect 7 0 12 0;
r@47 179 #X connect 7 1 6 0;
r@47 180 #X connect 8 0 13 0;
r@47 181 #X connect 9 0 13 1;
r@47 182 #X connect 10 0 14 0;
r@47 183 #X connect 10 0 17 0;
r@47 184 #X connect 10 0 18 1;
r@47 185 #X connect 11 0 5 1;
r@47 186 #X connect 12 0 6 1;
r@47 187 #X connect 13 0 10 0;
r@47 188 #X connect 15 0 8 0;
r@47 189 #X connect 15 0 8 1;
r@47 190 #X connect 15 0 18 0;
r@47 191 #X connect 15 0 20 0;
r@47 192 #X connect 16 0 9 0;
r@47 193 #X connect 16 0 9 1;
r@47 194 #X connect 18 0 21 0;
r@47 195 #X connect 21 0 19 0;
r@47 196 #X connect 21 0 22 0;
r@47 197 #X connect 22 0 23 0;
r@47 198 #X connect 23 0 24 0;
r@47 199 #X connect 23 0 25 0;
r@47 200 #X restore 435 182 pd posCalc;
r@47 201 #X msg 435 155 100;
r@47 202 #X msg 492 155 100;
r@47 203 #X msg 363 154 300 0.0035;
r@47 204 #X obj 363 182 unpack f f;
r@46 205 #X connect 0 0 25 0;
r@46 206 #X connect 16 0 31 0;
r@46 207 #X connect 18 0 33 0;
r@46 208 #X connect 20 0 25 1;
r@46 209 #X connect 20 0 26 1;
r@46 210 #X connect 21 0 24 0;
r@46 211 #X connect 22 0 21 0;
r@46 212 #X connect 23 0 22 0;
r@46 213 #X connect 25 0 26 0;
r@46 214 #X connect 26 0 19 0;
r@46 215 #X connect 26 0 21 0;
r@46 216 #X connect 31 0 14 0;
r@46 217 #X connect 31 1 15 0;
r@46 218 #X connect 32 0 23 0;
r@46 219 #X connect 33 0 16 0;
r@47 220 #X connect 37 0 38 0;
r@47 221 #X connect 38 0 39 0;
r@47 222 #X connect 39 0 40 0;
r@47 223 #X connect 40 0 41 0;
r@47 224 #X connect 40 0 43 0;
r@47 225 #X connect 40 1 42 0;
r@47 226 #X connect 40 1 44 0;
r@47 227 #X connect 45 0 36 2;
r@47 228 #X connect 45 1 36 3;
r@47 229 #X connect 46 0 45 0;
r@47 230 #X connect 47 0 45 1;
r@47 231 #X connect 48 0 49 0;
r@47 232 #X connect 49 0 36 0;
r@47 233 #X connect 49 1 36 1;