diff June/testBed.pd @ 78:3fd10ec003c3

testBed added to trial new developments without disturbing previous generations. Noise source (pow8) not connected porperly which has now been rectified. Gives much more white noise type sound.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 26 Jun 2015 10:32:49 +0100
parents
children 310f1de5b676
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/June/testBed.pd	Fri Jun 26 10:32:49 2015 +0100
@@ -0,0 +1,212 @@
+#N canvas 131 166 748 611 10;
+#X obj 18 306 freqCalcCylD3;
+#X msg 18 2 300;
+#X obj 18 -21 loadbang;
+#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 64 *~ 8;
+#X obj 63 104 *~ 20;
+#X obj 0 0 inlet~;
+#X obj 22 154 outlet~;
+#X obj 0 20 max~ 0.42;
+#X obj 0 42 -~ 0.42;
+#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 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 -376 -133 pd windspeed;
+#X obj -376 61 delwrite~ varwind 3000;
+#X obj -293 -131 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 4270 1;
+#X obj -333 -28 snapshot~;
+#X obj -333 -53 metro 100;
+#X obj -333 -75 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
+1 1;
+#X floatatom -333 -1 10 0 0 0 - - -;
+#X obj -376 -99 *~ 1;
+#X obj -376 -73 +~ 1;
+#X obj -333 -100 loadbang;
+#X text -336 17 Wind Speed;
+#X obj -254 -2 s wSpeed;
+#X obj -157 -130 loadbang;
+#X msg -157 -102 5;
+#X obj 36 51 hsl 128 15 0.001 0.01 1 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 9900 1;
+#X floatatom 55 78 8 0 0 0 - - -;
+#X obj 96 281 hsl 128 15 0.009 0.9 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 5900 1;
+#X floatatom 115 310 5 0 0 0 - - -;
+#X text 169 51 Diameter;
+#X obj 66 163 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 6300 1;
+#X floatatom 85 192 5 0 0 0 - - -;
+#X obj 81 218 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 3000 1;
+#X floatatom 100 247 5 0 0 0 - - -;
+#X obj 51 106 hsl 128 15 100 1 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 10400 1;
+#X floatatom 70 135 5 0 0 0 - - -;
+#X text 230 282 Pan Value;
+#X text 203 163 Elevation;
+#X text 215 219 Azimuth;
+#X text 189 107 Distance;
+#X obj -384 227 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj -321 227 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X text -324 136 Gain;
+#X obj -385 110 loadbang;
+#N canvas 865 368 284 318 opLevels 0;
+#X obj 74 188 dac~;
+#X obj 30 70 catch~ l;
+#X obj 128 70 catch~ r;
+#X obj 129 104 *~ 0.45;
+#X obj 30 104 *~ 0.45;
+#X obj 30 210 prvu~;
+#X obj 129 211 prvu~;
+#X obj 186 75 / 127;
+#X obj 186 40 inlet;
+#X obj 30 239 outlet;
+#X obj 129 239 outlet;
+#X obj 95 37 r NoOfSources;
+#X obj 74 143 /~ 15;
+#X obj 95 165 /~ 15;
+#X msg 94 111 15;
+#X connect 1 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 3 0 13 0;
+#X connect 4 0 5 0;
+#X connect 4 0 12 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 connect 12 0 0 0;
+#X connect 13 0 0 1;
+#X connect 14 0 12 1;
+#X connect 14 0 13 1;
+#X restore -385 184 pd opLevels;
+#X msg -385 133 5;
+#X obj -382 155 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 8190 1;
+#X obj -91 18 snapshot~;
+#X obj -91 -7 metro 100;
+#X floatatom -91 45 10 0 0 0 - - -;
+#X obj -91 -54 loadbang;
+#X obj -91 -31 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X text -94 63 Mach No;
+#N canvas 20 383 344 123 machCalc 1;
+#X obj 26 9 /~ 343.59;
+#X text 107 15 Speed of Sound (dry air 20 Degs C);
+#X obj 26 -14 vd~ varwind;
+#X obj 26 33 s~ myMach;
+#X connect 0 0 3 0;
+#X connect 2 0 0 0;
+#X restore -50 -149 pd machCalc;
+#X obj -176 -21 r~ myMach;
+#X obj 166 250 r setUp;
+#X obj 33 30 r setUp;
+#X obj 152 132 r setUp;
+#X obj 158 192 r setUp;
+#X obj 165 80 r setUp;
+#X obj 232 -102 s setUp;
+#X obj 232 -143 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
+-1;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
+#X connect 3 0 10 0;
+#X connect 5 0 10 1;
+#X connect 5 0 11 1;
+#X connect 6 0 9 0;
+#X connect 6 0 14 0;
+#X connect 7 0 6 0;
+#X connect 8 0 7 0;
+#X connect 10 0 11 0;
+#X connect 11 0 4 0;
+#X connect 11 0 6 0;
+#X connect 12 0 8 0;
+#X connect 15 0 16 0;
+#X connect 16 0 5 0;
+#X connect 17 0 18 0;
+#X connect 17 0 0 1;
+#X connect 19 0 20 0;
+#X connect 19 0 0 5;
+#X connect 22 0 23 0;
+#X connect 22 0 0 3;
+#X connect 24 0 25 0;
+#X connect 24 0 0 4;
+#X connect 26 0 27 0;
+#X connect 26 0 0 2;
+#X connect 35 0 37 0;
+#X connect 36 0 32 0;
+#X connect 36 1 33 0;
+#X connect 37 0 38 0;
+#X connect 38 0 36 0;
+#X connect 39 0 41 0;
+#X connect 40 0 39 0;
+#X connect 42 0 43 0;
+#X connect 43 0 40 0;
+#X connect 46 0 39 0;
+#X connect 47 0 19 0;
+#X connect 48 0 17 0;
+#X connect 49 0 22 0;
+#X connect 50 0 24 0;
+#X connect 51 0 26 0;
+#X connect 53 0 52 0;