diff scene demo/freqCalcCyl3No_D1Mach.pd @ 154:af6801647567

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

--- a/scene demo/freqCalcCyl3No_D1Mach.pd	Thu Jan 07 17:12:06 2016 +0000
+++ b/scene demo/freqCalcCyl3No_D1Mach.pd	Tue Jan 12 10:56:14 2016 +0000
@@ -656,7 +656,7 @@
 #X obj 209 206 spigot;
 #X floatatom 217 338 5 0 0 0 - - -;
 #X obj 211 70 hsl 128 15 100 30000 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 4891 1;
+-262144 -1 -1 12700 1;
 #X floatatom 174 128 8 0 0 0 - - -;
 #X obj 336 192 spigot;
 #X obj 382 165 spigot;
@@ -863,7 +863,7 @@
 #X obj 268 637 r~ \$0-str;
 #X obj 291 681 r \$0-leng;
 #X obj 337 771 r \$0-dist;
-#N canvas 316 23 1006 797 GoldnoiseGain 0;
+#N canvas 316 23 1006 797 GoldnoiseGain 1;
 #X text -21029 166 Mass Density of Air \, squared;
 #X obj -20846 141 *~ 1;
 #X obj -20750 161 *;
@@ -1011,7 +1011,7 @@
 theta so that theta is same angle as dipole angles.;
 #X obj -20669 238 sig~ 180;
 #X obj -20606 242 r~ \$0-this_elev;
-#X obj -20846 658 *~ 3000;
+#X obj -20846 643 *~ 300;
 #X connect 1 0 30 0;
 #X connect 2 0 48 0;
 #X connect 4 0 1 0;
@@ -1364,7 +1364,7 @@
 #X obj 765 703 r \$0-thisPan;
 #X obj 792 723 r \$0-TuGain;
 #X obj 711 663 r~ \$0-liftDiGain;
-#N canvas 1012 302 464 503 liftDiFunNo 0;
+#N canvas 736 255 464 503 liftDiFunNo 0;
 #X obj 124 84 inlet~;
 #X obj 120 198 inlet~;
 #X obj 161 105 inlet;
@@ -1390,24 +1390,24 @@
 #X obj 120 220 *~ 1;
 #X text 49 393 Creates the shaped noise sound equivalent to a narrow
 band signal at the lift dipole fundamental frequency.;
+#X floatatom 149 303 5 0 0 0 - - -;
 #X obj 105 173 *~ 1;
-#X floatatom 149 303 5 0 0 0 - - -;
 #X connect 0 0 13 0;
 #X connect 1 0 14 0;
 #X connect 2 0 12 0;
 #X connect 3 0 7 1;
-#X connect 3 0 17 0;
+#X connect 3 0 16 0;
 #X connect 4 0 7 0;
 #X connect 7 0 5 0;
 #X connect 7 1 6 0;
 #X connect 8 0 11 0;
 #X connect 9 0 4 1;
 #X connect 10 0 9 1;
-#X connect 11 0 16 0;
+#X connect 11 0 17 0;
 #X connect 12 0 11 2;
 #X connect 13 0 11 1;
 #X connect 14 0 9 0;
-#X connect 16 0 4 0;
+#X connect 17 0 4 0;
 #X restore 711 744 pd liftDiFunNo;
 #X text 894 569 Patches that generate all the sounds associated with
 the drag dipole;
@@ -1454,13 +1454,6 @@
 #X obj 1229 37 r~ \$0-myRey;
 #X obj 1229 84 s~ \$0-myCor;
 #X obj 327 202 r~ \$0-myCor;
-#X obj 942 211 snapshot~;
-#X floatatom 942 234 5 0 0 0 - - -;
-#X obj 942 172 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
-1;
-#X obj 891 224 rfft~;
-#X obj 894 267 print~ real;
-#X obj 942 190 metro 1000;
 #X connect 2 0 4 0;
 #X connect 3 0 32 0;
 #X connect 3 0 72 0;
@@ -1476,7 +1469,6 @@
 #X connect 17 0 48 1;
 #X connect 18 0 7 1;
 #X connect 19 0 2 0;
-#X connect 19 0 196 0;
 #X connect 21 0 147 1;
 #X connect 22 0 23 0;
 #X connect 23 0 16 0;
@@ -1597,8 +1589,3 @@
 #X connect 189 0 191 0;
 #X connect 190 0 189 0;
 #X connect 192 0 122 4;
-#X connect 193 0 194 0;
-#X connect 195 0 198 0;
-#X connect 196 0 197 0;
-#X connect 198 0 193 0;
-#X connect 198 0 197 0;