Mercurial > hg > weather-synthesis-prototyping
view June/prop_D1.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.
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Fri, 11 Mar 2016 20:51:21 +0000 |
| parents | 94fdafb68c3e |
| children |
line wrap: on
line source
#N canvas 136 36 1105 841 10; #X obj 377 -124 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X obj 440 -124 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X text 437 -215 Gain; #X obj 376 -241 loadbang; #N canvas 865 368 284 318 opLevels 1; #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 376 -167 pd opLevels; #X msg 376 -218 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 226 264 pd speedCalc; #X floatatom 135 288 8 0 0 0 - - -; #X floatatom 380 286 8 0 0 0 - - -; #X obj 226 169 r bladeLen; #X obj 249 192 r armLength; #X obj 272 216 r NoOfSources; #X obj 295 241 r topSpeed; #X obj -62 -210 hsl 100 20 0 3000 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 900 1; #X floatatom -65 -184 8 0 0 0 - - -; #X obj -62 -132 hsl 100 20 0 300 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 200 288 s firstSpeed; #X obj 295 287 s deltaSpeed; #X floatatom 145 59 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 205 -36 pd thickCalc; #X obj 205 -13 s deltaThick; #X floatatom 150 -12 8 0 0 0 - - -; #X obj 205 -81 r hiltThick; #X obj 274 -59 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 202 35 pd circumferCalc; #X obj 306 128 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 263 -108 pd angleCalc; #X obj 379 -196 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 390 1; #X obj 652 -128 freqCalcWoo; #X obj 652 -179 r \$0_thisGroup; #X obj 778 -101 *; #X obj 793 -126 r deltaThick; #X obj 778 -190 r \$0_thisGroup; #X obj 778 -147 +; #X obj 763 -215 r hiltThick; #X obj 763 -76 -; #X floatatom 774 -50 8 0 0 0 - - -; #X obj 793 -169 r \$0_s0; #X obj 715 -151 r \$0_s0; #N canvas 1051 49 396 632 obsPosition 0; #X obj -49 337 r obsDistance; #X obj 113 149 r obsAngle; #X obj -44 29 inlet; #X obj 188 108 r bladeLen; #X obj 203 214 r armLength; #X obj -44 52 s \$0_sourceNo; #X obj 202 129 r NoOfSources; #X obj 188 239 +; #X obj 188 149 /; #X obj 188 193 *; #X obj 203 170 r \$0_sourceNo; #X floatatom 61 53 5 0 0 0 - - -; #X obj 98 204 / 360; #X obj 98 226 * 6.28319; #X floatatom 40 277 8 0 0 0 - - -; #X obj 98 277 *; #X floatatom 41 339 8 0 0 0 - - -; #X obj 122 391 hsl 128 15 15 25 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 98 127 r currentAngle; #X floatatom 55 147 5 0 0 0 - - -; #X floatatom 20 397 8 0 0 0 - - -; #X obj 98 339 t f b; #X obj 98 172 +; #X obj 116 36 hsl 128 15 180 -180 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom 124 63 5 0 0 0 - - -; #X obj 83 370 +; #X obj 98 251 cos; #X obj 98 314 * -1; #X obj -36 158 hsl 75 25 -60 180 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom -23 203 5 0 0 0 - - -; #X obj 83 412 outlet; #X floatatom 54 205 5 0 0 0 - - -; #X obj 146 205 outlet; #X connect 0 0 25 0; #X connect 1 0 22 1; #X connect 2 0 5 0; #X connect 2 0 11 0; #X connect 3 0 8 0; #X connect 4 0 7 1; #X connect 6 0 8 1; #X connect 7 0 15 1; #X connect 8 0 9 0; #X connect 9 0 7 0; #X connect 10 0 9 1; #X connect 12 0 13 0; #X connect 13 0 26 0; #X connect 15 0 27 0; #X connect 18 0 19 0; #X connect 18 0 22 0; #X connect 19 0 28 0; #X connect 21 0 25 1; #X connect 21 1 25 0; #X connect 22 0 12 0; #X connect 22 0 31 0; #X connect 22 0 32 0; #X connect 23 0 24 0; #X connect 25 0 17 0; #X connect 25 0 20 0; #X connect 25 0 30 0; #X connect 26 0 14 0; #X connect 26 0 15 0; #X connect 27 0 21 0; #X connect 27 0 16 0; #X connect 28 0 29 0; #X connect 28 0 22 0; #X restore 677 -43 pd obsPosition; #X obj 655 227 freq3DChord; #X obj -66 175 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 7300 1; #X obj -69 329 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 7500 1; #X obj -66 254 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 4500 1; #X text -62 152 Azimuth Angle; #X text -63 233 Elevation Angle; #X text -53 308 Distance; #X floatatom -69 281 5 0 0 0 - - -; #X floatatom -72 357 5 0 0 0 - - -; #X floatatom -69 203 5 0 0 0 - - -; #X obj -68 -57 hsl 100 20 0.5 10 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 4900 1; #X floatatom -71 -29 5 0 0 0 - - -; #X obj -70 100 hsl 100 20 0.001 0.1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 6200 1; #X floatatom -73 127 5 0 0 0 - - -; #X text -67 78 Chord Thickness; #X obj -69 23 hsl 100 20 0 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom -72 48 5 0 0 0 - - -; #X text -65 1 Chord Pitch; #X text 538 -238 Vertical propellor; #X obj 202 12 r bladeRadius; #X obj -34 -29 s bladeRadius; #X obj 202 58 s circum; #X text -68 -153 RMP (Fine); #X text -66 -230 RMP (Coarse); #X floatatom -66 -107 8 0 0 0 - - -; #X obj -11 -107 s fineRPM; #X obj -10 -184 s coarseRPM; #X obj -30 203 s obsAzim; #X obj -29 281 s obsElev; #X text -59 -79 Blade Radius (m); #X obj -37 126 s chordTh; #X obj 670 162 r chordTh; #X obj -29 356 s obsDist; #X obj 775 143 freqCalc3dCh; #X obj 790 163 r chordTh; #X msg 676 87 1; #X msg 793 93 2; #X msg 784 69 1; #X obj 785 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 722 73 0; #X obj 490 -194 hsl 100 25 1 400 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 7700 1; #X obj 655 142 freqCalc3dCh; #X obj 775 228 freq3DChord; #X obj 146 -201 bng 25 250 50 0 empty empty empty 17 7 0 10 -257985 -1 -1; #X obj 146 -172 s setUp; #X obj 32 -231 r setUp; #X obj 37 -154 r setUp; #X obj 45 -80 r setUp; #X obj 38 3 r setUp; #X obj 40 76 r setUp; #X obj 41 155 r setUp; #X obj 42 228 r setUp; #X obj 31 306 r setUp; #X text 69 411 Pan not working on this yet; #X obj 471 545 s fCRPM; #X obj 507 507 s fRad; #X obj 526 488 s fPit; #X obj 544 469 s fThi; #X obj 563 450 s fAzi; #X obj 581 431 s fEle; #X obj 600 412 s fDis; #X obj 489 526 s fFRPM; #X obj -116 -231 r fCRPM; #X obj -120 -152 r fFRPM; #X obj -110 -80 r fRad; #X obj -112 -1 r fPit; #X obj -112 76 r fThi; #X obj -111 153 r fAzi; #X obj -114 232 r fEle; #X obj -113 310 r fDis; #X obj 471 392 unpack f f f f f f f f; #X connect 3 0 5 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 66 0; #X connect 15 0 64 0; #X connect 15 0 65 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 61 0; #X connect 27 0 4 0; #X connect 29 0 28 0; #X connect 30 0 35 1; #X connect 31 0 30 1; #X connect 32 0 33 0; #X connect 33 0 30 0; #X connect 33 0 39 0; #X connect 34 0 35 0; #X connect 35 0 36 0; #X connect 37 0 33 1; #X connect 38 0 28 1; #X connect 41 0 49 0; #X connect 41 0 67 0; #X connect 42 0 48 0; #X connect 42 0 72 0; #X connect 43 0 47 0; #X connect 43 0 68 0; #X connect 50 0 51 0; #X connect 50 0 60 0; #X connect 52 0 53 0; #X connect 52 0 70 0; #X connect 55 0 56 0; #X connect 59 0 24 0; #X connect 71 0 40 1; #X connect 73 0 82 0; #X connect 73 1 82 3; #X connect 73 2 82 2; #X connect 74 0 82 1; #X connect 75 0 81 0; #X connect 76 0 73 0; #X connect 77 0 81 0; #X connect 78 0 77 0; #X connect 78 0 76 0; #X connect 79 0 73 0; #X connect 80 0 4 1; #X connect 81 0 40 0; #X connect 81 1 40 3; #X connect 81 2 40 2; #X connect 83 0 84 0; #X connect 85 0 13 0; #X connect 86 0 15 0; #X connect 87 0 50 0; #X connect 88 0 55 0; #X connect 89 0 52 0; #X connect 90 0 41 0; #X connect 91 0 43 0; #X connect 92 0 42 0; #X connect 102 0 13 0; #X connect 103 0 15 0; #X connect 104 0 50 0; #X connect 105 0 55 0; #X connect 106 0 52 0; #X connect 107 0 41 0; #X connect 108 0 43 0; #X connect 109 0 42 0; #X connect 110 0 94 0; #X connect 110 1 101 0; #X connect 110 2 95 0; #X connect 110 3 96 0; #X connect 110 4 97 0; #X connect 110 5 98 0; #X connect 110 6 99 0; #X connect 110 7 100 0;