179 lines
4.5 KiB
Text
179 lines
4.5 KiB
Text
#N canvas 0 98 1280 622 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 366 wav2~;
|
|
#X msg 614 278 1;
|
|
#X msg 1133 407 \; pd dsp 1;
|
|
#X obj 587 226 loadbang;
|
|
#X obj 574 593 dac~;
|
|
#X floatatom 709 305 5 0 0 1 vol - -;
|
|
#X obj 709 366 line~;
|
|
#X msg 709 343 \$1 20;
|
|
#X obj 587 249 t b b;
|
|
#X obj 1133 384 loadbang;
|
|
#X obj 574 389 expr~ $v1 * pow($v2 \, 4);
|
|
#X obj 146 618 s \$0-brng;
|
|
#X obj 61 618 s \$0-dist;
|
|
#X obj 709 259 loadbang;
|
|
#X obj 709 282 f 1;
|
|
#X obj 574 301 makefilename %02d.wav;
|
|
#X obj 574 278 f \$1;
|
|
#X symbolatom 574 324 10 0 0 0 - - -;
|
|
#X obj 561 249 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 948 389 inlet;
|
|
#X obj 948 412 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
|
|
1;
|
|
#X obj 574 564 *~;
|
|
#X obj 631 564 *~;
|
|
#X obj 732 515 vline~;
|
|
#X obj 975 556 switch~;
|
|
#X obj 948 432 t a a;
|
|
#X obj 975 455 sel 1 0;
|
|
#X msg 732 492 \$1 1000;
|
|
#X obj 1014 504 pipe 1200;
|
|
#X msg 1014 527 0;
|
|
#X msg 975 527 1;
|
|
#X msg 1014 481 clear;
|
|
#X obj 457 53 s POINT;
|
|
#X obj 10 623 s DIST;
|
|
#X obj 223 626 s BRNG;
|
|
#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 44 0;
|
|
#X connect 27 0 78 0;
|
|
#X connect 27 0 63 0;
|
|
#X connect 27 1 43 0;
|
|
#X connect 27 1 79 0;
|
|
#X connect 28 0 61 0;
|
|
#X connect 28 0 77 0;
|
|
#X connect 29 0 62 0;
|
|
#X connect 32 0 42 0;
|
|
#X connect 33 0 32 1;
|
|
#X connect 35 0 40 0;
|
|
#X connect 37 0 39 0;
|
|
#X connect 38 0 42 1;
|
|
#X connect 39 0 38 0;
|
|
#X connect 40 0 33 0;
|
|
#X connect 40 1 48 0;
|
|
#X connect 41 0 34 0;
|
|
#X connect 42 0 66 0;
|
|
#X connect 42 0 67 0;
|
|
#X connect 45 0 46 0;
|
|
#X connect 46 0 37 0;
|
|
#X connect 47 0 49 0;
|
|
#X connect 48 0 47 0;
|
|
#X connect 49 0 32 0;
|
|
#X connect 50 0 48 0;
|
|
#X connect 53 0 56 0;
|
|
#X connect 53 1 55 1;
|
|
#X connect 53 2 54 3;
|
|
#X connect 53 3 54 1;
|
|
#X connect 54 0 8 0;
|
|
#X connect 55 0 54 0;
|
|
#X connect 56 0 55 0;
|
|
#X connect 56 1 54 2;
|
|
#X connect 57 0 60 0;
|
|
#X connect 57 1 59 1;
|
|
#X connect 57 2 58 3;
|
|
#X connect 57 3 58 1;
|
|
#X connect 58 0 7 0;
|
|
#X connect 59 0 58 0;
|
|
#X connect 60 0 59 0;
|
|
#X connect 60 1 58 2;
|
|
#X connect 61 0 54 0;
|
|
#X connect 61 1 57 0;
|
|
#X connect 62 0 58 0;
|
|
#X connect 62 1 53 0;
|
|
#X connect 64 0 65 0;
|
|
#X connect 65 0 70 0;
|
|
#X connect 66 0 36 0;
|
|
#X connect 67 0 36 1;
|
|
#X connect 68 0 67 1;
|
|
#X connect 68 0 66 1;
|
|
#X connect 70 0 72 0;
|
|
#X connect 70 1 71 0;
|
|
#X connect 71 0 75 0;
|
|
#X connect 71 0 76 0;
|
|
#X connect 71 1 73 0;
|
|
#X connect 72 0 68 0;
|
|
#X connect 73 0 74 0;
|
|
#X connect 74 0 69 0;
|
|
#X connect 75 0 69 0;
|
|
#X connect 76 0 73 0;
|