view scene demo/newStrou.pd @ 114:e57832817def

scene demo: working on increasing the number of sources to have 200 evenly spaced sound sources over the wire. Massive zipper noise coming when control signal from the Unity engine arrives in PD.

Might be worth looking at smoothing the control data in some form to decrease this - change the control to signal early, average previous 4 / 5 signals or similar tactic.

#N canvas 804 381 590 316 10;
#X obj 203 48 inlet~;
#X obj 273 202 outlet~;
#X text 101 20 Reynolds number coming in;
#X text 211 238 Strouhal Number going out;
#N canvas 350 312 1026 531 eqnSelect 0;
#X msg 41 221 0.2684 -1.0356;
#X msg 148 221 0.2437 -0.8607;
#X msg 256 223 0.4291 -3.6735;
#X msg 365 223 0.3274 -2.0569;
#X msg 472 223 0.2257 -0.4402;
#X msg 577 222 0.204 0.3364;
#X msg 686 224 0.1776 2.2023;
#X obj 365 299 unpack;
#X obj 75 164 < 180;
#X obj 181 144 > 180;
#X obj 227 146 < 230;
#X obj 289 149 > 230;
#X obj 335 148 < 240;
#X obj 398 148 > 240;
#X obj 444 149 < 360;
#X obj 505 147 > 360;
#X obj 551 147 < 1300;
#X obj 611 150 > 1300;
#X obj 657 150 < 5000;
#X obj 719 149 > 5000;
#X obj 765 148 < 200000;
#X obj 827 149 > 200000;
#X obj 41 196 spigot;
#X floatatom 286 327 8 0 0 0 - - -;
#X floatatom 455 330 8 0 0 0 - - -;
#X obj 148 198 spigot;
#X obj 194 171 spigot;
#X obj 256 200 spigot;
#X obj 302 173 spigot;
#X obj 365 200 spigot;
#X obj 411 173 spigot;
#X floatatom 546 83 5 0 0 0 - - -;
#X obj 472 198 spigot;
#X obj 518 171 spigot;
#X obj 578 200 spigot;
#X obj 624 173 spigot;
#X obj 686 199 spigot;
#X obj 732 172 spigot;
#X obj 426 67 snapshot~;
#X obj 426 37 inlet~;
#X obj 359 2 loadbang;
#X obj 359 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 359 42 metro 10;
#X obj 365 373 outlet~;
#X obj 398 352 outlet~;
#X obj 365 327 sig~;
#X obj 398 327 sig~;
#X text 539 419 This selects the values for the St* and m coefficients
for Fey's formula;
#X text 254 359 St* coefficient;
#X text 462 361 m coefficient;
#X text 372 240 Averaged;
#X connect 0 0 7 0;
#X connect 1 0 7 0;
#X connect 2 0 7 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 23 0;
#X connect 7 0 45 0;
#X connect 7 1 24 0;
#X connect 7 1 46 0;
#X connect 8 0 22 1;
#X connect 8 0 22 0;
#X connect 9 0 25 1;
#X connect 9 0 26 0;
#X connect 10 0 26 1;
#X connect 11 0 28 0;
#X connect 11 0 27 1;
#X connect 12 0 28 1;
#X connect 13 0 29 1;
#X connect 13 0 30 0;
#X connect 14 0 30 1;
#X connect 15 0 32 1;
#X connect 15 0 33 0;
#X connect 16 0 33 1;
#X connect 17 0 34 1;
#X connect 17 0 35 0;
#X connect 18 0 35 1;
#X connect 19 0 36 1;
#X connect 19 0 37 0;
#X connect 20 0 37 1;
#X connect 22 0 0 0;
#X connect 25 0 1 0;
#X connect 26 0 25 0;
#X connect 27 0 2 0;
#X connect 28 0 27 0;
#X connect 29 0 3 0;
#X connect 30 0 29 0;
#X connect 32 0 4 0;
#X connect 33 0 32 0;
#X connect 34 0 5 0;
#X connect 35 0 34 0;
#X connect 36 0 6 0;
#X connect 37 0 36 0;
#X connect 38 0 8 0;
#X connect 38 0 9 0;
#X connect 38 0 10 0;
#X connect 38 0 11 0;
#X connect 38 0 12 0;
#X connect 38 0 13 0;
#X connect 38 0 14 0;
#X connect 38 0 31 0;
#X connect 38 0 15 0;
#X connect 38 0 16 0;
#X connect 38 0 17 0;
#X connect 38 0 18 0;
#X connect 38 0 19 0;
#X connect 38 0 20 0;
#X connect 39 0 38 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 38 0;
#X connect 45 0 43 0;
#X connect 46 0 44 0;
#X restore 273 83 pd eqnSelect;
#X obj 203 85 sqrt~;
#X obj 342 119 /~;
#X obj 273 166 +~;
#X text 135 97 sqrt(Re);
#X text 250 114 St*;
#X text 359 101 m;
#X text 376 152 St = St* + m / sqrt(Re);
#X connect 0 0 4 0;
#X connect 0 0 5 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 1 0;