Mercurial > hg > weather-synthesis-prototyping

annotate June/Gen2_D1.pd @ 40:ca1ee52af944

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Progressed the model to now working at audio control rate
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 29 May 2015 15:22:13 +0100
parents d68252f8dd6d
children 52511c74c3f1
rev   line source
r@40 1 #N canvas 6 90 872 721 10;
r@39 2 #N canvas 236 158 426 423 windspeed 0;
r@39 3 #X obj 3 -19 +~ 1;
r@39 4 #X obj 3 76 +~;
r@39 5 #X obj 3 3 *~ 0.25;
r@39 6 #X obj 19 53 +~;
r@39 7 #X obj 3 98 clip~ 0 1;
r@39 8 #N canvas 548 156 136 193 squall 0;
r@39 9 #X obj 63 20 noise~;
r@39 10 #X obj 63 83 hip~ 0;
r@39 11 #X obj 63 41 lop~ 3;
r@39 12 #X obj 63 62 lop~ 3;
r@39 13 #X obj 0 86 *~;
r@39 14 #X obj 22 130 *~;
r@39 15 #X obj 0 20 max~ 0.4;
r@39 16 #X obj 0 42 -~ 0.4;
r@39 17 #X obj 0 64 *~ 8;
r@39 18 #X obj 63 104 *~ 20;
r@39 19 #X obj 0 0 inlet~;
r@39 20 #X obj 22 154 outlet~;
r@39 21 #X connect 0 0 2 0;
r@39 22 #X connect 1 0 9 0;
r@39 23 #X connect 2 0 3 0;
r@39 24 #X connect 3 0 1 0;
r@39 25 #X connect 4 0 5 0;
r@39 26 #X connect 5 0 11 0;
r@39 27 #X connect 6 0 7 0;
r@39 28 #X connect 7 0 8 0;
r@39 29 #X connect 8 0 4 0;
r@39 30 #X connect 8 0 4 1;
r@39 31 #X connect 9 0 5 1;
r@39 32 #X connect 10 0 6 0;
r@39 33 #X restore 77 28 pd squall;
r@39 34 #N canvas 398 157 136 192 gust 0;
r@39 35 #X obj 0 0 noise~;
r@39 36 #X obj 0 63 hip~ 0;
r@39 37 #X obj 0 106 *~;
r@39 38 #X obj 67 44 *~;
r@39 39 #X obj 67 21 +~ 0.5;
r@39 40 #X obj 67 67 -~ 0.125;
r@39 41 #X obj 0 42 lop~ 0.5;
r@39 42 #X obj 0 21 lop~ 0.5;
r@39 43 #X obj 0 84 *~ 50;
r@39 44 #X obj 67 0 inlet~;
r@39 45 #X obj 0 131 outlet~;
r@39 46 #X connect 0 0 7 0;
r@39 47 #X connect 1 0 8 0;
r@39 48 #X connect 2 0 10 0;
r@39 49 #X connect 3 0 5 0;
r@39 50 #X connect 4 0 3 0;
r@39 51 #X connect 4 0 3 1;
r@39 52 #X connect 5 0 2 1;
r@39 53 #X connect 6 0 1 0;
r@39 54 #X connect 7 0 6 0;
r@39 55 #X connect 8 0 2 0;
r@39 56 #X connect 9 0 4 0;
r@39 57 #X restore 18 29 pd gust;
r@39 58 #X obj 3 120 outlet~;
r@39 59 #X obj 3 -41 osc~ 0.01;
r@39 60 #X connect 0 0 2 0;
r@39 61 #X connect 1 0 4 0;
r@39 62 #X connect 2 0 5 0;
r@39 63 #X connect 2 0 6 0;
r@39 64 #X connect 2 0 1 0;
r@39 65 #X connect 3 0 1 1;
r@39 66 #X connect 4 0 7 0;
r@39 67 #X connect 5 0 3 1;
r@39 68 #X connect 6 0 3 0;
r@39 69 #X connect 8 0 0 0;
r@40 70 #X restore 250 -76 pd windspeed;
r@39 71 #X text 14 5 Light air = 0.56 m/s - 1.39 m/s;
r@39 72 #X text 14 27 Light Breeze = 1.67 m/s - 3.33 m/s;
r@39 73 #X text 14 47 Gentle Breeze = 3.61 m/s - 5.56 m/s;
r@39 74 #X text 14 67 Moderate Breeze = 5.83 m/s - 8.33 m/s;
r@39 75 #X text 15 88 Fresh Breeze = 8.61 m/s - 11.11 m/s;
r@39 76 #X text 14 109 Strong Breeze = 11.39 m/s - 13.89 m/s;
r@39 77 #X text 15 129 Moderate Gale = 14.17 m/s - 16.94 m/s;
r@39 78 #X text 16 149 Fresh Gale = 17.22 m/s - 20.56 m/s;
r@39 79 #X text 15 169 Strong Gale = 20.83 m/s - 24.72 m/s;
r@39 80 #X text 15 187 Whole Gale = 25 m/s - 28.61 m/s;
r@39 81 #X text 15 207 Storm = 28.89 m/s - 33.06 m/s;
r@39 82 #X text 16 225 Hurricane = 33.33 -;
r@39 83 #X text 52 -26 Beaufort Scale Chart;
r@40 84 #X obj 392 125 thisFreq;
r@40 85 #X obj 46 419 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@40 86 #X obj 109 419 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@40 87 #X obj 200 419 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
r@40 88 -1 -1 5400 1;
r@40 89 #X text 229 438 Gain;
r@40 90 #X msg 200 383 25;
r@40 91 #X obj 200 355 loadbang;
r@40 92 #X obj 250 28 delwrite~ varwind 3000;
r@40 93 #X obj 351 -78 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
r@40 94 -1 -1 1800 1;
r@40 95 #X obj 402 -9 snapshot~;
r@40 96 #X obj 402 -34 metro 100;
r@40 97 #X obj 402 -56 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@40 98 1;
r@40 99 #X floatatom 402 18 10 0 0 0 - - -;
r@40 100 #X obj 250 -37 *~ 1;
r@40 101 #X obj 250 -11 +~ 1;
r@40 102 #X text 97 264 Equations from Chanaud 2010;
r@40 103 #X text 10 329 Frequency = (Strouhal Number * Velocity) / Distance
r@40 104 ;
r@40 105 #X text 9 289 Reynolds Number = (Density * Velocity * Length) / Viscosity
r@40 106 ;
r@40 107 #X text 9 309 Strouhal Number = 0.198 * (1 - (19.7/ Reynolds Number))
r@40 108 ;
r@40 109 #X obj 392 64 vd~ varwind 200;
r@40 110 #X obj 502 63 hsl 128 15 0.005 0.99 0 0 empty empty empty -2 -8 0 10
r@40 111 -262144 -1 -1 2800 1;
r@40 112 #X floatatom 451 126 15 0 0 0 - - -;
r@40 113 #N canvas 865 368 293 255 opLevels 1;
r@40 114 #X obj 88 129 dac~;
r@40 115 #X obj 64 70 catch~ l;
r@40 116 #X obj 128 70 catch~ r;
r@40 117 #X obj 129 104 *~ 0.45;
r@40 118 #X obj 65 104 *~ 0.45;
r@40 119 #X obj 65 154 prvu~;
r@40 120 #X obj 129 155 prvu~;
r@40 121 #X obj 186 75 / 127;
r@40 122 #X obj 186 40 inlet;
r@40 123 #X obj 65 183 outlet;
r@40 124 #X obj 129 183 outlet;
r@40 125 #X connect 1 0 4 0;
r@40 126 #X connect 2 0 3 0;
r@40 127 #X connect 3 0 0 1;
r@40 128 #X connect 3 0 6 0;
r@40 129 #X connect 4 0 0 0;
r@40 130 #X connect 4 0 5 0;
r@40 131 #X connect 5 0 9 0;
r@40 132 #X connect 6 0 10 0;
r@40 133 #X connect 7 0 3 1;
r@40 134 #X connect 7 0 4 1;
r@40 135 #X connect 8 0 7 0;
r@40 136 #X restore 45 376 pd opLevels;
r@40 137 #N canvas 804 128 171 241 makeDia 1;
r@40 138 #X obj 70 -14 *;
r@40 139 #X obj 55 14 *;
r@40 140 #X obj 70 -41 inlet;
r@40 141 #X obj 55 44 outlet;
r@40 142 #X connect 0 0 1 1;
r@40 143 #X connect 0 0 1 0;
r@40 144 #X connect 1 0 3 0;
r@40 145 #X connect 2 0 0 0;
r@40 146 #X connect 2 0 0 1;
r@40 147 #X restore 437 96 pd makeDia;
r@40 148 #X connect 0 0 27 0;
r@40 149 #X connect 17 0 36 0;
r@40 150 #X connect 19 0 17 0;
r@40 151 #X connect 20 0 19 0;
r@40 152 #X connect 22 0 27 1;
r@40 153 #X connect 22 0 28 1;
r@40 154 #X connect 23 0 26 0;
r@40 155 #X connect 24 0 23 0;
r@40 156 #X connect 25 0 24 0;
r@40 157 #X connect 27 0 28 0;
r@40 158 #X connect 28 0 21 0;
r@40 159 #X connect 28 0 23 0;
r@40 160 #X connect 33 0 14 0;
r@40 161 #X connect 34 0 37 0;
r@40 162 #X connect 36 0 15 0;
r@40 163 #X connect 36 1 16 0;
r@40 164 #X connect 37 0 14 1;
r@40 165 #X connect 37 0 35 0;