diff June/Gen2_Tree.pd @ 49:819d71fa7fac

Processing sketch added
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 05 Jun 2015 18:02:02 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/June/Gen2_Tree.pd	Fri Jun 05 18:02:02 2015 +0100
@@ -0,0 +1,435 @@
+#N canvas 287 23 830 745 10;
+#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 4300 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 1000 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 1
+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;
+#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 558 274 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 704 41 255 612 posCalc 1;
+#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 188 234 5 0 0 0 - - -;
+#X obj 131 232 outlet;
+#X obj 77 236 /;
+#X floatatom 46 147 5 0 0 0 - - -;
+#X obj 119 485 * 360;
+#X floatatom 180 537 5 0 0 0 - - -;
+#X obj 119 542 outlet;
+#X obj 119 509 / 6.28319;
+#X obj 160 104 / 20;
+#X obj 104 104 / 20;
+#X obj 77 277 *;
+#X obj 77 309 swap 1;
+#X obj 77 342 -;
+#X obj 134 274 + 1;
+#X obj 77 371 sqrt;
+#X obj 119 402 /;
+#X obj 119 430 atan;
+#X obj 119 455 * 2;
+#X floatatom 170 481 5 0 0 0 - - -;
+#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 19 0;
+#X connect 5 0 18 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 20 0;
+#X connect 12 0 20 1;
+#X connect 12 0 23 0;
+#X connect 14 0 17 0;
+#X connect 17 0 15 0;
+#X connect 17 0 16 0;
+#X connect 18 0 7 0;
+#X connect 18 0 7 1;
+#X connect 19 0 6 0;
+#X connect 19 0 6 1;
+#X connect 19 0 12 0;
+#X connect 19 0 13 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 21 1 22 1;
+#X connect 22 0 24 0;
+#X connect 23 0 25 1;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 26 0 27 0;
+#X connect 27 0 28 0;
+#X connect 27 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.035;
+#X obj 405 217 thisFreq;
+#N canvas 704 41 255 612 posCalc 1;
+#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 188 234 5 0 0 0 - - -;
+#X obj 131 232 outlet;
+#X obj 77 236 /;
+#X floatatom 46 147 5 0 0 0 - - -;
+#X obj 119 485 * 360;
+#X floatatom 180 537 5 0 0 0 - - -;
+#X obj 119 542 outlet;
+#X obj 119 509 / 6.28319;
+#X obj 160 104 / 20;
+#X obj 104 104 / 20;
+#X obj 77 277 *;
+#X obj 77 309 swap 1;
+#X obj 77 342 -;
+#X obj 134 274 + 1;
+#X obj 77 371 sqrt;
+#X obj 119 402 /;
+#X obj 119 430 atan;
+#X obj 119 455 * 2;
+#X floatatom 170 481 5 0 0 0 - - -;
+#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 19 0;
+#X connect 5 0 18 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 20 0;
+#X connect 12 0 20 1;
+#X connect 12 0 23 0;
+#X connect 14 0 17 0;
+#X connect 17 0 15 0;
+#X connect 17 0 16 0;
+#X connect 18 0 7 0;
+#X connect 18 0 7 1;
+#X connect 19 0 6 0;
+#X connect 19 0 6 1;
+#X connect 19 0 12 0;
+#X connect 19 0 13 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 21 1 22 1;
+#X connect 22 0 24 0;
+#X connect 23 0 25 1;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 26 0 27 0;
+#X connect 27 0 28 0;
+#X connect 27 0 14 0;
+#X restore 435 184 pd posCalc;
+#N canvas 704 41 255 612 posCalc 1;
+#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 188 234 5 0 0 0 - - -;
+#X obj 131 232 outlet;
+#X obj 77 236 /;
+#X floatatom 46 147 5 0 0 0 - - -;
+#X obj 119 485 * 360;
+#X floatatom 180 537 5 0 0 0 - - -;
+#X obj 119 542 outlet;
+#X obj 119 509 / 6.28319;
+#X obj 160 104 / 20;
+#X obj 104 104 / 20;
+#X obj 77 277 *;
+#X obj 77 309 swap 1;
+#X obj 77 342 -;
+#X obj 134 274 + 1;
+#X obj 77 371 sqrt;
+#X obj 119 402 /;
+#X obj 119 430 atan;
+#X obj 119 455 * 2;
+#X floatatom 170 481 5 0 0 0 - - -;
+#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 19 0;
+#X connect 5 0 18 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 20 0;
+#X connect 12 0 20 1;
+#X connect 12 0 23 0;
+#X connect 14 0 17 0;
+#X connect 17 0 15 0;
+#X connect 17 0 16 0;
+#X connect 18 0 7 0;
+#X connect 18 0 7 1;
+#X connect 19 0 6 0;
+#X connect 19 0 6 1;
+#X connect 19 0 12 0;
+#X connect 19 0 13 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 21 1 22 1;
+#X connect 22 0 24 0;
+#X connect 23 0 25 1;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 26 0 27 0;
+#X connect 27 0 28 0;
+#X connect 27 0 14 0;
+#X restore 703 185 pd posCalc;
+#X floatatom 492 215 5 0 0 0 - - -;
+#X floatatom 760 216 5 0 0 0 - - -;
+#X floatatom 615 371 5 0 0 0 - - -;
+#X obj 673 218 thisFreq;
+#X obj 528 374 thisFreq;
+#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 69 2;
+#X connect 44 1 69 3;
+#X connect 45 0 66 0;
+#X connect 45 0 60 0;
+#X connect 45 0 61 0;
+#X connect 47 0 69 1;
+#X connect 48 0 69 1;
+#X connect 49 0 75 2;
+#X connect 49 1 75 3;
+#X connect 50 0 67 0;
+#X connect 50 0 62 0;
+#X connect 50 0 63 0;
+#X connect 52 0 75 1;
+#X connect 53 0 75 1;
+#X connect 54 0 76 2;
+#X connect 54 1 76 3;
+#X connect 55 0 68 0;
+#X connect 55 0 64 0;
+#X connect 55 0 65 0;
+#X connect 57 0 76 1;
+#X connect 58 0 76 1;
+#X connect 59 0 76 4;
+#X connect 59 1 74 0;
+#X connect 59 1 76 5;
+#X connect 60 0 70 0;
+#X connect 61 0 70 1;
+#X connect 62 0 71 0;
+#X connect 63 0 71 1;
+#X connect 64 0 59 0;
+#X connect 65 0 59 1;
+#X connect 66 0 44 0;
+#X connect 67 0 49 0;
+#X connect 68 0 54 0;
+#X connect 69 0 46 0;
+#X connect 70 0 69 4;
+#X connect 70 1 69 5;
+#X connect 70 1 72 0;
+#X connect 71 0 75 4;
+#X connect 71 1 73 0;
+#X connect 71 1 75 5;
+#X connect 75 0 51 0;
+#X connect 76 0 56 0;