diff June/freqCalcCylD6.pd @ 83:c135ff021f93

Aeolian harp model added

--- a/June/freqCalcCylD6.pd	Sun Jun 28 10:00:01 2015 +0100
+++ b/June/freqCalcCylD6.pd	Sun Jun 28 22:40:21 2015 +0100
@@ -36,7 +36,7 @@
 #X obj 664 209 r~ \$0-myFreq;
 #X obj 938 279 r~ \$0_liftDiGain;
 #X obj 139 -61 sig~;
-#X obj 139 -39 vd~ varwind;
+#X obj 139 -40 vd~ varwind;
 #X obj 139 -85 inlet;
 #X obj 1359 8 r~ \$0-myFreq;
 #X obj 1325 -42 noise~;
@@ -115,7 +115,7 @@
 #X floatatom 134 442 10 0 0 0 - - -;
 #X obj 134 343 loadbang;
 #X obj 70 392 r~ \$0_str;
-#N canvas 515 100 622 660 noiseGain 1;
+#N canvas 515 100 622 660 noiseGain 0;
 #X text -21205 129 Mass Density of Air \, squared;
 #X text -20857 164 Speed of Sound to power 2;
 #X obj -21070 29 *~;
@@ -190,7 +190,7 @@
 #X text -20981 74 Diameter;
 #N canvas 1567 153 479 552 angleCalc 0;
 #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 9900 1;
+-1 -1 0 1;
 #X text 287 77 Elevation Angle;
 #X obj 236 118 / 360;
 #X obj 236 140 * 6.28319;
@@ -219,7 +219,7 @@
 #X obj 236 90 inlet;
 #X obj 164 57 inlet;
 #X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 4950 1;
+-1 -1 0 1;
 #X text 56 42 Azimuth Angle;
 #X connect 0 0 7 0;
 #X connect 2 0 3 0;
@@ -315,7 +315,7 @@
 #X obj 360 371 r \$0_elev;
 #X obj 314 483 s~ \$0_liftNoiseGain;
 #X obj 383 461 s~ \$0_dragNoiseGain;
-#N canvas 613 23 702 650 freqGain 1;
+#N canvas 576 101 702 650 freqGain 0;
 #X text 36 127 Mass Density of Air \, squared;
 #X text 508 93 Speed of Sound to power 2;
 #N canvas 759 125 286 289 pow6 0;
@@ -370,69 +370,47 @@
 #X obj 357 441 r~ \$0-a;
 #X obj 419 397 * 6.28319;
 #X floatatom 471 46 5 0 0 0 - - -;
-#N canvas 131 175 479 552 angleCalc 0;
-#X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
+#N canvas 131 175 477 312 angleCalc 0;
+#X obj 297 33 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
 -1 -1 0 1;
-#X text 287 77 Elevation Angle;
-#X obj 236 118 / 360;
-#X obj 236 140 * 6.28319;
-#X obj 164 80 / 360;
-#X obj 164 102 * 6.28319;
-#X floatatom 49 106 5 0 0 0 - - -;
-#X floatatom 304 140 5 0 0 0 - - -;
-#X obj 278 443 * 360;
-#X floatatom 325 494 5 0 0 0 - - -;
-#X obj 278 467 / 6.28319;
-#X obj 236 235 *;
-#X obj 236 267 swap 1;
-#X obj 236 300 -;
-#X obj 236 329 sqrt;
-#X obj 278 360 /;
-#X obj 278 388 atan;
-#X obj 278 414 * 2;
-#X text 318 296 Arccos of angle;
-#X obj 293 236 + 1;
-#X obj 164 126 cos;
-#X obj 236 171 cos;
-#X obj 236 205 *;
-#X obj 164 149 t f b;
-#X obj 162 174 delay 9;
-#X obj 278 494 outlet;
-#X obj 236 90 inlet;
-#X obj 164 57 inlet;
-#X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
+#X text 233 6 Elevation Angle;
+#X obj 242 59 / 360;
+#X obj 242 81 * 6.28319;
+#X obj 170 21 / 360;
+#X obj 170 43 * 6.28319;
+#X floatatom 50 22 5 0 0 0 - - -;
+#X floatatom 294 57 5 0 0 0 - - -;
+#X floatatom 204 196 5 0 0 0 - - -;
+#X obj 170 67 cos;
+#X obj 242 112 cos;
+#X obj 242 146 *;
+#X obj 170 90 t f b;
+#X obj 168 115 delay 9;
+#X obj 242 197 outlet;
+#X obj 242 31 inlet;
+#X obj 170 -6 inlet;
+#X obj 53 -4 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
 -1 -1 0 1;
-#X text 56 42 Azimuth Angle;
+#X text 136 -30 Azimuth Angle;
+#X obj 242 172 arccos;
 #X connect 0 0 7 0;
 #X connect 0 0 2 0;
 #X connect 2 0 3 0;
-#X connect 3 0 21 0;
+#X connect 3 0 10 0;
 #X connect 4 0 5 0;
-#X connect 5 0 20 0;
-#X connect 8 0 10 0;
-#X connect 10 0 9 0;
-#X connect 10 0 25 0;
-#X connect 11 0 12 0;
-#X connect 12 0 13 0;
-#X connect 12 1 13 1;
-#X connect 13 0 14 0;
-#X connect 14 0 15 0;
-#X connect 15 0 16 0;
-#X connect 16 0 17 0;
-#X connect 17 0 8 0;
-#X connect 19 0 15 1;
-#X connect 20 0 23 0;
-#X connect 21 0 22 0;
-#X connect 22 0 11 0;
-#X connect 22 0 11 1;
-#X connect 22 0 19 0;
-#X connect 23 0 22 1;
-#X connect 23 1 24 0;
-#X connect 24 0 22 0;
-#X connect 26 0 2 0;
-#X connect 27 0 4 0;
-#X connect 28 0 6 0;
-#X connect 28 0 4 0;
+#X connect 5 0 9 0;
+#X connect 9 0 12 0;
+#X connect 10 0 11 0;
+#X connect 11 0 19 0;
+#X connect 12 0 11 1;
+#X connect 12 1 13 0;
+#X connect 13 0 11 0;
+#X connect 15 0 2 0;
+#X connect 16 0 4 0;
+#X connect 17 0 6 0;
+#X connect 17 0 4 0;
+#X connect 19 0 14 0;
+#X connect 19 0 8 0;
 #X restore 365 297 pd angleCalc;
 #X text 451 260 Elevation;
 #X text 476 498 Calculates Drag Dipole gain;
@@ -462,9 +440,7 @@
 #X obj 240 362 +;
 #X obj 305 269 t f b;
 #X obj 240 323 delay 9;
-#X floatatom 305 302 5 0 0 0 - - -;
 #X text 309 203 Replicates Doppler effect;
-#X floatatom 370 338 5 0 0 0 - - -;
 #X connect 2 0 4 0;
 #X connect 3 0 4 1;
 #X connect 4 0 5 0;
@@ -485,7 +461,6 @@
 #X connect 20 0 13 0;
 #X connect 22 0 14 0;
 #X connect 22 0 48 0;
-#X connect 22 0 53 0;
 #X connect 26 0 35 0;
 #X connect 27 0 3 0;
 #X connect 27 0 3 1;
@@ -511,7 +486,6 @@
 #X connect 47 0 46 0;
 #X connect 48 0 40 0;
 #X connect 49 0 48 1;
-#X connect 49 0 51 0;
 #X connect 49 1 50 0;
 #X connect 50 0 48 0;
 #X restore 318 180 pd freqGain;