view June/Gen2_D1.pd @ 281:dfd88add4725

Propeller: Reducing control on Audio channels Reduced the stereo spread for test purposes Pitch control added GUI Updated shh patch added to reduce audio spike when shifting start positions
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Tue, 07 Mar 2017 07:53:21 +0000
parents 4b14b2a355e9
children
line wrap: on
line source
#N canvas 6 225 990 777 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 250 -126 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;
#X text 14 67 Moderate Breeze = 5.83 m/s - 8.33 m/s;
#X text 15 88 Fresh Breeze = 8.61 m/s - 11.11 m/s;
#X text 14 109 Strong Breeze = 11.39 m/s - 13.89 m/s;
#X text 15 129 Moderate Gale = 14.17 m/s - 16.94 m/s;
#X text 16 149 Fresh Gale = 17.22 m/s - 20.56 m/s;
#X text 15 169 Strong Gale = 20.83 m/s - 24.72 m/s;
#X text 15 187 Whole Gale = 25 m/s - 28.61 m/s;
#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 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 0 1;
#X text 229 438 Gain;
#X obj 200 355 loadbang;
#X obj 250 68 delwrite~ varwind 3000;
#X obj 333 -124 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2900 1;
#X obj 293 -21 snapshot~;
#X obj 293 -46 metro 100;
#X obj 293 -68 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 293 6 10 0 0 0 - - -;
#X obj 250 -92 *~ 1;
#X obj 250 -66 +~ 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 -23 vd~ varwind 200;
#X floatatom 414 37 10 0 0 0 - - -;
#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 45 376 pd opLevels;
#X text 381 182 Frequency (Hz);
#X floatatom 392 157 10 0 0 0 - - -;
#X floatatom 648 14 10 0 0 0 - - -;
#X text 608 135 Frequency (Hz);
#X floatatom 619 110 10 0 0 0 - - -;
#X obj 619 -71 vd~ varwind 2000;
#X obj 407 14 makeDia;
#X obj 634 -16 makeDia;
#X obj 496 -60 vsl 20 50 0.005 0.99 0 0 empty empty empty 0 -9 0 10
-262144 -1 -1 1400 1;
#X obj 521 -32 vsl 20 50 100 1 1 0 empty empty empty 0 -9 0 10 -262144
-1 -1 1000 1;
#X obj 475 80 hsl 50 20 -180 180 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2000 1;
#X floatatom 521 37 5 0 0 0 - - -;
#X floatatom 497 112 5 0 0 0 - - -;
#X obj 726 -77 vsl 20 50 0.005 0.99 0 0 empty empty empty 0 -9 0 10
-262144 -1 -1 0 1;
#X obj 754 -52 vsl 20 50 100 1 1 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X obj 709 41 hsl 50 20 -180 180 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 754 17 5 0 0 0 - - -;
#X floatatom 731 73 5 0 0 0 - - -;
#X floatatom 518 369 10 0 0 0 - - -;
#X text 478 494 Frequency (Hz);
#X floatatom 489 469 10 0 0 0 - - -;
#X obj 504 339 makeDia;
#X obj 587 278 vsl 20 50 0.005 0.99 0 0 empty empty empty 0 -9 0 10
-262144 -1 -1 0 1;
#X obj 612 303 vsl 20 50 100 1 1 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X obj 582 400 hsl 50 20 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X floatatom 612 372 5 0 0 0 - - -;
#X floatatom 601 432 5 0 0 0 - - -;
#X msg 456 260 100;
#X msg 489 260 500;
#X msg 521 260 1200;
#X obj 489 288 vd~ varwind \$1;
#X obj 293 -93 loadbang;
#X msg 200 383 5;
#X text 477 -80 Diameter;
#X text 714 -106 Diameter;
#X text 573 253 Diameter;
#X text 543 -18 Distance;
#X text 781 -31 Distance;
#X text 634 310 Distance;
#X text 535 85 Azimuth;
#X text 770 48 Azimuth;
#X text 639 400 Azimuth;
#X text 290 24 Wind Speed;
#X obj 392 125 thisFreq;
#X msg 400 91 1;
#X msg 399 67 0;
#X obj 489 437 thisFreq;
#X obj 619 78 thisFreq;
#X connect 0 0 25 0;
#X connect 16 0 33 0;
#X connect 18 0 66 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 77 0;
#X connect 33 0 14 0;
#X connect 33 1 15 0;
#X connect 40 0 32 0;
#X connect 40 0 77 3;
#X connect 41 0 36 0;
#X connect 41 0 81 1;
#X connect 42 0 40 0;
#X connect 43 0 45 0;
#X connect 43 0 77 4;
#X connect 44 0 46 0;
#X connect 44 0 77 5;
#X connect 47 0 41 0;
#X connect 48 0 50 0;
#X connect 48 0 81 2;
#X connect 49 0 51 0;
#X connect 49 0 81 3;
#X connect 55 0 52 0;
#X connect 55 0 80 1;
#X connect 56 0 55 0;
#X connect 57 0 59 0;
#X connect 57 0 80 2;
#X connect 58 0 60 0;
#X connect 58 0 80 3;
#X connect 61 0 64 0;
#X connect 62 0 64 0;
#X connect 63 0 64 0;
#X connect 65 0 23 0;
#X connect 66 0 16 0;
#X connect 77 0 35 0;
#X connect 78 0 77 1;
#X connect 79 0 77 1;
#X connect 80 0 54 0;
#X connect 81 0 38 0;