alpha

iamyou-radio-en.mmp

@@ -0,0 +1 @@
+{"pdFile":"iamyou-radio.pd","backgroundColor":[1.0,0.4,0.4,1.0],"pageCount":1,"port":54321,"isPageScrollShortEnd":false,"startPageIndex":0,"canvasType":"widePhone","gui":[{"highlightColor":[0.6,1.0,0.6,1.0],"address":"/myLabel","textSize":16,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"Listen 1-by-1","textFont":"","class":"MMPLabel","vAlign":0,"frame":[250.0,210.0,66.0,40.0]},{"highlightColor":[0.6,1.0,0.6,1.0],"borderThickness":4,"address":"/tgl.Go.Live","color":[1.0,0.6,0.0,1.0],"class":"MMPToggle","frame":[10.0,290.0,40.0,40.0]},{"highlightColor":[1.0,0.0,0.0,1.0],"address":"/myLabel","textSize":16,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":",","textFont":"","class":"MMPLabel","vAlign":0,"frame":[140.0,400.0,40.0,40.0]},{"highlightColor":[1.0,0.0,0.0,1.0],"address":"/disp.Loc.Current.Lat.Coarse","textSize":16,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"37.574 ","textFont":"","class":"MMPLabel","vAlign":0,"frame":[40.0,400.0,80.0,40.0]},{"highlightColor":[1.0,0.0,0.0,1.0],"address":"/disp.Loc.Current.Lon.Coarse","textSize":16,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"126.925 ","textFont":"","class":"MMPLabel","vAlign":0,"frame":[180.0,400.0,80.0,40.0]},{"highlightColor":[0.6,1.0,0.6,1.0],"borderThickness":4,"address":"/tgl.Location.En","color":[1.0,0.6,0.0,1.0],"class":"MMPToggle","frame":[270.0,10.0,40.0,40.0]},{"highlightColor":[0.0,0.4,0.4,1.0],"address":"/lcd.Compass","color":[1.0,1.0,1.0,0.0],"class":"MMPLCD","frame":[270.0,430.0,40.0,40.0]},{"highlightColor":[0.0,1.0,0.8,1.0],"borderThickness":4,"address":"/tgl.Location.Act","color":[1.0,0.6,0.0,1.0],"class":"MMPToggle","frame":[270.0,60.0,40.0,40.0]},{"highlightColor":[0.6,1.0,0.6,1.0],"address":"/myLabel","textSize":16,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"Location On/off","textFont":"","class":"MMPLabel","vAlign":0,"frame":[190.0,10.0,80.0,40.0]},{"highlightColor":[1.0,0.0,0.0,1.0],"address":"/myLabel","textSize":16,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"Location Activity","textFont":"","class":"MMPLabel","vAlign":0,"frame":[190.0,60.0,80.0,40.0]},{"highlightColor":[0.0,0.8,1.0,1.0],"address":"/myLabel","textSize":16,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"Listening Location:","textFont":"","class":"MMPLabel","vAlign":0,"frame":[85.0,360.0,170.0,40.0]},{"highlightColor":[0.0,0.8,1.0,1.0],"address":"/myLabel","textSize":16,"hAlign":0,"color":[1.0,1.0,0.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"Where Is North?","textFont":"","class":"MMPLabel","vAlign":0,"frame":[190.0,430.0,100.0,40.0]},{"highlightColor":[1.0,0.0,0.0,1.0],"address":"/disp.Loc.Current.Lon.Fine","textSize":16,"hAlign":0,"color":[1.0,1.0,0.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"708 ","textFont":"","class":"MMPLabel","vAlign":0,"frame":[250.0,400.0,40.0,40.0]},{"highlightColor":[1.0,0.0,0.0,1.0],"address":"/disp.Loc.Current.Lat.Fine","textSize":16,"hAlign":0,"color":[1.0,1.0,0.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"973 ","textFont":"","class":"MMPLabel","vAlign":0,"frame":[100.0,400.0,40.0,40.0]},{"highlightColor":[0.6,1.0,0.6,1.0],"address":"/myLabel","textSize":22,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"YOUR NODE NAME!","textFont":"","class":"MMPLabel","vAlign":0,"frame":[50.0,160.0,230.0,50.0]},{"highlightColor":[0.6,1.0,0.6,1.0],"address":"/myLabel","textSize":16,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"I AM YOU [RADIO]/","textFont":"","class":"MMPLabel","vAlign":0,"frame":[60.0,40.0,100.0,40.0]},{"mode":0,"highlightColor":[0.6,1.0,0.6,1.0],"borderThickness":3,"address":"/myGrid","color":[1.0,1.0,1.0,1.0],"dim":[5,5],"class":"MMPGrid","cellPadding":2,"frame":[210.0,250.0,100.0,100.0]},{"highlightColor":[0.6,1.0,0.6,1.0],"address":"/myLabel","textSize":16,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"Live Location On/Off","textFont":"","class":"MMPLabel","vAlign":0,"frame":[10.0,250.0,114.0,40.0]}],"isOrientationLandscape":false,"preferAndroidFontDisplayInEditor":false,"version":2.0}

iamyou-radio.pd

@@ -0,0 +1,2 @@
+#N canvas 959 463 400 300 10;
+#X obj 147 129 iamyou-radio/main;

iamyou-radio/audiodot.pd

@@ -0,0 +1,194 @@
+#N canvas 0 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 574 515 eqpan2~ 30;
+#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 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 67 0;
+#X connect 27 1 66 0;
+#X connect 27 1 87 0;
+#X connect 28 0 85 0;
+#X connect 29 0 86 0;
+#X connect 32 0 43 0;
+#X connect 33 0 32 1;
+#X connect 35 0 41 0;
+#X connect 37 0 49 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 72 0;
+#X connect 42 0 34 0;
+#X connect 43 0 45 0;
+#X connect 44 0 45 1;
+#X connect 45 0 36 0;
+#X connect 45 1 36 1;
+#X connect 46 0 47 1;
+#X connect 46 1 47 0;
+#X connect 47 0 54 0;
+#X connect 48 0 50 0;
+#X connect 49 0 51 0;
+#X connect 49 1 46 0;
+#X connect 50 0 53 0;
+#X connect 50 1 52 0;
+#X connect 51 0 44 0;
+#X connect 52 0 51 1;
+#X connect 53 0 51 1;
+#X connect 54 0 48 0;
+#X connect 57 0 64 0;
+#X connect 58 0 60 0;
+#X connect 59 0 57 0;
+#X connect 60 0 59 0;
+#X connect 61 0 59 1;
+#X connect 62 0 63 0;
+#X connect 63 0 57 0;
+#X connect 64 0 65 0;
+#X connect 65 0 37 0;
+#X connect 68 0 69 0;
+#X connect 69 0 38 0;
+#X connect 70 0 58 0;
+#X connect 71 0 73 0;
+#X connect 72 0 71 0;
+#X connect 73 0 32 0;
+#X connect 74 0 72 0;
+#X connect 77 0 80 0;
+#X connect 77 1 79 1;
+#X connect 77 2 78 3;
+#X connect 77 3 78 1;
+#X connect 78 0 8 0;
+#X connect 79 0 78 0;
+#X connect 80 0 79 0;
+#X connect 80 1 78 2;
+#X connect 81 0 84 0;
+#X connect 81 1 83 1;
+#X connect 81 2 82 3;
+#X connect 81 3 82 1;
+#X connect 82 0 7 0;
+#X connect 83 0 82 0;
+#X connect 84 0 83 0;
+#X connect 84 1 82 2;
+#X connect 85 0 78 0;
+#X connect 85 1 81 0;
+#X connect 86 0 82 0;
+#X connect 86 1 77 0;

iamyou-radio/main.pd

@@ -1,4 +1,13 @@
-#N canvas 948 458 411 305 10;
+#N canvas 1 91 880 512 10;
+#X obj 294 264 r \$0-compass;
+#X msg 265 218 37.573 638 126.924 850;
+#X obj 265 195 loadbang;
+#X obj 237 241 r listening-location;
+#X obj 94 264 r \$0-compass;
+#X obj 65 195 loadbang;
+#X obj 37 241 r listening-location;
+#X msg 65 218 37.563 638 126.927 850;
+#N canvas 1 91 792 464 guts 0;
 #X obj 14 14 receive fromSystem;
 #X obj 14 60 route /location /compass;
 #X obj 14 37 list trim;
@@ -39,7 +48,7 @@ turned into rough=123456 fine=789.;
 #X text 202 208 arg #7: longitude "rough";
 #X text 202 248 arg #9: longitude "fine";
 #X text 170 113 <======;
-#N canvas 1 91 1064 672 gui 0;
+#N canvas 1 91 1358 672 gui 0;
 #X obj 16 239 send toGUI;
 #X obj 526 72 list trim;
 #X obj 526 49 receive fromGUI;
@@ -101,13 +110,13 @@ turned into rough=123456 fine=789.;
 #X connect 21 0 18 0;
 #X restore 406 597 pd draw_arrow;
 #X floatatom 406 403 5 0 0 1 angle_(deg) - -;
-#X obj 100 580 send toGUI;
+#X obj 28 625 send toGUI;
 #X floatatom 406 335 5 0 0 1 angle_(deg) - -;
 #X obj 406 380 +;
 #X obj 406 357 * -1;
 #X obj 406 312 r \$0-compass;
 #X obj 586 417 r \$0-brng;
-#X obj 100 534 r \$0-dist;
+#X obj 28 579 r \$0-dist;
 #X obj 154 372 loadbang;
 #X obj 154 395 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
@@ -170,11 +179,10 @@ turned into rough=123456 fine=789.;
 #X text 11 16 disp. lat/long in text;
 #X text 354 18 toggle gps reception + automatically enable at start-up
 ;
-#X obj 16 46 r latlon;
 #X floatatom 16 403 5 0 0 1 angle_(deg) - -;
 #X obj 16 357 * -1;
 #X obj 16 380 + 360;
-#X text 97 499 disp. distance (km) in text;
+#X text 25 544 disp. distance (km) in text;
 #X obj 850 281 s toGUI;
 #X obj 807 284 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
@@ -197,11 +205,11 @@ turned into rough=123456 fine=789.;
 #X msg 356 72 list /tgl.Location.En 1;
 #X msg 850 252 list /tgl.Location.Act set \$1;
 #X msg 16 98 list /disp.Loc.Current.Lat.Coarse \$1;
-#X msg 43 121 list /disp.Loc.Current.Lon.Coarse \$1;
-#X msg 70 167 list /disp.Loc.Current.Lat.Fine \$1;
+#X msg 70 167 list /disp.Loc.Current.Lon.Coarse \$1;
+#X msg 43 144 list /disp.Loc.Current.Lat.Fine \$1;
 #X msg 97 213 list /disp.Loc.Current.Lon.Fine \$1;
 #X obj 16 69 unpack f f f f;
-#X obj 100 557 list prepend /disp.Distance;
+#X obj 28 602 list prepend /disp.Distance;
 #X text 14 281 draw north pointing compass;
 #X obj 304 367 loadbang;
 #X obj 304 390 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@@ -311,7 +319,7 @@ turned into rough=123456 fine=789.;
 1;
 #X obj 489 440 loadbang;
 #X msg 489 463 0;
-#X obj 70 144 makefilename %03d;
+#X obj 43 121 makefilename %03d;
 #X obj 97 190 makefilename %03d;
 #X obj 876 589 send toGUI;
 #X msg 876 566 list /tgl.Location.En \$1;
@@ -327,381 +335,113 @@ try to get one intentionally by performing a enable/disable cycle.
 ;
 #X msg 935 148 20000;
 #X text 947 123 20 seconds;
-#X connect 1 0 43 0;
+#X obj 16 46 r listening-location;
+#X obj 1104 286 list trim;
+#X obj 1104 263 receive fromGUI;
+#X obj 1104 309 route /tgl.Go.Live;
+#X obj 1104 332 tgl 15 0 \$0-go_live empty s:0-go_live 17 7 0 10 -262144
+-1 -1 0 1;
+#X connect 1 0 42 0;
 #X connect 2 0 1 0;
 #X connect 3 0 4 0;
-#X connect 5 0 44 0;
-#X connect 8 0 56 0;
-#X connect 8 0 66 0;
+#X connect 5 0 43 0;
+#X connect 8 0 55 0;
+#X connect 8 0 65 0;
 #X connect 10 0 12 0;
 #X connect 11 0 8 0;
 #X connect 12 0 11 0;
 #X connect 13 0 10 0;
 #X connect 14 0 11 1;
-#X connect 15 0 51 0;
+#X connect 15 0 50 0;
 #X connect 16 0 17 0;
 #X connect 17 0 19 0;
-#X connect 19 0 25 0;
+#X connect 19 0 24 0;
 #X connect 20 0 19 0;
-#X connect 23 0 50 0;
-#X connect 24 0 18 0;
-#X connect 25 0 26 0;
-#X connect 26 0 24 0;
-#X connect 29 0 45 0;
+#X connect 23 0 18 0;
+#X connect 24 0 25 0;
+#X connect 25 0 23 0;
+#X connect 28 0 44 0;
+#X connect 29 0 30 0;
 #X connect 30 0 31 0;
-#X connect 31 0 32 0;
-#X connect 32 0 30 1;
-#X connect 32 0 29 0;
-#X connect 33 0 41 0;
-#X connect 33 1 34 0;
-#X connect 34 0 30 1;
-#X connect 35 0 30 0;
-#X connect 36 0 37 0;
-#X connect 37 0 45 0;
-#X connect 38 0 39 0;
-#X connect 39 0 42 0;
-#X connect 39 0 82 0;
-#X connect 41 0 35 0;
-#X connect 41 1 36 0;
-#X connect 42 0 33 0;
-#X connect 43 0 3 0;
-#X connect 44 0 6 0;
-#X connect 45 0 28 0;
+#X connect 31 0 29 1;
+#X connect 31 0 28 0;
+#X connect 32 0 40 0;
+#X connect 32 1 33 0;
+#X connect 33 0 29 1;
+#X connect 34 0 29 0;
+#X connect 35 0 36 0;
+#X connect 36 0 44 0;
+#X connect 37 0 38 0;
+#X connect 38 0 41 0;
+#X connect 38 0 81 0;
+#X connect 40 0 34 0;
+#X connect 40 1 35 0;
+#X connect 41 0 32 0;
+#X connect 42 0 3 0;
+#X connect 43 0 6 0;
+#X connect 44 0 27 0;
+#X connect 45 0 0 0;
 #X connect 46 0 0 0;
 #X connect 47 0 0 0;
 #X connect 48 0 0 0;
-#X connect 49 0 0 0;
-#X connect 50 0 46 0;
-#X connect 50 1 47 0;
-#X connect 50 2 71 0;
-#X connect 50 3 72 0;
-#X connect 51 0 9 0;
-#X connect 53 0 54 0;
-#X connect 54 0 8 0;
+#X connect 49 0 45 0;
+#X connect 49 1 70 0;
+#X connect 49 2 46 0;
+#X connect 49 3 71 0;
+#X connect 50 0 9 0;
+#X connect 52 0 53 0;
+#X connect 53 0 8 0;
+#X connect 55 0 56 0;
 #X connect 56 0 57 0;
-#X connect 57 0 58 0;
-#X connect 59 0 8 0;
-#X connect 60 0 65 1;
-#X connect 62 0 61 0;
-#X connect 63 0 68 0;
-#X connect 64 0 7 0;
-#X connect 65 0 67 0;
+#X connect 58 0 8 0;
+#X connect 59 0 64 1;
+#X connect 61 0 60 0;
+#X connect 62 0 67 0;
+#X connect 63 0 7 0;
+#X connect 64 0 66 0;
+#X connect 64 0 62 0;
 #X connect 65 0 63 0;
-#X connect 66 0 64 0;
-#X connect 66 1 62 0;
-#X connect 66 2 65 0;
-#X connect 67 0 62 1;
-#X connect 68 0 64 1;
-#X connect 69 0 70 0;
-#X connect 70 0 65 1;
+#X connect 65 1 61 0;
+#X connect 65 2 64 0;
+#X connect 66 0 61 1;
+#X connect 67 0 63 1;
+#X connect 68 0 69 0;
+#X connect 69 0 64 1;
+#X connect 70 0 47 0;
 #X connect 71 0 48 0;
-#X connect 72 0 49 0;
-#X connect 74 0 73 0;
-#X connect 75 0 79 0;
+#X connect 73 0 72 0;
+#X connect 74 0 78 0;
+#X connect 75 0 76 0;
 #X connect 76 0 77 0;
-#X connect 77 0 78 0;
-#X connect 77 1 75 0;
-#X connect 78 0 74 0;
-#X connect 79 0 74 0;
-#X connect 80 0 76 0;
-#X connect 82 0 80 0;
+#X connect 76 1 74 0;
+#X connect 77 0 73 0;
+#X connect 78 0 73 0;
+#X connect 79 0 75 0;
+#X connect 81 0 79 0;
+#X connect 83 0 49 0;
+#X connect 84 0 86 0;
+#X connect 85 0 84 0;
+#X connect 86 0 87 0;
 #X restore 287 25 pd gui guts;
 #X obj 63 142 / 1000;
 #X obj 100 165 / 1000;
-#N canvas 541 159 818 604 location 0;
-#X obj 183 351 geocoord_dist;
-#X obj 273 351 geocoord_bearing;
-#X obj 183 291 pack f f f f;
-#N canvas 1 91 631 615 get_point 0;
-#X obj 297 17 r fromGUI;
-#X obj 297 86 sel 1;
-#X obj 297 173 send toSystem;
-#X obj 17 40 list trim;
-#X obj 17 17 r fromSystem;
-#X obj 17 63 route /textDialog;
-#X obj 388 86 sel 1;
-#X obj 297 40 list trim;
-#X obj 17 236 tofloat;
-#X obj 205 236 tofloat;
-#X obj 297 63 route /btn.Set.Lat /btn.Set.Lon;
-#X msg 297 110 list /textDialog /diagInputLat Set Latitude:;
-#X msg 317 143 list /textDialog /diagInputLong Set Longitude:;
-#X obj 17 576 send toGUI;
-#X obj 17 86 route /diagInputLong /diagInputLat;
-#X msg 17 494 list /disp.Loc.Pointing.Lon.Coarse \$1;
-#X msg 44 547 list /disp.Loc.Pointing.Lon.Fine \$1;
-#X obj 159 447 outlet;
-#X obj 159 424 pack f f f f;
-#X obj 343 400 send toGUI;
-#X msg 370 371 list /disp.Loc.Pointing.Lat.Fine \$1;
-#X msg 343 325 list /disp.Loc.Pointing.Lat.Coarse \$1;
-#X text 156 469 (Lat.fine \, Lon.fine \, Lat.rough \, Lon.rough);
-#X obj 159 401 f;
-#X obj 159 372 t b a;
-#X obj 205 272 expr $f1+int($f2*1000)/1000 \; rint(abs($f2*1000000))%1000
-;
-#X obj 17 272 expr $f1+int($f2*1000)/1000 \; rint(abs($f2*1000000))%1000
-;
-#X obj 44 524 makefilename %03d;
-#X obj 370 348 makefilename %03d;
-#X obj 101 152 unpack f f f f;
-#X obj 201 49 r PRESET;
-#X obj 111 208 f;
-#X obj 101 175 t b a;
-#X connect 0 0 7 0;
-#X connect 1 0 11 0;
-#X connect 3 0 5 0;
-#X connect 4 0 3 0;
-#X connect 5 0 14 0;
-#X connect 6 0 12 0;
-#X connect 7 0 10 0;
-#X connect 8 0 26 0;
-#X connect 8 1 26 1;
-#X connect 9 0 25 0;
-#X connect 9 1 25 1;
-#X connect 10 0 1 0;
-#X connect 10 1 6 0;
-#X connect 11 0 2 0;
-#X connect 12 0 2 0;
-#X connect 14 0 8 0;
-#X connect 14 1 9 0;
-#X connect 15 0 13 0;
-#X connect 16 0 13 0;
-#X connect 18 0 17 0;
-#X connect 20 0 19 0;
-#X connect 21 0 19 0;
-#X connect 23 0 18 0;
-#X connect 24 0 23 0;
-#X connect 24 1 18 3;
-#X connect 25 0 18 2;
-#X connect 25 0 21 0;
-#X connect 25 1 23 1;
-#X connect 25 1 28 0;
-#X connect 26 0 15 0;
-#X connect 26 0 24 0;
-#X connect 26 1 18 1;
-#X connect 26 1 27 0;
-#X connect 27 0 16 0;
-#X connect 28 0 20 0;
-#X connect 29 0 32 0;
-#X connect 29 1 25 1;
-#X connect 29 2 31 1;
-#X connect 29 3 26 1;
-#X connect 30 0 29 0;
-#X connect 31 0 26 0;
-#X connect 32 0 31 0;
-#X connect 32 1 25 0;
-#X restore 494 19 pd get_point;
-#X obj 183 42 unpack f f f f;
-#X obj 183 19 r latlon;
-#X obj 421 351 geocoord_dist;
-#X obj 511 351 geocoord_bearing;
-#X obj 421 314 t a a;
-#X obj 421 291 pack f f f f;
-#X obj 183 111 pack f f f f;
-#X obj 183 88 f;
-#X obj 183 65 t b a;
-#X obj 413 134 unpack f f f f;
-#X obj 183 134 unpack f f f f;
-#X obj 440 183 expr copysign($f1 \, $f2)/1e+06;
-#X obj 413 206 expr copysign($f1 \, $f2)/1e+06;
-#X obj 210 183 expr copysign($f1 \, $f2)/1e+06;
-#X obj 183 206 expr copysign($f1 \, $f2)/1e+06;
-#X text 574 273 coarse;
-#X text 307 280 fine;
-#X obj 183 374 v distF\$0;
-#X obj 273 374 v brngF\$0;
-#X obj 511 374 v brngC\$0;
-#X obj 421 374 v distC\$0;
-#X obj 183 314 t b a a;
-#X obj 55 372 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#X obj 236 428 v x\$0;
-#X obj 236 448 v y\$0;
-#X obj 181 568 s \$0-dist;
-#X obj 266 568 s \$0-brng;
-#X text 325 72 (Lat.fine \, Lon.fine \, Lat.rough \, Lon.rough);
-#X msg 18 64 36.123 127.789 456 12;
-#X msg 18 113 456 12 36.123 127.789;
-#X text 43 89 re-order to be;
-#X obj 55 415 sel 1;
-#X obj 55 392 v haveSetPoint;
-#X obj 554 134 v haveSetPoint;
-#X msg 554 111 1;
-#X obj 653 224 send toGUI;
-#X msg 653 201 list /tgl.Location.En \$1;
-#X obj 690 149 del 500;
-#X obj 653 106 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
--1 -1;
-#X obj 653 126 t b b;
-#X msg 653 149 0;
-#X msg 690 172 1;
-#X obj 494 42 t b b a;
-#X obj 518 319 print input(C);
-#X obj 278 319 print input(F);
-#X obj 55 497 print dist(km);
-#X obj 55 474 print brng(deg);
-#X obj 181 474 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 628 520 tgl 15 0 \$0-veryclose empty s:0-veryclose 17 7 0 10
--262144 -1 -1 0 1;
-#X obj 628 497 < 0.03;
-#X obj 628 474 r \$0-dist;
-#X connect 0 0 21 0;
-#X connect 1 0 22 0;
-#X connect 2 0 25 0;
-#X connect 2 0 48 0;
-#X connect 3 0 46 0;
-#X connect 4 0 12 0;
-#X connect 4 1 10 3;
-#X connect 4 2 11 1;
-#X connect 4 3 10 1;
-#X connect 5 0 4 0;
-#X connect 6 0 24 0;
-#X connect 7 0 23 0;
-#X connect 8 0 6 0;
-#X connect 8 1 7 0;
-#X connect 9 0 8 0;
-#X connect 9 0 47 0;
-#X connect 10 0 14 0;
-#X connect 11 0 10 0;
-#X connect 12 0 11 0;
-#X connect 12 1 10 2;
-#X connect 13 0 16 0;
-#X connect 13 1 15 0;
-#X connect 13 2 9 2;
-#X connect 13 2 16 1;
-#X connect 13 3 9 3;
-#X connect 13 3 15 1;
-#X connect 14 0 18 0;
-#X connect 14 1 17 0;
-#X connect 14 2 9 0;
-#X connect 14 2 18 1;
-#X connect 14 3 9 1;
-#X connect 14 3 17 1;
-#X connect 15 0 2 3;
-#X connect 16 0 2 2;
-#X connect 17 0 2 1;
-#X connect 18 0 2 0;
-#X connect 25 0 26 0;
-#X connect 25 1 0 0;
-#X connect 25 2 1 0;
-#X connect 26 0 36 0;
-#X connect 32 0 4 0;
-#X connect 33 0 13 0;
-#X connect 35 0 51 0;
-#X connect 36 0 35 0;
-#X connect 38 0 37 0;
-#X connect 40 0 39 0;
-#X connect 41 0 45 0;
-#X connect 42 0 43 0;
-#X connect 43 0 44 0;
-#X connect 43 1 41 0;
-#X connect 44 0 40 0;
-#X connect 45 0 40 0;
-#X connect 46 0 42 0;
-#X connect 46 1 38 0;
-#X connect 46 2 13 0;
-#X connect 51 0 29 0;
-#X connect 51 0 49 0;
-#X connect 51 1 30 0;
-#X connect 51 1 50 0;
-#X connect 53 0 52 0;
-#X connect 54 0 53 0;
-#X restore 287 48 pd location guts;
-#N canvas 142 162 800 337 audio 0;
-#X obj 18 146 wav2~;
-#X msg 18 68 01.wav;
-#X msg 31 117 1;
-#X msg 667 227 \; pd dsp 1;
-#X obj 31 16 loadbang;
-#X obj 153 39 r \$0-dist;
-#X obj 153 62 map 0.005 0.05 1 0.1;
-#X obj 18 303 dac~;
-#X floatatom 318 43 5 0 0 1 - - -;
-#X floatatom 153 85 5 0 0 1 vol - -;
-#X obj 153 146 line~;
-#X msg 153 123 \$1 20;
-#X obj 31 39 t b b;
-#X obj 667 204 loadbang;
-#X obj 18 169 expr~ $v1 * pow($v2 \, 4);
-#X obj 318 20 r \$0-brng-error;
-#X obj 318 248 line~;
-#X obj 18 265 eqpan2~ 30;
-#X obj 363 81 t a a;
-#X obj 363 110 -;
-#X obj 363 156 > 100;
-#X obj 318 65 t a a;
-#X obj 363 179 sel 1 0;
-#X obj 318 225 pack f f;
-#X msg 393 202 100;
-#X msg 363 202 0;
-#X obj 363 133 abs;
-#X text 419 150 if abs of diff. greater than 100 \, disable fading.
-(otherwise one will hear glitches.);
-#X text 411 47 for a very big jumps \, like 180 <-> -180 .. this is
-not regular change \, we should disable [line~] for such events.;
-#X connect 0 0 14 0;
-#X connect 1 0 0 0;
-#X connect 2 0 0 1;
-#X connect 4 0 12 0;
-#X connect 5 0 6 0;
-#X connect 6 0 9 0;
-#X connect 8 0 21 0;
-#X connect 9 0 11 0;
-#X connect 10 0 14 1;
-#X connect 11 0 10 0;
-#X connect 12 0 2 0;
-#X connect 12 1 1 0;
-#X connect 13 0 3 0;
-#X connect 14 0 17 0;
-#X connect 15 0 8 0;
-#X connect 16 0 17 1;
-#X connect 17 0 7 0;
-#X connect 17 1 7 1;
-#X connect 18 0 19 1;
-#X connect 18 1 19 0;
-#X connect 19 0 26 0;
-#X connect 20 0 22 0;
-#X connect 21 0 23 0;
-#X connect 21 1 18 0;
-#X connect 22 0 25 0;
-#X connect 22 1 24 0;
-#X connect 23 0 16 0;
-#X connect 24 0 23 1;
-#X connect 25 0 23 1;
-#X connect 26 0 20 0;
-#X restore 287 71 pd audio guts;
-#N canvas 1 420 450 324 PRESET 0;
-#X obj 147 287 s PRESET;
-#X obj 147 264 pack f f f f;
-#X text 14 8 (Lat.integral \, Lat.fractional \, Lon.integral \, Lon.fractional)
-;
-#X obj 18 43 loadbang;
-#X obj 18 162 t b b b b, f 46;
-#X obj 18 112 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#X obj 18 89 del;
-#X msg 18 66 500;
-#X msg 109 211 0.574749;
-#X msg 291 211 0.92608;
-#X msg 18 185 37;
-#X msg 200 185 126;
-#X connect 1 0 0 0;
-#X connect 3 0 7 0;
-#X connect 4 0 10 0;
-#X connect 4 1 8 0;
-#X connect 4 2 11 0;
-#X connect 4 3 9 0;
-#X connect 6 0 5 0;
-#X connect 7 0 6 0;
-#X connect 8 0 1 1;
-#X connect 9 0 1 3;
-#X connect 10 0 1 0;
-#X connect 11 0 1 2;
-#X restore 190 24 pd PRESET;
+#X obj 435 80 r latlon;
+#X text 56 356 listening location -> virtual location (=preset);
+#X obj 435 103 unpack f f f f;
+#X obj 435 132 pack f f f f;
+#X text 433 40 listening location -> live location (=use live location
+input);
+#X obj 435 185 spigot;
+#X msg 57 384 37.574 973 126.925 708;
+#X obj 27 329 loadbang;
+#X obj 57 407 s listening-location;
+#X obj 435 208 s listening-location;
+#X floatatom 167 27 5 0 0 0 - - -;
+#X text 210 384 seoul node location (for example);
+#X obj 549 96 tgl 15 0 empty \$0-go_live r:0-go_live 17 7 0 10 -262144
+-1 -1 0 1;
+#X obj 223 304 sel 0;
+#X obj 549 116 t a a;
 #X connect 0 0 2 0;
 #X connect 1 0 3 0;
 #X connect 1 1 5 0;
@@ -714,3 +454,55 @@ not regular change \, we should disable [line~] for such events.;
 #X connect 4 0 7 0;
 #X connect 15 0 4 0;
 #X connect 16 0 4 1;
+#X connect 17 0 19 0;
+#X connect 19 0 20 0;
+#X connect 19 1 20 2;
+#X connect 19 2 20 1;
+#X connect 19 3 20 3;
+#X connect 20 0 22 0;
+#X connect 22 0 26 0;
+#X connect 23 0 25 0;
+#X connect 24 0 23 0;
+#X connect 27 0 5 0;
+#X connect 29 0 31 0;
+#X connect 30 0 23 0;
+#X connect 31 0 30 0;
+#X connect 31 1 22 1;
+#X restore 25 18 pd guts;
+#X msg 332 39 37.573 638 126.924 850;
+#X text 330 14 location input-format: (Lat.rough \, Lat.fine \, Lon.rough
+\, Lon.fine), f 66;
+#X text 488 37 (please insert a space after 3rd fractional digit \,
+i.e. split 1 number to 2 why? -->);
+#N canvas 1 91 454 330 more 0;
+#X msg 23 143 37.5736;
+#X floatatom 23 166 9 0 0 0 - - -;
+#X msg 23 233 37.573 638 126.924 850;
+#X msg 23 79 37.5736 126.925;
+#X text 21 18 let's say our listening location is \; Lat. 37.5736 \,
+Long. 126.925;
+#X text 21 58 natural write-up of this location;
+#X text 21 108 but this will suffer resolution problem in Pd (Pd support
+only up to 6 significands), f 46;
+#X text 21 198 so \, we write this slightly differently! (inserting
+a space after 3rd fractional digit);
+#X text 21 268 location data format in Pd here is:;
+#X text 21 288 location input-format: (Lat.rough \, Lat.fine \, Lon.rough
+\, Lon.fine), f 66;
+#X connect 0 0 1 0;
+#X restore 676 56 pd more notes;
+#X text 474 229 as many as you want. ===>;
+#X text 49 396 as many as you want. ===>;
+#X text 274 143 just copy/paste 1 set \, and change file number + change
+location numbers. at the very last. don't forget to save!;
+#X text 378 116 ==== INSTRUCTION ====;
+#X obj 37 287 audiodot 1;
+#X obj 237 287 audiodot 2;
+#X connect 0 0 18 2;
+#X connect 1 0 18 1;
+#X connect 2 0 1 0;
+#X connect 3 0 18 0;
+#X connect 4 0 17 2;
+#X connect 5 0 7 0;
+#X connect 6 0 17 0;
+#X connect 7 0 17 1;

iamyou.pd

@@ -1,2 +0,0 @@
-#N canvas 959 463 400 300 10;
-#X obj 147 129 iamyou/main;