diff WindGenD1.pd @ 197:20fab2c4fca4

MechAeolian added to design additions relating to vibration of the aeolian model SwordCorInterp - added where the correlation length averaged to 7d and the position of the source calculated accordingly. Sources turned off if less than the hilt position. Source/observer azimuth and elevation checked and sorted. Need to check other models to ensure proper source/observer angles.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 11 Mar 2016 12:54:45 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/WindGenD1.pd	Fri Mar 11 12:54:45 2016 +0000
@@ -0,0 +1,132 @@
+#N canvas 371 89 460 675 10;
+#X obj 172 219 +~ 1;
+#X obj 172 314 +~;
+#X obj 172 241 *~ 0.25;
+#X obj 188 291 +~;
+#N canvas 939 160 373 400 squall 0;
+#X obj 113 208 noise~;
+#X obj 113 271 hip~ 0;
+#X obj 113 229 lop~ 3;
+#X obj 113 250 lop~ 3;
+#X obj 50 274 *~;
+#X obj 72 318 *~;
+#X obj 50 252 *~ 8;
+#X obj 113 292 *~ 20;
+#X obj 50 188 inlet~;
+#X obj 72 342 outlet~;
+#X obj 50 208 max~ 0.42;
+#X obj 50 230 -~ 0.42;
+#X obj 39 107 noise~;
+#X obj 101 182 Snapshot~;
+#X obj 101 133 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 166 206 5 0 0 0 - - -;
+#X obj 39 128 lop~ 100;
+#X obj 100 106 loadbang;
+#X obj 101 156 metro 1000;
+#X obj 39 150 +~ 0.4;
+#X connect 0 0 2 0;
+#X connect 1 0 7 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 9 0;
+#X connect 6 0 4 0;
+#X connect 6 0 4 1;
+#X connect 7 0 5 1;
+#X connect 8 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 6 0;
+#X connect 12 0 16 0;
+#X connect 13 0 15 0;
+#X connect 14 0 18 0;
+#X connect 16 0 19 0;
+#X connect 17 0 14 0;
+#X connect 18 0 13 0;
+#X connect 19 0 13 0;
+#X restore 246 266 pd squall;
+#N canvas 706 412 202 229 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 84 *~ 50;
+#X obj 67 0 inlet~;
+#X obj 0 131 outlet~;
+#X obj 0 42 lop~ 1;
+#X obj 0 21 lop~ 1;
+#X connect 0 0 10 0;
+#X connect 1 0 6 0;
+#X connect 2 0 8 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 2 0;
+#X connect 7 0 4 0;
+#X connect 9 0 1 0;
+#X connect 10 0 9 0;
+#X restore 187 267 pd gust;
+#X obj 172 381 outlet~;
+#X obj 172 197 osc~ 0.01;
+#X obj 90 -7 noise~;
+#X obj 172 172 line;
+#X floatatom 119 197 8 0 0 0 - - -;
+#X obj 173 93 snapshot~;
+#X obj 172 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 225 118 8 0 0 0 - - -;
+#X obj 90 19 lop~ 2000;
+#X obj 90 43 +~ 0.6;
+#X obj 145 172 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 172 20 loadbang;
+#X obj 173 118 * 0.2;
+#X msg 173 145 \$1 10;
+#X obj 172 69 metro 2000;
+#X obj 305 -57 noise~;
+#X obj 305 -31 lop~ 2000;
+#X obj 305 -7 +~ 0.6;
+#X obj 229 35 snapshot~;
+#X obj 229 -13 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 229 -38 loadbang;
+#X floatatom 279 66 5 0 0 0 - - -;
+#X obj 229 11 metro 4000;
+#X obj 305 18 *~ 3000;
+#X obj 255 71 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X connect 0 0 2 0;
+#X connect 1 0 6 0;
+#X connect 2 0 4 0;
+#X connect 2 0 5 0;
+#X connect 2 0 1 0;
+#X connect 3 0 1 1;
+#X connect 4 0 3 1;
+#X connect 5 0 3 0;
+#X connect 7 0 0 0;
+#X connect 8 0 14 0;
+#X connect 9 0 7 0;
+#X connect 9 0 10 0;
+#X connect 11 0 13 0;
+#X connect 11 0 18 0;
+#X connect 12 0 20 0;
+#X connect 14 0 15 0;
+#X connect 15 0 11 0;
+#X connect 17 0 12 0;
+#X connect 18 0 19 0;
+#X connect 19 0 9 0;
+#X connect 19 0 16 0;
+#X connect 20 0 11 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 29 0;
+#X connect 24 0 20 1;
+#X connect 24 0 27 0;
+#X connect 24 0 30 0;
+#X connect 25 0 28 0;
+#X connect 26 0 25 0;
+#X connect 28 0 24 0;
+#X connect 29 0 24 0;