view Jan - May 15/prototype1.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 3504138285bb
children
line wrap: on
line source
#N canvas 181 42 1040 609 10;
#X obj 548 -29 noise~;
#X obj 562 9 bp~ 1000 10;
#X obj 230 -43 hsl 128 15 0 31 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#X obj 410 -45 hsl 128 15 0 0.5 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2200 1;
#X obj 296 155 * 1.225;
#X obj 310 182 *;
#X obj 310 208 / 1.81e-05;
#X floatatom 336 22 10 0 0 0 - - -;
#X floatatom 186 274 15 0 0 0 - - -;
#X obj 310 237 swap 19.7;
#X obj 310 268 /;
#X obj 310 299 swap 1;
#X obj 310 327 -;
#X obj 310 354 * 0.198;
#X floatatom 219 440 10 0 0 0 - - -;
#X obj 310 383 *;
#X obj 310 414 /;
#X text 86 271 Reynolds Number;
#X text 102 124 Wind Speed (m/s);
#X text 243 -64 Wind Speed (m/s);
#X text 434 -67 Diameter (m);
#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 64 -45 pd windspeed;
#X obj 64 -7 snapshot~;
#X obj 149 -50 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 149 -28 metro 10;
#X obj 296 108 +;
#X floatatom 217 128 5 0 0 0 - - -;
#X obj 64 23 + 0.01;
#X obj 674 -18 osc~;
#X obj 227 -17 s baseSpeed;
#X obj 331 74 r baseSpeed;
#X obj 316 130 s windSpeed;
#X obj 384 354 r windSpeed;
#X obj 64 78 s varWind;
#X obj 260 73 r varWind;
#X obj 407 20 s Diameter;
#X obj 395 149 t f b;
#X obj 395 118 r Diameter;
#X obj 383 378 r Diameter;
#X obj 407 -13 *;
#X text 173 153 Mass Density of Air;
#X text 156 203 Dynamic Viscosity of Air;
#X obj 310 446 s outFreq;
#X obj 674 -47 r outFreq;
#X obj 593 -47 r outFreq;
#X text 115 437 Frequency (Hz);
#X text 556 259 Light air = 0.56 m/s - 1.39 m/s;
#X text 556 281 Light Breeze = 1.67 m/s - 3.33 m/s;
#X text 556 301 Gentle Breeze = 3.61 m/s - 5.56 m/s;
#X text 556 321 Moderate Breeze = 5.83 m/s - 8.33 m/s;
#X text 557 342 Fresh Breeze = 8.61 m/s - 11.11 m/s;
#X text 556 363 Strong Breeze = 11.39 m/s - 13.89 m/s;
#X text 557 383 Moderate Gale = 14.17 m/s - 16.94 m/s;
#X text 558 403 Fresh Gale = 17.22 m/s - 20.56 m/s;
#X text 557 423 Strong Gale = 20.83 m/s - 24.72 m/s;
#X text 557 441 Whole Gale = 25 m/s - 28.61 m/s;
#X text 557 461 Storm = 28.89 m/s - 33.06 m/s;
#X text 558 479 Hurricane = 33.33 -;
#X text 594 228 Beaufort Scale Chart;
#X text 196 19 Cylinder Diameter (m);
#X text 582 102 Equations from Chanaud 2010;
#X text 495 167 Frequency = (Strouhal Number * Velocity) / Distance
;
#X text 494 127 Reynolds Number = (Density * Velocity * Length) / Viscosity
;
#X text 494 147 Strouhal Number = 0.198 * (1 - (19.7/ Reynolds Number))
;
#X floatatom 227 379 5 0 0 0 - - -;
#X text 112 374 Strouhal Number;
#X obj 674 8 *~ 0.1;
#X obj 781 0 osc~;
#X obj 497 40 throw~ L;
#X obj 562 40 throw~ R;
#X obj 31 168 catch~ L;
#X obj 98 168 catch~ R;
#X obj 31 197 dac~;
#X obj 643 40 throw~ L;
#X obj 703 40 throw~ R;
#X obj 781 -48 r outFreq;
#X obj 781 90 throw~ L;
#X obj 842 88 throw~ R;
#X obj 911 -2 osc~;
#X obj 911 -50 r outFreq;
#X obj 911 88 throw~ L;
#X obj 972 86 throw~ R;
#X obj 911 -26 * 2;
#X obj 34 301 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#X obj 31 321 + 1;
#X obj 31 346 s qValue;
#X obj 610 -19 r qValue;
#X obj 781 -24 * 4;
#X obj 64 50 * 10;
#X obj 128 3 r baseSpeed;
#X obj 128 26 / 2;
#X obj 149 -76 loadbang;
#X msg 31 276 10;
#X obj 31 248 loadbang;
#X obj 781 28 spigot~;
#X obj 911 25 spigot~;
#X msg 839 -4 0;
#X msg 871 -4 1;
#X obj 781 60 *~ 0.0005;
#X obj 911 58 *~ 0.0005;
#X connect 0 0 1 0;
#X connect 1 0 68 0;
#X connect 1 0 69 0;
#X connect 2 0 29 0;
#X connect 3 0 39 0;
#X connect 3 0 39 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 6 0 9 0;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 12 1;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 13 0 64 0;
#X connect 15 0 16 0;
#X connect 16 0 14 0;
#X connect 16 0 42 0;
#X connect 21 0 22 0;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 25 0 26 0;
#X connect 25 0 4 0;
#X connect 25 0 31 0;
#X connect 27 0 88 0;
#X connect 28 0 66 0;
#X connect 30 0 25 1;
#X connect 32 0 15 1;
#X connect 34 0 25 0;
#X connect 36 0 5 1;
#X connect 36 1 5 0;
#X connect 37 0 36 0;
#X connect 38 0 16 1;
#X connect 39 0 7 0;
#X connect 39 0 35 0;
#X connect 43 0 28 0;
#X connect 44 0 1 1;
#X connect 66 0 73 0;
#X connect 66 0 74 0;
#X connect 67 0 94 0;
#X connect 70 0 72 0;
#X connect 71 0 72 1;
#X connect 75 0 87 0;
#X connect 78 0 95 0;
#X connect 79 0 82 0;
#X connect 82 0 78 0;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X connect 86 0 1 2;
#X connect 87 0 67 0;
#X connect 88 0 33 0;
#X connect 89 0 90 0;
#X connect 90 0 88 1;
#X connect 91 0 23 0;
#X connect 92 0 83 0;
#X connect 93 0 92 0;
#X connect 94 0 98 0;
#X connect 95 0 99 0;
#X connect 96 0 94 1;
#X connect 96 0 95 1;
#X connect 97 0 94 1;
#X connect 97 0 95 1;
#X connect 98 0 76 0;
#X connect 98 0 77 0;
#X connect 99 0 80 0;
#X connect 99 0 81 0;