195 lines
5.1 KiB
Text
195 lines
5.1 KiB
Text
#N canvas 1 91 1360 677 10;
|
|
#X obj 63 431 geocoord_dist;
|
|
#X obj 153 431 geocoord_bearing;
|
|
#X obj 63 371 pack f f f f;
|
|
#X obj 301 431 geocoord_dist;
|
|
#X obj 391 431 geocoord_bearing;
|
|
#X obj 301 394 t a a;
|
|
#X obj 301 371 pack f f f f;
|
|
#X obj 293 234 unpack f f f f;
|
|
#X obj 63 234 unpack f f f f;
|
|
#X obj 320 283 expr copysign($f1 \, $f2)/1e+06;
|
|
#X obj 293 306 expr copysign($f1 \, $f2)/1e+06;
|
|
#X obj 90 283 expr copysign($f1 \, $f2)/1e+06;
|
|
#X obj 63 306 expr copysign($f1 \, $f2)/1e+06;
|
|
#X text 454 353 coarse;
|
|
#X text 187 360 fine;
|
|
#X obj 63 454 v distF\$0;
|
|
#X obj 153 454 v brngF\$0;
|
|
#X obj 391 454 v brngC\$0;
|
|
#X obj 301 454 v distC\$0;
|
|
#X obj 63 394 t b a a;
|
|
#X obj 14 448 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
|
|
-1;
|
|
#X obj 116 478 v x\$0;
|
|
#X obj 116 498 v y\$0;
|
|
#X obj 398 399 print input(C);
|
|
#X obj 158 399 print input(F);
|
|
#X obj 384 524 print dist(km);
|
|
#X obj 384 547 print brng(deg);
|
|
#X obj 61 524 expr sqrt(x\$0*x\$0+y\$0*y\$0) \; fmod(atan2(x\$0 \,
|
|
y\$0)*360/6.28319+360 \, 360) \; x\$0=distC\$0*sin(brngC\$0*6.28319/360)+
|
|
distF\$0*sin(brngF\$0*6.28319/360) \; y\$0=distC\$0*cos(brngC\$0*6.28319/360)+
|
|
distF\$0*cos(brngF\$0*6.28319/360);
|
|
#X obj 293 35 inlet;
|
|
#X obj 63 35 inlet;
|
|
#X text 65 13 listening location (live or virtual);
|
|
#X text 297 13 mark-sign location;
|
|
#X obj 574 396 wav2~;
|
|
#X msg 614 308 1;
|
|
#X msg 1223 477 \; pd dsp 1;
|
|
#X obj 587 256 loadbang;
|
|
#X obj 574 553 dac~;
|
|
#X floatatom 874 293 5 0 0 1 brng_error - -;
|
|
#X floatatom 709 335 5 0 0 1 vol - -;
|
|
#X obj 709 396 line~;
|
|
#X msg 709 373 \$1 20;
|
|
#X obj 587 279 t b b;
|
|
#X obj 1223 454 loadbang;
|
|
#X obj 574 419 expr~ $v1 * pow($v2 \, 4);
|
|
#X obj 874 498 line~;
|
|
#X obj 919 331 t a a;
|
|
#X obj 919 360 -;
|
|
#X obj 919 406 > 100;
|
|
#X obj 874 315 t a a;
|
|
#X obj 919 429 sel 1 0;
|
|
#X obj 874 475 pack f f;
|
|
#X msg 949 452 100;
|
|
#X msg 919 452 0;
|
|
#X obj 919 383 abs;
|
|
#X text 975 400 if abs of diff. greater than 100 \, disable fading.
|
|
(otherwise one will hear glitches.);
|
|
#X text 967 327 for a very big jumps \, like 180 <-> -180 .. this is
|
|
not regular change \, we should disable [line~] for such events.;
|
|
#X floatatom 753 145 5 0 0 1 angle_(deg) - -;
|
|
#X floatatom 753 77 5 0 0 1 angle_(deg) - -;
|
|
#X obj 753 122 +;
|
|
#X obj 753 99 * -1;
|
|
#X obj 933 129 r \$0-brng;
|
|
#X obj 651 109 loadbang;
|
|
#X obj 651 132 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
|
|
-1 -1;
|
|
#X obj 753 194 expr fmod(($f1+360) \, 360);
|
|
#X obj 753 217 expr fmod(($f1+180) \, 360)-180;
|
|
#X obj 146 618 s \$0-brng;
|
|
#X obj 61 618 s \$0-dist;
|
|
#X obj 709 289 loadbang;
|
|
#X obj 709 312 f 1;
|
|
#X obj 753 54 inlet;
|
|
#X obj 574 331 makefilename %02d.wav;
|
|
#X obj 574 308 f \$1;
|
|
#X symbolatom 574 354 10 0 0 0 - - -;
|
|
#X obj 561 279 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
|
|
-1 -1;
|
|
#X text 39 91 location input-format: (Lat.rough \, Lat.fine \, Lon.rough
|
|
\, Lon.fine), f 66;
|
|
#X text 39 213 location re-formated: (Lat.fine \, Lon.fine \, Lat.rough
|
|
\, Lon.rough), f 65;
|
|
#X obj 63 116 unpack f f f f;
|
|
#X obj 63 185 pack f f f f;
|
|
#X obj 63 162 f;
|
|
#X obj 63 139 t b a;
|
|
#X obj 293 116 unpack f f f f;
|
|
#X obj 293 185 pack f f f f;
|
|
#X obj 293 162 f;
|
|
#X obj 293 139 t b a;
|
|
#X obj 293 58 t b a;
|
|
#X obj 63 58 t b a;
|
|
#X obj 126 641 outlet;
|
|
#X obj 574 515 eqpan2~ 10;
|
|
#X connect 0 0 15 0;
|
|
#X connect 1 0 16 0;
|
|
#X connect 2 0 19 0;
|
|
#X connect 3 0 18 0;
|
|
#X connect 4 0 17 0;
|
|
#X connect 5 0 3 0;
|
|
#X connect 5 1 4 0;
|
|
#X connect 6 0 5 0;
|
|
#X connect 7 0 10 0;
|
|
#X connect 7 1 9 0;
|
|
#X connect 7 2 6 2;
|
|
#X connect 7 2 10 1;
|
|
#X connect 7 3 6 3;
|
|
#X connect 7 3 9 1;
|
|
#X connect 8 0 12 0;
|
|
#X connect 8 1 11 0;
|
|
#X connect 8 2 6 0;
|
|
#X connect 8 2 12 1;
|
|
#X connect 8 3 6 1;
|
|
#X connect 8 3 11 1;
|
|
#X connect 9 0 2 3;
|
|
#X connect 10 0 2 2;
|
|
#X connect 11 0 2 1;
|
|
#X connect 12 0 2 0;
|
|
#X connect 19 0 20 0;
|
|
#X connect 19 1 0 0;
|
|
#X connect 19 2 1 0;
|
|
#X connect 20 0 27 0;
|
|
#X connect 27 0 66 0;
|
|
#X connect 27 1 65 0;
|
|
#X connect 27 1 86 0;
|
|
#X connect 28 0 84 0;
|
|
#X connect 29 0 85 0;
|
|
#X connect 32 0 43 0;
|
|
#X connect 33 0 32 1;
|
|
#X connect 35 0 41 0;
|
|
#X connect 37 0 48 0;
|
|
#X connect 38 0 40 0;
|
|
#X connect 39 0 43 1;
|
|
#X connect 40 0 39 0;
|
|
#X connect 41 0 33 0;
|
|
#X connect 41 1 71 0;
|
|
#X connect 42 0 34 0;
|
|
#X connect 43 0 87 0;
|
|
#X connect 44 0 87 1;
|
|
#X connect 45 0 46 1;
|
|
#X connect 45 1 46 0;
|
|
#X connect 46 0 53 0;
|
|
#X connect 47 0 49 0;
|
|
#X connect 48 0 50 0;
|
|
#X connect 48 1 45 0;
|
|
#X connect 49 0 52 0;
|
|
#X connect 49 1 51 0;
|
|
#X connect 50 0 44 0;
|
|
#X connect 51 0 50 1;
|
|
#X connect 52 0 50 1;
|
|
#X connect 53 0 47 0;
|
|
#X connect 56 0 63 0;
|
|
#X connect 57 0 59 0;
|
|
#X connect 58 0 56 0;
|
|
#X connect 59 0 58 0;
|
|
#X connect 60 0 58 1;
|
|
#X connect 61 0 62 0;
|
|
#X connect 62 0 56 0;
|
|
#X connect 63 0 64 0;
|
|
#X connect 64 0 37 0;
|
|
#X connect 67 0 68 0;
|
|
#X connect 68 0 38 0;
|
|
#X connect 69 0 57 0;
|
|
#X connect 70 0 72 0;
|
|
#X connect 71 0 70 0;
|
|
#X connect 72 0 32 0;
|
|
#X connect 73 0 71 0;
|
|
#X connect 76 0 79 0;
|
|
#X connect 76 1 78 1;
|
|
#X connect 76 2 77 3;
|
|
#X connect 76 3 77 1;
|
|
#X connect 77 0 8 0;
|
|
#X connect 78 0 77 0;
|
|
#X connect 79 0 78 0;
|
|
#X connect 79 1 77 2;
|
|
#X connect 80 0 83 0;
|
|
#X connect 80 1 82 1;
|
|
#X connect 80 2 81 3;
|
|
#X connect 80 3 81 1;
|
|
#X connect 81 0 7 0;
|
|
#X connect 82 0 81 0;
|
|
#X connect 83 0 82 0;
|
|
#X connect 83 1 81 2;
|
|
#X connect 84 0 77 0;
|
|
#X connect 84 1 80 0;
|
|
#X connect 85 0 81 0;
|
|
#X connect 85 1 76 0;
|
|
#X connect 87 0 36 0;
|
|
#X connect 87 1 36 1;
|