view scene demo/WindGenD1.pd @ 154:af6801647567

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

#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 320 clip~ 0 1;
#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 221 249 pd squall;
#N canvas 300 282 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 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 162 250 pd gust;
#X obj 147 341 outlet~;
#X obj 147 180 osc~ 0.01;
#X obj 103 384 osc~;
#X obj 103 341 *~ 200;
#X obj 103 363 +~ 600;
#X obj 65 -24 noise~;
#X obj 147 155 line;
#X floatatom 94 180 8 0 0 0 - - -;
#X obj 148 76 snapshot~;
#X obj 147 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 200 101 8 0 0 0 - - -;
#X obj 103 408 dac~;
#X obj 65 2 lop~ 2000;
#X obj 65 26 +~ 0.6;
#X obj 120 155 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 8 221 loadbang;
#X obj 147 3 loadbang;
#X obj 8 321 snapshot~;
#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 0 0 0 0 - - -;
#X obj 148 101 * 0.2;
#X msg 148 128 \$1 10;
#X obj 147 52 metro 2000;
#X obj -36 373 outlet;
#X obj 10 347 * 0.1;
#X obj 280 -74 noise~;
#X obj 280 -48 lop~ 2000;
#X obj 280 -24 +~ 0.6;
#X obj 204 18 snapshot~;
#X obj 204 -30 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 204 -55 loadbang;
#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 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;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 19 0;
#X connect 13 0 8 0;
#X connect 13 0 14 0;
#X connect 15 0 17 0;
#X connect 15 0 28 0;
#X connect 16 0 30 0;
#X connect 19 0 20 0;
#X connect 20 0 15 0;
#X connect 22 0 26 0;
#X connect 23 0 16 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 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 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 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;