view scene demo/wireSrcPosD2.pd @ 176:a297efeba5c0

Sword model - Calculated bases for the plane of the sword, the projection matrix and the position of the observer projected onto this plane. Then can calculate the elevation and the azimuth between source and observer.

Next - add additional sources along the blade length.

#N canvas 116 70 1291 748 10;
#X obj -188 17 inlet;
#X obj -145 13 unpack f f f f f f f f f;
#X obj -15 251 inlet;
#X floatatom -50 274 5 0 0 0 - - -;
#X obj -149 174 +;
#X floatatom -186 200 5 0 0 0 - - -;
#X obj -46 202 +;
#X obj -46 158 * -1;
#X floatatom -79 225 5 0 0 0 - - -;
#X floatatom -188 151 5 0 0 0 - - -;
#X obj -61 244 -;
#X floatatom -108 264 5 0 0 0 - - -;
#X obj -15 295 /;
#X obj -61 369 *;
#X floatatom -111 398 5 0 0 0 - - -;
#X floatatom 6 323 5 0 0 0 - - -;
#X obj -46 327 t f b;
#X obj -61 416 +;
#X floatatom -98 439 5 0 0 0 - - -;
#X obj 184 135 r Xpos;
#X obj 260 136 r Ypos;
#X obj 333 137 r Zpos;
#X obj 245 231 +;
#X obj 245 257 +;
#X obj 245 282 sqrt;
#X floatatom 205 307 5 0 0 0 - - -;
#X obj 184 202 *;
#X obj 260 203 *;
#X obj 333 204 *;
#X obj 333 180 -;
#X obj 260 179 -;
#X obj 184 178 -;
#X obj 423 320 outlet;
#X obj 423 248 atan;
#X obj 423 226 /;
#X floatatom 388 320 5 0 0 0 - - -;
#X obj 423 272 * 360;
#X obj 423 296 / 6.28319;
#X obj 438 183 t f b;
#X obj 465 206 delay 9;
#X text 129 282 Distance to source;
#X obj 492 620 outlet;
#X text 445 647 Calculates the pan value;
#X obj 486 297 r YRpos;
#X obj 486 346 +;
#X obj 501 321 t f b;
#X floatatom 540 320 5 0 0 0 - - -;
#X obj 486 414 mod 360;
#X obj 405 441 > 180;
#X obj 445 441 < 360;
#X obj 412 467 spigot;
#X obj 372 492 spigot;
#X obj 486 441 / 360;
#X obj 532 465 spigot;
#X obj 492 490 spigot;
#X obj 525 441 < 180;
#X obj 565 441 > 0;
#X floatatom 537 621 5 0 0 0 - - -;
#X obj 492 595 clip 0 1;
#X obj 486 370 swap 360;
#X obj 486 392 -;
#X obj 372 534 + 1;
#X obj 372 513 * -1;
#X obj 492 572 * 2;
#X obj 245 307 outlet;
#X text 363 345 Azimuth to source;
#X obj 663 317 outlet;
#X obj 663 245 atan;
#X obj 663 223 /;
#X floatatom 628 317 5 0 0 0 - - -;
#X obj 663 269 * 360;
#X obj 663 293 / 6.28319;
#X obj 678 180 t f b;
#X obj 705 203 delay 9;
#X text 640 339 Elevation btw source and observer;
#X obj 39 156 * 2;
#X obj 39 177 outlet;
#X floatatom -120 527 5 0 0 0 - - -;
#X obj -81 529 outlet;
#X obj -19 348 delay 9;
#X obj -188 71 s \$0-1WirX;
#X obj -121 71 s \$0-1WirY;
#X obj -55 71 s \$0-1WirZ;
#X obj 12 71 s \$0-1WirLX;
#X obj 85 71 s \$0-1WirLY;
#X obj 158 71 s \$0-1WirLZ;
#X obj -149 130 r \$0-1WirLY;
#X obj -134 152 r \$0-1WirZ;
#X obj -149 201 s \$0-topW;
#X obj -46 135 r \$0-1WirLY;
#X obj -31 180 r \$0-1WirZ;
#X obj -35 227 s \$0-botW;
#X obj -46 391 r \$0-botW;
#X obj -61 439 s \$0-thisZ;
#X obj -81 504 r \$0-1WirLX;
#X obj 0 270 r NO_WIR_SRC;
#X obj 199 156 r \$0-1WirX;
#X obj 275 157 r \$0-1WirY;
#X obj 348 157 r \$0-thisZ;
#X obj 134 200 s \$0-ad;
#X obj 212 202 s \$0-cd;
#X obj 289 205 s \$0-bd;
#X obj 423 136 r \$0-bd;
#X obj 438 160 r \$0-ad;
#X obj 663 131 r \$0-cd;
#X obj 678 158 r \$0-ad;
#X floatatom -184 94 5 0 0 0 - - -;
#X floatatom -116 96 5 0 0 0 - - -;
#X floatatom -45 93 5 0 0 0 - - -;
#X floatatom 18 93 5 0 0 0 - - -;
#X floatatom 93 90 5 0 0 0 - - -;
#X floatatom 161 92 5 0 0 0 - - -;
#X floatatom 234 90 5 0 0 0 - - -;
#X floatatom 306 92 5 0 0 0 - - -;
#X floatatom 379 94 5 0 0 0 - - -;
#X obj 824 87 outlet;
#X obj 897 87 outlet;
#X obj 970 87 outlet;
#X connect 0 0 1 0;
#X connect 1 0 80 0;
#X connect 1 0 106 0;
#X connect 1 1 81 0;
#X connect 1 1 107 0;
#X connect 1 2 82 0;
#X connect 1 2 108 0;
#X connect 1 3 83 0;
#X connect 1 3 109 0;
#X connect 1 4 84 0;
#X connect 1 4 110 0;
#X connect 1 5 85 0;
#X connect 1 5 111 0;
#X connect 1 6 112 0;
#X connect 1 6 115 0;
#X connect 1 7 113 0;
#X connect 1 7 116 0;
#X connect 1 8 114 0;
#X connect 1 8 117 0;
#X connect 2 0 3 0;
#X connect 2 0 12 0;
#X connect 4 0 5 0;
#X connect 4 0 10 0;
#X connect 4 0 88 0;
#X connect 6 0 8 0;
#X connect 6 0 10 1;
#X connect 6 0 91 0;
#X connect 7 0 6 0;
#X connect 10 0 11 0;
#X connect 10 0 13 0;
#X connect 12 0 15 0;
#X connect 12 0 16 0;
#X connect 13 0 14 0;
#X connect 13 0 17 0;
#X connect 16 0 13 1;
#X connect 16 1 79 0;
#X connect 17 0 18 0;
#X connect 17 0 93 0;
#X connect 19 0 31 0;
#X connect 20 0 30 0;
#X connect 21 0 29 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 24 0 64 0;
#X connect 26 0 22 0;
#X connect 27 0 22 1;
#X connect 28 0 23 1;
#X connect 29 0 28 0;
#X connect 29 0 28 1;
#X connect 29 0 101 0;
#X connect 30 0 27 0;
#X connect 30 0 27 1;
#X connect 30 0 100 0;
#X connect 31 0 26 0;
#X connect 31 0 26 1;
#X connect 31 0 99 0;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 36 0 37 0;
#X connect 37 0 35 0;
#X connect 37 0 32 0;
#X connect 37 0 45 0;
#X connect 38 0 34 1;
#X connect 38 1 39 0;
#X connect 39 0 34 0;
#X connect 43 0 44 0;
#X connect 43 0 46 0;
#X connect 44 0 59 0;
#X connect 45 0 44 1;
#X connect 45 1 44 0;
#X connect 47 0 48 0;
#X connect 47 0 49 0;
#X connect 47 0 52 0;
#X connect 47 0 55 0;
#X connect 47 0 56 0;
#X connect 48 0 51 1;
#X connect 49 0 50 1;
#X connect 50 0 51 0;
#X connect 51 0 62 0;
#X connect 52 0 50 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 54 0 63 0;
#X connect 55 0 54 1;
#X connect 56 0 53 1;
#X connect 58 0 57 0;
#X connect 58 0 41 0;
#X connect 59 0 60 0;
#X connect 59 1 60 1;
#X connect 60 0 47 0;
#X connect 61 0 63 0;
#X connect 62 0 61 0;
#X connect 63 0 58 0;
#X connect 67 0 70 0;
#X connect 68 0 67 0;
#X connect 70 0 71 0;
#X connect 71 0 69 0;
#X connect 71 0 66 0;
#X connect 72 0 68 1;
#X connect 72 1 73 0;
#X connect 73 0 68 0;
#X connect 75 0 76 0;
#X connect 79 0 13 0;
#X connect 86 0 4 0;
#X connect 86 0 9 0;
#X connect 87 0 4 1;
#X connect 89 0 7 0;
#X connect 89 0 75 0;
#X connect 90 0 6 1;
#X connect 92 0 17 1;
#X connect 94 0 77 0;
#X connect 94 0 78 0;
#X connect 95 0 12 1;
#X connect 96 0 31 1;
#X connect 97 0 30 1;
#X connect 98 0 29 1;
#X connect 102 0 34 0;
#X connect 103 0 38 0;
#X connect 104 0 68 0;
#X connect 105 0 72 0;