diff scene demo/WindGenD1.pd @ 154:af6801647567

Looking at obtaining instantaneuous wind speed to implement instantaneous intensity eqn.

--- a/scene demo/WindGenD1.pd	Thu Jan 07 17:12:06 2016 +0000
+++ b/scene demo/WindGenD1.pd	Tue Jan 12 10:56:14 2016 +0000
@@ -1,9 +1,9 @@
-#N canvas 551 105 566 549 10;
+#N canvas 551 105 849 658 10;
 #X obj 147 202 +~ 1;
 #X obj 147 297 +~;
 #X obj 147 224 *~ 0.25;
 #X obj 163 274 +~;
-#X obj 147 319 clip~ 0 1;
+#X obj 147 320 clip~ 0 1;
 #N canvas 939 160 373 400 squall 0;
 #X obj 113 208 noise~;
 #X obj 113 271 hip~ 0;
@@ -46,7 +46,7 @@
 #X connect 18 0 13 0;
 #X connect 19 0 13 0;
 #X restore 221 249 pd squall;
-#N canvas 493 23 202 229 gust 0;
+#N canvas 300 282 202 229 gust 0;
 #X obj 0 0 noise~;
 #X obj 0 63 hip~ 0;
 #X obj 0 106 *~;
@@ -93,11 +93,10 @@
 #X obj 8 274 metro 100;
 #X obj 8 249 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
 ;
-#X floatatom 10 374 8 0 0 0 - - -;
+#X floatatom 10 374 0 0 0 0 - - -;
 #X obj 148 101 * 0.2;
 #X msg 148 128 \$1 10;
 #X obj 147 52 metro 2000;
-#X obj 29 298 abs~;
 #X obj -36 373 outlet;
 #X obj 10 347 * 0.1;
 #X obj 280 -74 noise~;
@@ -110,15 +109,55 @@
 #X floatatom 254 49 5 0 0 0 - - -;
 #X obj 204 -6 metro 4000;
 #X obj 280 1 *~ 3000;
+#X obj 499 402 unpack;
+#X floatatom 499 452 0 0 0 0 - - -;
+#X floatatom 513 429 0 0 0 0 - - -;
+#X obj 499 362 route 1 2 3 4;
+#X obj 582 402 unpack;
+#X floatatom 582 452 0 0 0 0 - - -;
+#X floatatom 596 429 0 0 0 0 - - -;
+#X obj 666 402 unpack;
+#X floatatom 666 452 0 0 0 0 - - -;
+#X floatatom 680 429 0 0 0 0 - - -;
+#X obj 357 402 unpack;
+#X floatatom 357 452 0 0 0 0 - - -;
+#X floatatom 371 429 0 0 0 0 - - -;
+#X floatatom 434 452 0 0 0 0 - - -;
+#X text 637 321 number of pitch outlets (1-3 \, default 1);
+#X text 637 343 number of peaks to find (1-100 \, default 20);
+#X text 637 365 number of peaks to output (default 0.);
+#X obj 378 331 fiddle~ 1024 1 20 3;
+#X text 506 476 individual sinusoidal components;
+#X text 434 474 amplitude;
+#X text 444 489 (dB);
+#X text 357 474 raw pitch;
+#X text 344 498 and amplitude;
+#X text 332 515 (up to 3 outputs);
+#X text 513 331 ------ arguments:;
+#X obj 393 253 osc~ 100;
+#X obj 230 54 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 242 302 *~ 2;
+#X obj 243 324 -~ 1;
+#X obj 504 118 loadbang;
+#X obj 504 218 snapshot~;
+#X obj 504 171 metro 100;
+#X obj 504 146 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 506 271 0 0 0 0 - - -;
+#X obj 226 376 -~;
 #X connect 0 0 2 0;
 #X connect 1 0 4 0;
+#X connect 1 0 72 0;
 #X connect 2 0 5 0;
 #X connect 2 0 6 0;
 #X connect 2 0 1 0;
+#X connect 2 0 76 0;
 #X connect 3 0 1 1;
-#X connect 3 0 31 0;
+#X connect 3 0 24 0;
 #X connect 4 0 7 0;
 #X connect 4 0 10 0;
+#X connect 4 0 76 1;
 #X connect 5 0 3 1;
 #X connect 6 0 3 0;
 #X connect 8 0 0 0;
@@ -134,22 +173,43 @@
 #X connect 20 0 15 0;
 #X connect 22 0 26 0;
 #X connect 23 0 16 0;
-#X connect 24 0 33 0;
+#X connect 24 0 32 0;
 #X connect 25 0 24 0;
 #X connect 26 0 25 0;
 #X connect 28 0 29 0;
 #X connect 29 0 13 0;
 #X connect 29 0 21 0;
 #X connect 30 0 15 0;
-#X connect 31 0 24 0;
-#X connect 33 0 32 0;
-#X connect 33 0 27 0;
+#X connect 32 0 31 0;
+#X connect 32 0 27 0;
+#X connect 33 0 34 0;
 #X connect 34 0 35 0;
-#X connect 35 0 36 0;
-#X connect 36 0 42 0;
-#X connect 37 0 30 1;
+#X connect 35 0 41 0;
+#X connect 36 0 30 1;
+#X connect 36 0 39 0;
+#X connect 36 0 68 0;
 #X connect 37 0 40 0;
-#X connect 38 0 41 0;
-#X connect 39 0 38 0;
-#X connect 41 0 37 0;
-#X connect 42 0 37 0;
+#X connect 38 0 37 0;
+#X connect 40 0 36 0;
+#X connect 41 0 36 0;
+#X connect 42 0 43 0;
+#X connect 42 1 44 0;
+#X connect 45 0 42 0;
+#X connect 45 1 46 0;
+#X connect 45 2 49 0;
+#X connect 46 0 47 0;
+#X connect 46 1 48 0;
+#X connect 49 0 50 0;
+#X connect 49 1 51 0;
+#X connect 52 0 53 0;
+#X connect 52 1 54 0;
+#X connect 59 2 52 0;
+#X connect 59 3 55 0;
+#X connect 59 4 45 0;
+#X connect 69 0 70 0;
+#X connect 70 0 59 0;
+#X connect 71 0 74 0;
+#X connect 72 0 75 0;
+#X connect 73 0 72 0;
+#X connect 74 0 73 0;
+#X connect 76 0 69 0;