view June/prop_D2.pd @ 199:2ded41e29e57

Projection matrix now calculated using control signals rather than audio. This makes sense as it was eating too much processing power for something that doesn't chage during the sound effect.

#N canvas 1668 22 1203 851 10;
#X obj 387 -114 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 450 -114 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text 447 -205 Gain;
#X obj 386 -231 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 219 118 inlet;
#X obj 30 152 /~ 1;
#X obj 129 154 /~ 1;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 13 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 11 0 12 1;
#X connect 11 0 13 1;
#X connect 12 0 0 0;
#X connect 12 0 5 0;
#X connect 13 0 0 1;
#X connect 13 0 6 0;
#X restore 386 -157 pd opLevels;
#X msg 386 -208 5;
#N canvas 12 52 684 554 speedCalc 0;
#X obj 59 -12 inlet;
#X obj 135 -11 inlet;
#X obj 217 -12 inlet;
#X obj 317 -12 inlet;
#X obj 59 11 s \$0_swLen;
#X obj 135 11 s \$0_armLen;
#X obj 317 10 s \$0_tipSpeed;
#X obj 141 301 r \$0_tipSpeed;
#X obj 211 437 outlet;
#X obj 211 414 r \$0_minSpeed;
#X obj 126 349 s \$0_minSpeed;
#X obj 310 414 r \$0_deltaSpeed;
#X obj 388 261 s \$0_deltaSpeed;
#X obj 310 437 outlet;
#X obj 84 100 r \$0_swLen;
#X obj 126 280 /;
#X floatatom 80 307 5 0 0 0 - - -;
#X obj 99 123 r \$0_armLen;
#X obj 84 205 +;
#X obj 99 152 t f b;
#X floatatom 40 240 5 0 0 0 - - -;
#X obj 126 207 r \$0_armLen;
#X obj 126 231 t f b;
#X obj 126 177 delay 6;
#X obj 153 256 delay 9;
#X obj 217 11 s \$0_sourceTot;
#X obj 421 202 r \$0_sourceTot;
#X obj 126 325 *;
#X floatatom 84 349 5 0 0 0 - - -;
#X obj 512 119 r \$0_minSpeed;
#X obj 388 202 -;
#X obj 388 158 r \$0_tipSpeed;
#X obj 388 232 /;
#X obj 512 145 t f b;
#X floatatom 343 261 5 0 0 0 - - -;
#X obj 539 170 delay 14;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 25 0;
#X connect 3 0 6 0;
#X connect 7 0 27 1;
#X connect 9 0 8 0;
#X connect 11 0 13 0;
#X connect 14 0 18 0;
#X connect 15 0 16 0;
#X connect 15 0 27 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 18 0 15 1;
#X connect 19 0 18 1;
#X connect 19 1 23 0;
#X connect 21 0 22 0;
#X connect 22 0 15 0;
#X connect 22 1 24 0;
#X connect 23 0 18 0;
#X connect 24 0 15 0;
#X connect 26 0 32 1;
#X connect 27 0 10 0;
#X connect 27 0 28 0;
#X connect 29 0 33 0;
#X connect 30 0 32 0;
#X connect 31 0 30 0;
#X connect 32 0 34 0;
#X connect 32 0 12 0;
#X connect 33 0 30 1;
#X connect 33 1 35 0;
#X connect 35 0 30 0;
#X restore 236 274 pd speedCalc;
#X floatatom 145 298 8 0 0 0 - - -;
#X floatatom 390 296 8 0 0 0 - - -;
#X obj 236 179 r bladeLen;
#X obj 259 202 r armLength;
#X obj 282 226 r NoOfSources;
#X obj 305 251 r topSpeed;
#X obj -52 -200 hsl 100 20 0 3000 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 759 1;
#X floatatom -55 -174 8 0 0 0 - - -;
#X obj -52 -122 hsl 100 20 0 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 495 1;
#X obj 210 298 s firstSpeed;
#X obj 305 297 s deltaSpeed;
#X floatatom 155 69 8 0 0 0 - - -;
#N canvas 57 585 305 180 thickCalc 0;
#X obj 173 86 r NoOfSources;
#X obj 23 16 inlet;
#X obj 26 64 inlet;
#X obj 26 86 s \$0_tipThick;
#X obj 158 62 -;
#X obj 158 111 /;
#X obj 158 134 outlet;
#X obj 23 39 s \$0_hiltThick;
#X floatatom 126 94 5 0 0 0 - - -;
#X obj 173 40 r \$0_tipThick;
#X obj 158 15 r \$0_hiltThick;
#X floatatom 94 136 8 0 0 0 - - -;
#X connect 0 0 5 1;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 4 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 5 0 11 0;
#X connect 9 0 4 1;
#X connect 10 0 4 0;
#X restore 215 -26 pd thickCalc;
#X obj 215 -3 s deltaThick;
#X floatatom 160 -2 8 0 0 0 - - -;
#X obj 215 -71 r hiltThick;
#X obj 284 -49 r tipThick;
#N canvas 447 270 208 198 circumferCalc 0;
#X obj 84 45 inlet;
#X obj 84 69 * 3.14159;
#X floatatom 26 120 8 0 0 0 - - -;
#X obj 84 93 * 2;
#X obj 84 118 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 3 0 4 0;
#X restore 212 45 pd circumferCalc;
#X obj 316 138 s deltaCircum;
#N canvas 767 188 758 617 angleCalc 0;
#X floatatom -252 49 8 0 0 0 - - -;
#X obj -194 50 * 0.75;
#X obj 149 51 * 0.25;
#X floatatom 171 76 8 0 0 0 - - -;
#X floatatom -178 72 8 0 0 0 - - -;
#X obj -194 97 /;
#X msg -209 203 1 \$1;
#X obj -209 180 f;
#X floatatom -242 203 5 0 0 0 - - -;
#X obj -209 225 line 0;
#X obj -245 154 r GO;
#X msg -165 203 0;
#X obj -194 121 * 1000;
#X obj 61 290 line 0;
#X obj 61 212 delay \$1;
#X obj 63 154 f;
#X obj 63 111 r GO;
#X obj 63 180 t f b;
#X obj 61 239 i;
#X msg 61 261 1 \$1;
#X msg 139 255 0;
#X obj 149 184 /;
#X obj 149 208 * 1000;
#X obj -209 275 *;
#X obj -157 244 r sweepAngle;
#X obj -206 340 hsl 100 25 0 360 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj -160 272 * -0.75;
#X obj -209 299 +;
#X obj -159 297 * -1;
#X obj -179 155 s \$0_thisDe;
#X obj 78 133 r \$0_thisDe;
#X obj 61 328 *;
#X obj 118 295 r sweepAngle;
#X obj 64 380 hsl 100 25 -360 360 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj 13 239 s \$0_d;
#X obj 139 233 r GO;
#X obj -194 26 r maxCirc;
#X obj 149 29 r maxCirc;
#X obj -124 70 r topSpeed;
#X obj 164 158 r topSpeed;
#X obj -90 459 s currentAngle;
#X obj -90 413 +;
#X floatatom -90 438 8 0 0 0 - - -;
#X obj -41 392 t f b;
#X obj 280 146 delay \$1;
#X obj 282 88 f;
#X obj 282 62 r GO;
#X obj 282 114 t f b;
#X obj 318 -6 r maxCirc;
#X obj 333 16 r topSpeed;
#X obj 318 40 /;
#X obj 318 62 * 1000;
#X obj 280 168 s end;
#X obj -165 182 r end;
#X floatatom -166 408 8 0 0 0 - - -;
#X obj -41 359 r end;
#X obj 118 318 * -0.25;
#X connect 1 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 2 0 21 0;
#X connect 5 0 12 0;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 23 0;
#X connect 10 0 7 0;
#X connect 11 0 9 0;
#X connect 12 0 7 1;
#X connect 12 0 29 0;
#X connect 13 0 31 0;
#X connect 14 0 18 0;
#X connect 14 0 34 0;
#X connect 15 0 17 0;
#X connect 16 0 15 0;
#X connect 17 0 14 1;
#X connect 17 1 14 0;
#X connect 18 0 19 0;
#X connect 19 0 13 0;
#X connect 20 0 13 0;
#X connect 21 0 22 0;
#X connect 22 0 18 1;
#X connect 23 0 27 0;
#X connect 24 0 26 0;
#X connect 25 0 41 0;
#X connect 25 0 54 0;
#X connect 26 0 28 0;
#X connect 26 0 23 1;
#X connect 27 0 25 0;
#X connect 28 0 27 1;
#X connect 30 0 15 1;
#X connect 31 0 33 0;
#X connect 32 0 56 0;
#X connect 33 0 43 0;
#X connect 35 0 20 0;
#X connect 36 0 0 0;
#X connect 36 0 1 0;
#X connect 37 0 2 0;
#X connect 38 0 5 1;
#X connect 39 0 21 1;
#X connect 41 0 42 0;
#X connect 42 0 40 0;
#X connect 43 0 41 1;
#X connect 43 1 41 0;
#X connect 44 0 52 0;
#X connect 45 0 47 0;
#X connect 46 0 45 0;
#X connect 47 0 44 1;
#X connect 47 1 44 0;
#X connect 48 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 51 0;
#X connect 51 0 45 1;
#X connect 53 0 11 0;
#X connect 54 0 42 0;
#X connect 55 0 43 0;
#X connect 56 0 31 1;
#X restore 273 -98 pd angleCalc;
#X obj 388 -188 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2700 1;
#X obj -56 185 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 7425 1;
#X obj -59 339 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6500 1;
#X obj -56 264 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 4950 1;
#X text -52 162 Azimuth Angle;
#X text -53 243 Elevation Angle;
#X text -43 318 Distance;
#X floatatom -59 291 5 0 0 0 - - -;
#X floatatom -62 367 5 0 0 0 - - -;
#X floatatom -59 213 5 0 0 0 - - -;
#X obj -58 -47 hsl 100 20 0.5 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 4689 1;
#X floatatom -61 -19 5 0 0 0 - - -;
#X obj -60 110 hsl 100 20 0.001 0.1 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 3900 1;
#X floatatom -63 137 5 0 0 0 - - -;
#X text -57 88 Chord Thickness;
#X obj -59 33 hsl 100 20 0 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom -62 58 5 0 0 0 - - -;
#X text -55 11 Chord Pitch;
#X text 548 -228 Vertical propellor;
#X obj 212 22 r bladeRadius;
#X obj -24 -19 s bladeRadius;
#X obj 212 68 s circum;
#X text -58 -143 RMP (Fine);
#X text -56 -220 RMP (Coarse);
#X floatatom -56 -97 8 0 0 0 - - -;
#X obj -1 -97 s fineRPM;
#X obj 0 -174 s coarseRPM;
#X obj -20 213 s obsAzim;
#X obj -19 291 s obsElev;
#X text -49 -69 Blade Radius (m);
#X obj -27 136 s chordTh;
#X obj -19 366 s obsDist;
#X msg 686 97 1;
#X obj 500 -184 hsl 100 25 1 400 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3945 1;
#X obj 156 -191 bng 25 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj 156 -162 s setUp;
#X obj 42 -221 r setUp;
#X obj 47 -144 r setUp;
#X obj 55 -70 r setUp;
#X obj 48 13 r setUp;
#X obj 50 86 r setUp;
#X obj 51 165 r setUp;
#X obj 52 238 r setUp;
#X obj 41 316 r setUp;
#X text 79 421 Pan not working on this yet;
#X obj 481 555 s fCRPM;
#X obj 517 517 s fRad;
#X obj 536 498 s fPit;
#X obj 554 479 s fThi;
#X obj 573 460 s fAzi;
#X obj 591 441 s fEle;
#X obj 610 422 s fDis;
#X obj 499 536 s fFRPM;
#X obj -106 -221 r fCRPM;
#X obj -110 -142 r fFRPM;
#X obj -100 -70 r fRad;
#X obj -102 9 r fPit;
#X obj -102 86 r fThi;
#X obj -101 163 r fAzi;
#X obj -104 242 r fEle;
#X obj -103 320 r fDis;
#X obj 481 402 unpack f f f f f f f f;
#X msg 478 352 230 15 5 0 0.04 45 0 35;
#X msg 497 -205 160;
#X obj 571 134 freqCalc3dCh;
#X obj 586 178 r chordTh;
#X obj 571 243 freq3DChoD1;
#X obj 618 201 r obsAzim;
#X obj 634 222 r obsElev;
#X connect 3 0 5 0;
#X connect 3 0 90 0;
#X connect 4 0 0 0;
#X connect 4 1 1 0;
#X connect 5 0 27 0;
#X connect 6 0 7 0;
#X connect 6 0 16 0;
#X connect 6 1 8 0;
#X connect 6 1 17 0;
#X connect 9 0 6 0;
#X connect 10 0 6 1;
#X connect 11 0 6 2;
#X connect 12 0 6 3;
#X connect 13 0 14 0;
#X connect 13 0 53 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 19 0 20 0;
#X connect 19 0 21 0;
#X connect 22 0 19 0;
#X connect 23 0 19 1;
#X connect 24 0 18 0;
#X connect 24 0 48 0;
#X connect 27 0 4 0;
#X connect 28 0 36 0;
#X connect 28 0 54 0;
#X connect 29 0 35 0;
#X connect 29 0 58 0;
#X connect 30 0 34 0;
#X connect 30 0 55 0;
#X connect 37 0 38 0;
#X connect 37 0 47 0;
#X connect 39 0 40 0;
#X connect 39 0 57 0;
#X connect 42 0 43 0;
#X connect 46 0 24 0;
#X connect 59 0 91 0;
#X connect 60 0 4 1;
#X connect 61 0 62 0;
#X connect 63 0 13 0;
#X connect 64 0 15 0;
#X connect 65 0 37 0;
#X connect 66 0 42 0;
#X connect 67 0 39 0;
#X connect 68 0 28 0;
#X connect 69 0 30 0;
#X connect 70 0 29 0;
#X connect 80 0 13 0;
#X connect 81 0 15 0;
#X connect 82 0 37 0;
#X connect 83 0 42 0;
#X connect 84 0 39 0;
#X connect 85 0 28 0;
#X connect 86 0 30 0;
#X connect 87 0 29 0;
#X connect 88 0 72 0;
#X connect 88 1 79 0;
#X connect 88 2 73 0;
#X connect 88 3 74 0;
#X connect 88 4 75 0;
#X connect 88 5 76 0;
#X connect 88 6 77 0;
#X connect 88 7 78 0;
#X connect 89 0 88 0;
#X connect 90 0 60 0;
#X connect 91 0 93 0;
#X connect 91 1 93 2;
#X connect 92 0 93 1;
#X connect 94 0 93 3;
#X connect 95 0 93 4;