diff June/Gen2_D1.pd @ 40:ca1ee52af944

Progressed the model to now working at audio control rate

--- a/June/Gen2_D1.pd	Fri May 29 12:10:58 2015 +0100
+++ b/June/Gen2_D1.pd	Fri May 29 15:22:13 2015 +0100
@@ -1,4 +1,4 @@
-#N canvas 165 359 872 721 10;
+#N canvas 6 90 872 721 10;
 #N canvas 236 158 426 423 windspeed 0;
 #X obj 3 -19 +~ 1;
 #X obj 3 76 +~;
@@ -67,7 +67,7 @@
 #X connect 5 0 3 1;
 #X connect 6 0 3 0;
 #X connect 8 0 0 0;
-#X restore 265 -31 pd windspeed;
+#X restore 250 -76 pd windspeed;
 #X text 14 5 Light air = 0.56 m/s - 1.39 m/s;
 #X text 14 27 Light Breeze = 1.67 m/s - 3.33 m/s;
 #X text 14 47 Gentle Breeze = 3.61 m/s - 5.56 m/s;
@@ -81,36 +81,85 @@
 #X text 15 207 Storm = 28.89 m/s - 33.06 m/s;
 #X text 16 225 Hurricane = 33.33 -;
 #X text 52 -26 Beaufort Scale Chart;
-#X obj 392 92 thisFreq;
-#X obj 550 80 dac~;
-#X obj 526 21 catch~ l;
-#X obj 590 21 catch~ r;
-#X obj 591 55 *~ 0.45;
-#X obj 527 55 *~ 0.45;
-#X obj 527 105 prvu~;
-#X obj 528 139 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
-#X obj 591 106 prvu~;
-#X obj 592 139 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
-#X obj 703 38 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
--1 -1 3600 1;
-#X text 732 57 Gain;
-#X obj 703 186 / 127;
-#X msg 703 2 25;
-#X obj 703 -26 loadbang;
-#X obj 265 -5 delwrite~ varwind 3000;
-#X obj 391 52 delread~ varwind 200;
-#X connect 0 0 29 0;
-#X connect 16 0 19 0;
-#X connect 17 0 18 0;
-#X connect 18 0 15 1;
-#X connect 18 0 22 0;
-#X connect 19 0 15 0;
-#X connect 19 0 20 0;
-#X connect 20 0 21 0;
-#X connect 22 0 23 0;
-#X connect 24 0 26 0;
-#X connect 26 0 18 1;
-#X connect 26 0 19 1;
-#X connect 27 0 24 0;
-#X connect 28 0 27 0;
-#X connect 30 0 14 0;
+#X obj 392 125 thisFreq;
+#X obj 46 419 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj 109 419 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj 200 419 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
+-1 -1 5400 1;
+#X text 229 438 Gain;
+#X msg 200 383 25;
+#X obj 200 355 loadbang;
+#X obj 250 28 delwrite~ varwind 3000;
+#X obj 351 -78 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 1800 1;
+#X obj 402 -9 snapshot~;
+#X obj 402 -34 metro 100;
+#X obj 402 -56 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 402 18 10 0 0 0 - - -;
+#X obj 250 -37 *~ 1;
+#X obj 250 -11 +~ 1;
+#X text 97 264 Equations from Chanaud 2010;
+#X text 10 329 Frequency = (Strouhal Number * Velocity) / Distance
+;
+#X text 9 289 Reynolds Number = (Density * Velocity * Length) / Viscosity
+;
+#X text 9 309 Strouhal Number = 0.198 * (1 - (19.7/ Reynolds Number))
+;
+#X obj 392 64 vd~ varwind 200;
+#X obj 502 63 hsl 128 15 0.005 0.99 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 2800 1;
+#X floatatom 451 126 15 0 0 0 - - -;
+#N canvas 865 368 293 255 opLevels 1;
+#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 45 376 pd opLevels;
+#N canvas 804 128 171 241 makeDia 1;
+#X obj 70 -14 *;
+#X obj 55 14 *;
+#X obj 70 -41 inlet;
+#X obj 55 44 outlet;
+#X connect 0 0 1 1;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 2 0 0 0;
+#X connect 2 0 0 1;
+#X restore 437 96 pd makeDia;
+#X connect 0 0 27 0;
+#X connect 17 0 36 0;
+#X connect 19 0 17 0;
+#X connect 20 0 19 0;
+#X connect 22 0 27 1;
+#X connect 22 0 28 1;
+#X connect 23 0 26 0;
+#X connect 24 0 23 0;
+#X connect 25 0 24 0;
+#X connect 27 0 28 0;
+#X connect 28 0 21 0;
+#X connect 28 0 23 0;
+#X connect 33 0 14 0;
+#X connect 34 0 37 0;
+#X connect 36 0 15 0;
+#X connect 36 1 16 0;
+#X connect 37 0 14 1;
+#X connect 37 0 35 0;