This commit is contained in:
Dooho Yi 2024-10-16 08:06:34 +09:00
parent 1f1d1be16d
commit a463d5b8cd
49 changed files with 2256 additions and 520 deletions

1
heading-ears-en.mmp Normal file

File diff suppressed because one or more lines are too long

1
heading-ears-kr.mmp Normal file
View file

@ -0,0 +1 @@
{"pdFile":"heading-ears-mmp.pd","backgroundColor":[0.6,0.0,0.6,1.0],"pageCount":1,"port":54321,"isPageScrollShortEnd":false,"startPageIndex":0,"canvasType":"widePhone","gui":[{"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":[130.0,430.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,330.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,330.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":[170.0,330.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":"위치정보 켬/끔","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":"위치정보 작동중","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":"들으며 서있는 위치:","textFont":"","class":"MMPLabel","vAlign":0,"frame":[90.0,300.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":"북쪽은 어디?","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,330.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,330.0,40.0,40.0]},{"highlightColor":[0.6,1.0,0.6,1.0],"address":"/myLabel","textSize":24,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"나는 너야 [라디오]/*","textFont":"","class":"MMPLabel","vAlign":0,"frame":[50.0,180.0,250.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":"실제 위치 사용 켬/끔","textFont":"","class":"MMPLabel","vAlign":0,"frame":[10.0,430.0,114.0,40.0]}],"isOrientationLandscape":false,"preferAndroidFontDisplayInEditor":false,"version":2.0}

2
heading-ears-mmp.pd Normal file
View file

@ -0,0 +1,2 @@
#N canvas 2 98 400 300 10;
#X obj 130 130 heading-ears-mmp/main;

BIN
heading-ears-mmp/01.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/02.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/03.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/04.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/06.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/07.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/21.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/22.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/23.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/24.wav Normal file

Binary file not shown.

BIN
heading-ears-mmp/25.wav Normal file

Binary file not shown.

View file

@ -0,0 +1,214 @@
#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 784 223 5 0 0 1 brng_error - -;
#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 784 428 line~;
#X obj 829 261 t a a;
#X obj 829 290 -;
#X obj 829 336 > 100;
#X obj 784 245 t a a;
#X obj 829 359 sel 1 0;
#X obj 784 405 pack f f;
#X msg 859 382 100;
#X msg 829 382 0;
#X obj 829 313 abs;
#X text 885 330 if abs of diff. greater than 100 \, disable fading.
(otherwise one will hear glitches.);
#X text 877 257 for a very big jumps \, like 180 <-> -180 .. this is
not regular change \, we should disable [line~] for such events.;
#X floatatom 753 115 5 0 0 1 angle_(deg) - -;
#X floatatom 753 47 5 0 0 1 angle_(deg) - -;
#X obj 753 92 +;
#X obj 753 69 * -1;
#X obj 933 99 r \$0-brng;
#X obj 651 77 loadbang;
#X obj 651 100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 753 164 expr fmod(($f1+360) \, 360);
#X obj 753 187 expr fmod(($f1+180) \, 360)-180;
#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 753 24 inlet;
#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 574 475 eqpan2~ 30;
#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 msg 732 492 \$1 10000;
#X obj 732 515 vline~;
#X obj 975 490 switch~;
#X obj 948 432 t a a;
#X obj 975 461 pipe 12000;
#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 90 0;
#X connect 87 1 91 0;
#X connect 88 0 89 0;
#X connect 89 0 95 0;
#X connect 90 0 36 0;
#X connect 91 0 36 1;
#X connect 92 0 93 0;
#X connect 93 0 91 1;
#X connect 93 0 90 1;
#X connect 95 0 92 0;
#X connect 95 1 96 0;
#X connect 96 0 94 0;

View file

@ -0,0 +1,178 @@
#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;

View file

@ -0,0 +1,230 @@
#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 784 223 5 0 0 1 brng_error - -;
#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 784 428 line~;
#X obj 829 261 t a a;
#X obj 829 290 -;
#X obj 829 336 > 100;
#X obj 784 245 t a a;
#X obj 829 359 sel 1 0;
#X obj 784 405 pack f f;
#X msg 859 382 100;
#X msg 829 382 0;
#X obj 829 313 abs;
#X text 885 330 if abs of diff. greater than 100 \, disable fading.
(otherwise one will hear glitches.);
#X text 877 257 for a very big jumps \, like 180 <-> -180 .. this is
not regular change \, we should disable [line~] for such events.;
#X floatatom 753 115 5 0 0 1 angle_(deg) - -;
#X floatatom 753 47 5 0 0 1 angle_(deg) - -;
#X obj 753 92 +;
#X obj 753 69 * -1;
#X obj 933 99 r \$0-brng;
#X obj 651 77 loadbang;
#X obj 651 100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 753 164 expr fmod(($f1+360) \, 360);
#X obj 753 187 expr fmod(($f1+180) \, 360)-180;
#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 753 24 inlet;
#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 574 475 eqpan2~ 30;
#X obj 948 389 inlet;
#X obj 948 412 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
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 66 0;
#X connect 27 0 102 0;
#X connect 27 0 86 0;
#X connect 27 1 65 0;
#X connect 27 1 103 0;
#X connect 28 0 84 0;
#X connect 28 0 101 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 90 0;
#X connect 87 1 91 0;
#X connect 88 0 89 0;
#X connect 89 0 94 0;
#X connect 90 0 36 0;
#X connect 91 0 36 1;
#X connect 92 0 91 1;
#X connect 92 0 90 1;
#X connect 94 0 96 0;
#X connect 94 1 95 0;
#X connect 95 0 99 0;
#X connect 95 0 100 0;
#X connect 95 1 97 0;
#X connect 96 0 92 0;
#X connect 97 0 98 0;
#X connect 98 0 93 0;
#X connect 99 0 93 0;
#X connect 100 0 97 0;

View file

@ -1,4 +1,4 @@
#N canvas 413 152 930 452 10;
#N canvas 152 98 930 452 10;
#X obj 47 27 inlet~;
#X obj 113 372 *~;
#X obj 503 372 *~;
@ -12,7 +12,6 @@
#X obj 518 261 expr~ max(min(max(min(($v1-$f2+$f3)/max($f3 \, 1e-6)
\, 1) \, 0)+max(min(($v1-$f2-$f3)/-max($f3 \, 1e-6) \, 1) \, 0)-1 \,
1) \, 0);
#X text 587 19 arg #1: width:;
#X text 637 79 in result \,;
#X text 657 119 -width/2 ~ width/2 -> cross fading;
#X obj 113 401 outlet~;
@ -33,25 +32,28 @@
#X obj 518 320 -~ 0.25;
#X text 578 317 sin~ is NOT part of pd vanilla!;
#X text 578 337 [sin~] ==> [-~ 0.25]--[cos~];
#X text 587 19 arg #1 (inlet #3): width:;
#X obj 417 39 inlet;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 1 0 12 0;
#X connect 2 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 14 0;
#X connect 5 0 13 0;
#X connect 5 1 7 2;
#X connect 5 2 15 0;
#X connect 5 2 14 0;
#X connect 5 3 8 2;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 16 0;
#X connect 8 0 17 0;
#X connect 14 0 7 1;
#X connect 15 0 8 1;
#X connect 16 0 24 0;
#X connect 17 0 27 0;
#X connect 24 0 25 0;
#X connect 25 0 1 1;
#X connect 26 0 2 1;
#X connect 27 0 26 0;
#X connect 7 0 15 0;
#X connect 8 0 16 0;
#X connect 13 0 7 1;
#X connect 14 0 8 1;
#X connect 15 0 23 0;
#X connect 16 0 26 0;
#X connect 23 0 24 0;
#X connect 24 0 1 1;
#X connect 25 0 2 1;
#X connect 26 0 25 0;
#X connect 30 0 5 0;

View file

@ -0,0 +1,110 @@
#N canvas 2 98 551 621 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 146 618 s \$0-brng;
#X obj 61 618 s \$0-dist;
#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 text 489 671 ____;
#X obj 216 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 33 0;
#X connect 27 0 46 0;
#X connect 27 1 32 0;
#X connect 27 1 48 0;
#X connect 28 0 44 0;
#X connect 29 0 45 0;
#X connect 36 0 39 0;
#X connect 36 1 38 1;
#X connect 36 2 37 3;
#X connect 36 3 37 1;
#X connect 37 0 8 0;
#X connect 38 0 37 0;
#X connect 39 0 38 0;
#X connect 39 1 37 2;
#X connect 40 0 43 0;
#X connect 40 1 42 1;
#X connect 40 2 41 3;
#X connect 40 3 41 1;
#X connect 41 0 7 0;
#X connect 42 0 41 0;
#X connect 43 0 42 0;
#X connect 43 1 41 2;
#X connect 44 0 37 0;
#X connect 44 1 40 0;
#X connect 45 0 41 0;
#X connect 45 1 36 0;

659
heading-ears-mmp/main.pd Normal file
View file

@ -0,0 +1,659 @@
#N canvas 107 98 626 431 10;
#N canvas 2 98 791 543 guts 1;
#X obj 14 14 receive fromSystem;
#X obj 14 60 route /location /compass;
#X obj 14 37 list trim;
#X obj 14 113 unpack f f f f f f f f f;
#X obj 63 192 pack f f f f, f 19;
#X obj 83 225 s latlon;
#X obj 45 258 print locations:;
#N canvas 1 91 604 394 notes 0;
#X text 18 15 when location data is enabled \, it is sent via a message
"/location" with 9 numbers. Location coordinate data in iOS is a 64-bit
floating point number (double);
#X text 18 65 PureData is only 32-bit float \, so sending that number
into a patch loses resolution. However \, a tweaky workaround (via
64-bit math in the iOS layer) is provided by the last 4 numbers in
the message.;
#X text 18 125 arg #1: latitude coordinate (as 32-bit float);
#X text 18 145 arg #2: longitude coordinate (as 32-bit float);
#X text 18 165 arg #3: altitude (meters);
#X text 18 185 arg #4: horizontal accuracy (meters radius);
#X text 18 205 arg #5: vertical (altitude) accuracy (meters radius)
;
#X text 18 235 arg #6: latitude "rough";
#X text 18 275 arg #8: latitude "fine";
#X text 18 255 arg #7: longitude "rough";
#X text 18 295 arg #9: longitude "fine";
#X text 208 235 latitude/longitude "rough" = 64-bit value multiplied
by 1000 and truncated to an integer before being sent into Pd;
#X text 208 285 latitude/longitude "fine" = 64-bit value modded by
0.001 \, multiplied by 1e+06 \, and truncated to an integer \, before
being sent into Pd So the "rough" contains the significant digits up
to the thousandths place \, and the "fine" contains the next three
significant digits. An original coordinate value of 123.457 would be
turned into rough=123456 fine=789.;
#X restore 223 113 pd notes;
#X text 202 188 arg #6: latitude "rough";
#X text 202 228 arg #8: latitude "fine";
#X text 202 208 arg #7: longitude "rough";
#X text 202 248 arg #9: longitude "fine";
#X text 170 113 <======;
#N canvas 0 98 1280 622 gui 1;
#X obj 16 239 send toGUI;
#X obj 526 72 list trim;
#X obj 526 49 receive fromGUI;
#X msg 526 118 list /enableLocation \$1;
#X obj 526 141 send toSystem;
#X obj 356 49 loadbang;
#X obj 356 95 send toGUI;
#N canvas 590 91 614 581 draw_arrow 0;
#X obj 89 257 rot2d;
#X msg 89 149 0.5 0.6;
#X obj 70 327 list store;
#X msg 106 172 0.4 0.7;
#X msg 140 218 0.6 0.7;
#X obj 89 280 list prepend append;
#X obj 89 303 list trim;
#X obj 70 103 t b b b;
#X obj 89 126 t b b b b;
#X obj 70 81 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 70 19 inlet;
#X obj 70 42 t b a;
#X obj 209 219 t a;
#X obj 242 199 t a;
#X msg 123 195 0.5 0;
#X obj 70 350 list prepend /lcd.Pointer paintpoly;
#X obj 70 373 t b a b;
#X msg 70 419 list /lcd.Pointer paintoval 0.45 0.45 0.55 0.55 1 1 1
1;
#X obj 89 442 send toGUI;
#X msg 244 311 list /lcd.Pointer paintoval 0 0 1 1 0.6 1 0.6 1;
#X msg 244 288 list /lcd.Pointer paintoval 0 0 1 1 0 0.8 0.6 1;
#X msg 109 396 list /lcd.Pointer paintoval 0 0 1 1 0.6 1 0.6 1;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 7 1 8 0;
#X connect 7 2 12 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 8 2 14 0;
#X connect 8 3 4 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 11 1 13 0;
#X connect 12 0 2 1;
#X connect 13 0 0 2;
#X connect 14 0 0 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 18 0;
#X connect 16 2 21 0;
#X connect 17 0 18 0;
#X connect 21 0 18 0;
#X restore 406 567 pd draw_arrow;
#X floatatom 406 373 5 0 0 1 angle_(deg) - -;
#X floatatom 406 305 5 0 0 1 angle_(deg) - -;
#X obj 406 350 +;
#X obj 406 327 * -1;
#X obj 586 387 r \$0-brng;
#X obj 16 514 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;
#N canvas 592 91 458 517 draw_arrow 0;
#X obj 89 257 rot2d;
#X msg 89 149 0.5 0.6;
#X obj 70 327 list store;
#X msg 106 172 0.4 0.7;
#X msg 140 218 0.6 0.7;
#X obj 89 280 list prepend append;
#X obj 89 303 list trim;
#X obj 70 103 t b b b;
#X obj 89 126 t b b b b;
#X obj 70 81 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 70 19 inlet;
#X obj 70 42 t b a;
#X obj 209 219 t a;
#X obj 242 199 t a;
#X obj 87 465 send toGUI;
#X obj 70 350 list prepend /lcd.Compass paintpoly;
#X msg 70 442 list /lcd.Compass paintoval 0.45 0.45 0.55 0.55 1 1 1
1;
#X obj 70 373 t b a b b;
#X msg 123 195 0.5 0.1;
#X msg 104 418 list /lcd.Compass frameoval 0.1 0.1 0.9 0.9 0 1 1 1
;
#X msg 121 395 list /lcd.Compass paintoval 0 0 1 1 1 1 0 1;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 7 1 8 0;
#X connect 7 2 12 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 8 2 18 0;
#X connect 8 3 4 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 11 1 13 0;
#X connect 12 0 2 1;
#X connect 13 0 0 2;
#X connect 15 0 17 0;
#X connect 16 0 14 0;
#X connect 17 0 16 0;
#X connect 17 1 14 0;
#X connect 17 3 20 0;
#X connect 18 0 0 0;
#X connect 19 0 14 0;
#X connect 20 0 14 0;
#X restore 16 425 pd draw_arrow;
#X floatatom 16 335 5 0 0 1 angle_(deg) - -;
#X text 11 16 disp. lat/long in text;
#X text 354 18 toggle gps reception + automatically enable at start-up
;
#X floatatom 16 403 5 0 0 1 angle_(deg) - -;
#X obj 16 357 * -1;
#X obj 16 380 + 360;
#X obj 830 281 s toGUI;
#X obj 787 284 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 737 238 f;
#X obj 787 238 + 1;
#X obj 787 261 % 2;
#X obj 737 134 t a b;
#X msg 764 202 0;
#X obj 737 202 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 830 200 del 1000;
#X msg 830 223 0;
#X obj 737 62 r latlon;
#X obj 737 85 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 736 24 location info arrival indicator;
#X obj 737 163 scan 400;
#X msg 737 111 10;
#X obj 526 95 route /tgl.Location.En;
#X msg 356 72 list /tgl.Location.En 1;
#X msg 830 252 list /tgl.Location.Act set \$1;
#X msg 16 98 list /disp.Loc.Current.Lat.Coarse \$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 text 14 281 draw north pointing compass;
#X obj 304 337 loadbang;
#X obj 304 360 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 404 252 draw dest. pointing arrow = bearing arrow;
#X obj 586 302 expr fmod(($f1+360) \, 360);
#X obj 586 325 expr fmod(($f1+180) \, 360)-180;
#X obj 586 348 s \$0-brng-error;
#N canvas 24 163 465 242 tester 0;
#X obj 17 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 17 87 metro 100;
#X obj 87 110 vline~;
#X obj 87 133 snapshot~;
#X floatatom 87 156 5 0 0 0 - - -;
#X msg 87 74 0 0 \, 50 2000 \, 0 2000 2000 \, 360 0 4000 \, 310 2000
4000 \, 360 2000 6000;
#X obj 87 19 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 87 45 metro 8000;
#X obj 87 178 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X restore 331 282 pd tester;
#X obj 489 457 tgl 15 0 empty \$0-veryclose r:0-veryclose 17 7 0 10
-262144 -1 -1 0 1;
#N canvas 719 91 614 663 draw_veryclose 0;
#X obj 89 257 rot2d;
#X msg 89 149 0.5 0.6;
#X obj 70 327 list store;
#X msg 106 172 0.4 0.7;
#X msg 140 218 0.6 0.7;
#X obj 89 280 list prepend append;
#X obj 89 303 list trim;
#X obj 70 103 t b b b;
#X obj 89 126 t b b b b;
#X obj 70 81 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 70 19 inlet;
#X obj 70 42 t b a;
#X obj 209 219 t a;
#X obj 242 199 t a;
#X obj 70 350 list prepend /lcd.Pointer paintpoly;
#X obj 161 577 send toGUI;
#X msg 123 195 0.5 0.3;
#X msg 113 465 list /lcd.Pointer frameoval 0.12 0.12 0.88 0.88 1 1
0 0.7;
#X msg 142 419 list /lcd.Pointer frameoval 0 0 1 1 1 1 0 1;
#X obj 70 373 t b a b b b b b;
#X msg 70 511 list /lcd.Pointer paintoval 0.45 0.45 0.55 0.55 0 1 0
1;
#X msg 99 488 list /lcd.Pointer frameoval 0.25 0.25 0.75 0.75 1 1 0
0.5;
#X msg 128 442 list /lcd.Pointer frameoval 0.05 0.05 0.95 0.95 1 1
0 0.9;
#X msg 222 325 list /lcd.Pointer paintoval 0 0 1 1 1 0.4 0.6 1;
#X msg 157 396 list /lcd.Pointer paintoval 0 0 1 1 0 0.4 0.4 1;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 14 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 7 1 8 0;
#X connect 7 2 12 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 8 2 16 0;
#X connect 8 3 4 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 11 1 13 0;
#X connect 12 0 2 1;
#X connect 13 0 0 2;
#X connect 14 0 19 0;
#X connect 16 0 0 0;
#X connect 17 0 15 0;
#X connect 18 0 15 0;
#X connect 19 0 20 0;
#X connect 19 1 15 0;
#X connect 19 2 21 0;
#X connect 19 3 17 0;
#X connect 19 5 18 0;
#X connect 19 6 24 0;
#X connect 20 0 15 0;
#X connect 21 0 15 0;
#X connect 24 0 15 0;
#X restore 491 567 pd draw_veryclose;
#X obj 491 544 spigot;
#X obj 445 501 == 0;
#X obj 406 544 spigot;
#X obj 445 478 f;
#X obj 406 455 t a a b;
#X obj 524 504 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 445 524 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 489 410 loadbang;
#X msg 489 433 0;
#X obj 43 121 makefilename %03d;
#X obj 97 190 makefilename %03d;
#X obj 856 569 send toGUI;
#X msg 856 546 list /tgl.Location.En \$1;
#X obj 893 494 del 500;
#X obj 856 451 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 856 471 t b b;
#X msg 856 494 0;
#X msg 893 517 1;
#X obj 915 171 del;
#X text 661 393 if there is no GPS update for a long time \, let's
try to get one intentionally by performing a enable/disable cycle.
;
#X msg 915 148 20000;
#X text 927 123 20 seconds;
#X obj 16 46 r listening-location;
#X obj 94 514 r DIST;
#X obj 586 410 r BRNG;
#X msg 1046 234 list /menu.scene lightning weather;
#X obj 1046 257 send toGUI;
#X text 13 494 disp. distance (m) in text;
#X obj 16 582 send toGUI;
#X obj 16 559 list prepend /disp.Distance;
#X obj 406 282 r COMPASS;
#X obj 16 312 r COMPASS;
#X obj 1046 205 metro 1000;
#X obj 1046 185 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1046 102 loadbang;
#X obj 1073 130 delay 10000;
#X msg 1073 153 0;
#X text 1054 69 menu strings;
#X text 1121 173 menu string must be sent AFTER menu built., f 22
;
#X connect 1 0 38 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 5 0 39 0;
#X connect 8 0 50 0;
#X connect 8 0 60 0;
#X connect 9 0 11 0;
#X connect 10 0 8 0;
#X connect 11 0 10 0;
#X connect 12 0 10 1;
#X connect 13 0 85 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 17 0 21 0;
#X connect 20 0 16 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 24 0 40 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 25 1;
#X connect 27 0 24 0;
#X connect 28 0 36 0;
#X connect 28 1 29 0;
#X connect 29 0 25 1;
#X connect 30 0 25 0;
#X connect 31 0 32 0;
#X connect 32 0 40 0;
#X connect 33 0 34 0;
#X connect 34 0 37 0;
#X connect 34 0 76 0;
#X connect 36 0 30 0;
#X connect 36 1 31 0;
#X connect 37 0 28 0;
#X connect 38 0 3 0;
#X connect 39 0 6 0;
#X connect 40 0 23 0;
#X connect 41 0 0 0;
#X connect 42 0 0 0;
#X connect 43 0 0 0;
#X connect 44 0 0 0;
#X connect 45 0 41 0;
#X connect 45 1 65 0;
#X connect 45 2 42 0;
#X connect 45 3 66 0;
#X connect 47 0 48 0;
#X connect 48 0 8 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 53 0 8 0;
#X connect 54 0 59 1;
#X connect 56 0 55 0;
#X connect 57 0 62 0;
#X connect 58 0 7 0;
#X connect 59 0 61 0;
#X connect 59 0 57 0;
#X connect 60 0 58 0;
#X connect 60 1 56 0;
#X connect 60 2 59 0;
#X connect 61 0 56 1;
#X connect 62 0 58 1;
#X connect 63 0 64 0;
#X connect 64 0 59 1;
#X connect 65 0 43 0;
#X connect 66 0 44 0;
#X connect 68 0 67 0;
#X connect 69 0 73 0;
#X connect 70 0 71 0;
#X connect 71 0 72 0;
#X connect 71 1 69 0;
#X connect 72 0 68 0;
#X connect 73 0 68 0;
#X connect 74 0 70 0;
#X connect 76 0 74 0;
#X connect 78 0 45 0;
#X connect 79 0 85 0;
#X connect 80 0 10 1;
#X connect 81 0 82 0;
#X connect 85 0 84 0;
#X connect 86 0 9 0;
#X connect 87 0 17 0;
#X connect 88 0 81 0;
#X connect 89 0 88 0;
#X connect 90 0 89 0;
#X connect 90 0 91 0;
#X connect 91 0 92 0;
#X connect 92 0 89 0;
#X restore 692 23 pd gui guts;
#X obj 63 142 / 1000;
#X obj 100 165 / 1000;
#X obj 435 80 r latlon;
#X obj 435 103 unpack f f f f;
#X obj 435 132 pack f f f f;
#X obj 435 208 s listening-location;
#X floatatom 181 66 5 0 0 0 - - -;
#X obj 461 501 send toGUI;
#X msg 481 413 list /disp.Loc.Pointing.Lon.Coarse \$1;
#X msg 491 466 list /disp.Loc.Pointing.Lon.Fine \$1;
#X msg 471 390 list /disp.Loc.Pointing.Lat.Fine \$1;
#X msg 461 337 list /disp.Loc.Pointing.Lat.Coarse \$1;
#X obj 461 314 unpack f f f f;
#X obj 471 367 makefilename %03d;
#X obj 491 443 makefilename %03d;
#X text 466 263 for pointing location ui;
#X obj 461 291 r POINT;
#X obj 185 31 metro 1000;
#X obj 185 11 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 555 162 r RETRIGGER_currlocation;
#X obj 555 185 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 266 51 loadbang;
#X msg 276 150 37.575 552 126.927 27;
#X obj 84 83 s COMPASS;
#X msg 266 74 37.573 538 126.915 850;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 1 1 37 0;
#X connect 2 0 1 0;
#X connect 3 5 14 0;
#X connect 3 6 15 0;
#X connect 3 7 4 2;
#X connect 3 8 4 3;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 14 0 4 0;
#X connect 15 0 4 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 1 18 2;
#X connect 17 2 18 1;
#X connect 17 3 18 3;
#X connect 18 0 19 0;
#X connect 20 0 37 0;
#X connect 22 0 21 0;
#X connect 23 0 21 0;
#X connect 24 0 21 0;
#X connect 25 0 21 0;
#X connect 26 0 25 0;
#X connect 26 1 27 0;
#X connect 26 2 22 0;
#X connect 26 3 28 0;
#X connect 27 0 24 0;
#X connect 28 0 23 0;
#X connect 30 0 26 0;
#X connect 31 0 20 0;
#X connect 31 0 36 0;
#X connect 32 0 31 0;
#X connect 33 0 34 0;
#X connect 34 0 18 0;
#X connect 35 0 38 0;
#X connect 36 0 18 0;
#X connect 38 0 18 0;
#X restore 22 14 pd guts;
#X msg 115 36 37.573 638 126.924 850;
#X text 113 11 location input-format: (Lat.rough \, Lat.fine \, Lon.rough
\, Lon.fine), f 66;
#X text 271 34 (please insert a space after 3rd fractional digit \,
i.e. split 1 number to 2 why? -->);
#N canvas 2 98 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 459 53 pd more notes;
#X obj 22 324 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 83 98 805 469 heeju 0;
#X msg 65 234 31.wav;
#X obj 86 209 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 65 258 wav~;
#X obj 65 355 dac~;
#X obj 65 171 loadbang;
#X obj 156 209 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 135 258 wav~;
#X obj 135 355 dac~;
#X obj 135 171 loadbang;
#X obj 226 209 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 205 258 wav~;
#X obj 205 355 dac~;
#X obj 205 171 loadbang;
#X obj 296 209 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 275 258 wav~;
#X obj 275 355 dac~;
#X obj 275 171 loadbang;
#X obj 366 209 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 345 258 wav~;
#X obj 345 355 dac~;
#X obj 345 171 loadbang;
#X msg 135 234 32.wav;
#X msg 205 234 33.wav;
#X msg 275 234 34.wav;
#X msg 345 234 35.wav;
#X obj 43 31 receive fromGUI;
#X obj 43 54 list trim;
#X obj 43 77 route /btn.radio1;
#X obj 43 100 sel 1;
#X obj 43 123 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 173 31 receive fromGUI;
#X obj 173 54 list trim;
#X obj 173 100 sel 1;
#X obj 173 123 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 303 31 receive fromGUI;
#X obj 303 54 list trim;
#X obj 303 100 sel 1;
#X obj 303 123 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 433 31 receive fromGUI;
#X obj 433 54 list trim;
#X obj 433 100 sel 1;
#X obj 433 123 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 563 31 receive fromGUI;
#X obj 563 54 list trim;
#X obj 563 100 sel 1;
#X obj 563 123 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 173 77 route /btn.radio2;
#X obj 303 77 route /btn.radio3;
#X obj 433 77 route /btn.radio4;
#X obj 563 77 route /btn.radio5;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 4 0 0 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 8 0 21 0;
#X connect 9 0 10 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 12 0 22 0;
#X connect 13 0 14 1;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 16 0 23 0;
#X connect 17 0 18 1;
#X connect 18 0 19 0;
#X connect 18 0 19 1;
#X connect 20 0 24 0;
#X connect 21 0 6 0;
#X connect 22 0 10 0;
#X connect 23 0 14 0;
#X connect 24 0 18 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 1 0;
#X connect 30 0 31 0;
#X connect 31 0 46 0;
#X connect 32 0 33 0;
#X connect 33 0 5 0;
#X connect 34 0 35 0;
#X connect 35 0 47 0;
#X connect 36 0 37 0;
#X connect 37 0 9 0;
#X connect 38 0 39 0;
#X connect 39 0 48 0;
#X connect 40 0 41 0;
#X connect 41 0 13 0;
#X connect 42 0 43 0;
#X connect 43 0 49 0;
#X connect 44 0 45 0;
#X connect 45 0 17 0;
#X connect 46 0 32 0;
#X connect 47 0 36 0;
#X connect 48 0 40 0;
#X connect 49 0 44 0;
#X restore 523 143 pd heeju radio;
#X obj 22 134 receive fromGUI;
#X obj 22 157 list trim;
#X obj 22 226 + 1;
#X obj 22 255 onoff 2;
#X obj 22 278 unpack f f;
#X obj 142 324 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 22 203 unpack f s;
#X obj 22 370 scene_minok;
#X obj 22 180 route /menu.scene;
#X obj 142 370 scene_wonjung;
#X obj 328 351 send toGUI;
#X msg 397 305 list /lbl.scenetitle;
#X obj 328 328 list prepend;
#X connect 5 0 14 0;
#X connect 7 0 8 0;
#X connect 8 0 15 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 5 0;
#X connect 11 1 12 0;
#X connect 12 0 16 0;
#X connect 13 0 9 0;
#X connect 13 1 19 0;
#X connect 15 0 13 0;
#X connect 18 0 19 1;
#X connect 19 0 17 0;

BIN
heading-ears-mmp/minok.jpg Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 108 KiB

BIN
heading-ears-mmp/minok.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 226 KiB

46
heading-ears-mmp/onoff.pd Normal file
View file

@ -0,0 +1,46 @@
#N canvas 287 163 333 477 12;
#X obj 88 12 inlet;
#X floatatom 88 43 5 0 0 0 - - -;
#X obj 172 315 until;
#X obj 106 104 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 172 341 f;
#X obj 220 341 + 1;
#X msg 190 185 0;
#X obj 107 393 ==;
#X msg 18 293 0 0 0 0 1;
#X msg 214 93 set;
#X msg 107 418 add2 \$1;
#X obj 172 290 \$1;
#X obj 145 165 \$1;
#X obj 145 190 != 0;
#X obj 106 235 spigot;
#X obj 145 215 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 106 130 t b b;
#X obj 88 73 t b b a b b;
#X obj 18 318 outlet;
#X connect 0 0 1 0;
#X connect 1 0 17 0;
#X connect 2 0 4 0;
#X connect 3 0 16 0;
#X connect 4 0 5 0;
#X connect 5 0 4 1;
#X connect 5 0 7 0;
#X connect 6 0 4 1;
#X connect 7 0 10 0;
#X connect 8 0 18 0;
#X connect 9 0 8 0;
#X connect 10 0 8 0;
#X connect 11 0 2 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 14 0 11 0;
#X connect 15 0 14 1;
#X connect 16 0 14 0;
#X connect 16 1 12 0;
#X connect 17 0 8 0;
#X connect 17 1 3 0;
#X connect 17 2 7 1;
#X connect 17 3 6 0;
#X connect 17 4 9 0;

View file

@ -0,0 +1,77 @@
#N canvas 148 98 375 562 10;
#X floatatom 29 176 5 0 0 1 brng_error - -;
#X floatatom 29 108 5 0 0 1 angle_(deg) - -;
#X floatatom 29 40 5 0 0 1 angle_(deg) - -;
#X obj 29 85 +;
#X obj 29 62 * -1;
#X obj 29 130 expr fmod(($f1+360) \, 360);
#X obj 29 153 expr fmod(($f1+180) \, 360)-180;
#X obj 29 17 r COMPASS;
#X obj 29 387 line~;
#X obj 74 220 t a a;
#X obj 74 249 -;
#X obj 74 295 > 100;
#X obj 29 204 t a a;
#X obj 74 318 sel 1 0;
#X obj 29 364 pack f f;
#X msg 104 341 100;
#X msg 74 341 0;
#X obj 74 272 abs;
#X obj 191 29 inlet;
#X obj 161 386 wav2~;
#X msg 201 298 1;
#X obj 174 246 loadbang;
#X floatatom 296 325 5 0 0 1 vol - -;
#X obj 296 386 line~;
#X msg 296 363 \$1 20;
#X obj 174 269 t b b;
#X obj 161 409 expr~ $v1 * pow($v2 \, 4);
#X obj 296 279 loadbang;
#X obj 296 302 f 1;
#X obj 161 321 makefilename %02d.wav;
#X obj 161 298 f \$1;
#X symbolatom 161 344 10 0 0 0 - - -;
#X obj 148 269 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 161 495 eqpan2~ 30;
#X obj 161 518 outlet~;
#X obj 218 518 outlet~;
#X connect 0 0 12 0;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 2 0;
#X connect 8 0 33 1;
#X connect 9 0 10 1;
#X connect 9 1 10 0;
#X connect 10 0 17 0;
#X connect 11 0 13 0;
#X connect 12 0 14 0;
#X connect 12 1 9 0;
#X connect 13 0 16 0;
#X connect 13 1 15 0;
#X connect 14 0 8 0;
#X connect 15 0 14 1;
#X connect 16 0 14 1;
#X connect 17 0 11 0;
#X connect 18 0 3 1;
#X connect 19 0 26 0;
#X connect 20 0 19 1;
#X connect 21 0 25 0;
#X connect 22 0 24 0;
#X connect 23 0 26 1;
#X connect 24 0 23 0;
#X connect 25 0 20 0;
#X connect 25 1 30 0;
#X connect 26 0 33 0;
#X connect 27 0 28 0;
#X connect 28 0 22 0;
#X connect 29 0 31 0;
#X connect 30 0 29 0;
#X connect 31 0 19 0;
#X connect 32 0 30 0;
#X connect 33 0 34 0;
#X connect 33 1 35 0;

View file

@ -0,0 +1,246 @@
#N canvas 2 98 965 620 10;
#X obj 30 495 wav2~;
#X msg 57 426 1;
#X msg 855 38 \; pd dsp 1;
#X obj 30 374 loadbang;
#X obj 726 327 dac~;
#X obj 30 397 t b b;
#X obj 855 15 loadbang;
#X obj 707 21 inlet;
#X obj 707 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 726 297 *~;
#X obj 764 297 *~;
#X obj 726 242 vline~;
#X obj 746 188 switch~;
#X obj 746 87 sel 1 0;
#X msg 726 219 \$1 1000;
#X obj 785 136 pipe 1200;
#X msg 785 159 0;
#X msg 746 159 1;
#X msg 785 113 clear;
#X msg 30 456 21.wav;
#X obj 29 546 *~;
#X obj 430 303 onoff 5;
#X obj 430 326 unpack f f f f f;
#X obj 76 518 vline~;
#X msg 76 495 \$1 1000;
#X obj 30 61 locationdot;
#X obj 30 25 r listening-location;
#X floatatom 30 154 8 0 0 0 - - -;
#X obj 30 176 < 0.05;
#X obj 30 199 change;
#X obj 30 222 sel 1;
#X obj 230 495 wav2~;
#X msg 257 426 1;
#X obj 230 374 loadbang;
#X obj 230 397 t b b;
#X obj 229 546 *~;
#X obj 276 518 vline~;
#X msg 276 495 \$1 1000;
#X obj 430 495 wav2~;
#X msg 457 426 1;
#X obj 430 374 loadbang;
#X obj 430 397 t b b;
#X obj 429 546 *~;
#X obj 476 518 vline~;
#X msg 476 495 \$1 1000;
#X obj 630 495 wav2~;
#X msg 657 426 1;
#X obj 630 374 loadbang;
#X obj 630 397 t b b;
#X obj 629 546 *~;
#X obj 676 518 vline~;
#X msg 676 495 \$1 1000;
#X obj 830 495 wav2~;
#X msg 857 426 1;
#X obj 830 374 loadbang;
#X obj 830 397 t b b;
#X obj 829 546 *~;
#X obj 876 518 vline~;
#X msg 876 495 \$1 1000;
#X msg 230 456 22.wav;
#X msg 430 456 23.wav;
#X msg 630 456 24.wav;
#X msg 830 456 25.wav;
#X obj 29 569 throw~ out_minok;
#X obj 229 569 throw~ out_minok;
#X obj 429 569 throw~ out_minok;
#X obj 629 569 throw~ out_minok;
#X obj 829 569 throw~ out_minok;
#X obj 798 248 catch~ out_minok;
#X obj 203 214 v targetspot\$0;
#X obj 203 194 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 173 214 + 1;
#X obj 109 278 v targetspot\$0;
#N canvas 329 98 375 411 locations 0;
#X obj 12 14 inlet;
#X msg 12 134 37.575 552 126.927 27;
#X msg 52 164 37.574 934 126.925 502;
#X msg 92 194 37.574 194 126.924 856;
#X msg 132 224 37.573 304 126.923 315;
#X msg 182 254 37.572 734 126.922 488;
#X obj 12 37 sel 1 2 3 4 5;
#X obj 63 353 outlet;
#X obj 228 40 loadbang;
#X obj 228 115 v targetspot\$0;
#X msg 228 92 1;
#X obj 144 36 s toGUI;
#X msg 144 13 list /lbl.minok.zone \$1;
#X connect 0 0 6 0;
#X connect 0 0 12 0;
#X connect 1 0 7 0;
#X connect 2 0 7 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 5 0 7 0;
#X connect 6 0 1 0;
#X connect 6 1 2 0;
#X connect 6 2 3 0;
#X connect 6 3 4 0;
#X connect 6 4 5 0;
#X connect 8 0 10 0;
#X connect 10 0 9 0;
#X connect 12 0 11 0;
#X restore 203 116 pd locations;
#X obj 30 314 v targetspot\$0;
#X obj 40 129 s DIST;
#X obj 108 129 s BRNG;
#X obj 203 145 s POINT;
#X obj 867 165 v targetspot\$0;
#X obj 867 142 metro 100;
#X obj 867 122 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 867 188 5 0 0 0 - - -;
#X obj 203 82 v targetspot\$0;
#X obj 707 64 t b a a;
#X obj 867 99 loadbang;
#X obj 30 245 t b b b;
#X obj 331 138 r fromGUI;
#X obj 331 161 list trim;
#X obj 331 207 sel 1;
#X obj 331 230 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 331 184 route /btn.test.minok /btn.minok.restart;
#X obj 449 207 sel 1;
#X msg 476 253 1;
#X obj 476 276 v targetspot\$0;
#X obj 449 230 t b b;
#X obj 35 95 spigot;
#X obj 100 95 spigot;
#X obj 133 59 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 86 171 print minok;
#X obj 331 254 print minoktest;
#X connect 0 0 20 0;
#X connect 1 0 0 1;
#X connect 3 0 5 0;
#X connect 5 0 1 0;
#X connect 5 1 19 0;
#X connect 6 0 2 0;
#X connect 7 0 8 0;
#X connect 8 0 83 0;
#X connect 8 0 97 0;
#X connect 9 0 4 0;
#X connect 10 0 4 1;
#X connect 11 0 10 1;
#X connect 11 0 9 1;
#X connect 13 0 17 0;
#X connect 13 0 18 0;
#X connect 13 1 15 0;
#X connect 14 0 11 0;
#X connect 15 0 16 0;
#X connect 16 0 12 0;
#X connect 17 0 12 0;
#X connect 18 0 15 0;
#X connect 19 0 0 0;
#X connect 20 0 63 0;
#X connect 21 0 22 0;
#X connect 22 0 24 0;
#X connect 22 1 37 0;
#X connect 22 2 44 0;
#X connect 22 3 51 0;
#X connect 22 4 58 0;
#X connect 23 0 20 1;
#X connect 24 0 23 0;
#X connect 25 0 27 0;
#X connect 25 0 95 0;
#X connect 25 1 96 0;
#X connect 26 0 25 0;
#X connect 27 0 28 0;
#X connect 27 0 98 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 85 0;
#X connect 31 0 35 0;
#X connect 32 0 31 1;
#X connect 33 0 34 0;
#X connect 34 0 32 0;
#X connect 34 1 59 0;
#X connect 35 0 64 0;
#X connect 36 0 35 1;
#X connect 37 0 36 0;
#X connect 38 0 42 0;
#X connect 39 0 38 1;
#X connect 40 0 41 0;
#X connect 41 0 39 0;
#X connect 41 1 60 0;
#X connect 42 0 65 0;
#X connect 43 0 42 1;
#X connect 44 0 43 0;
#X connect 45 0 49 0;
#X connect 46 0 45 1;
#X connect 47 0 48 0;
#X connect 48 0 46 0;
#X connect 48 1 61 0;
#X connect 49 0 66 0;
#X connect 50 0 49 1;
#X connect 51 0 50 0;
#X connect 52 0 56 0;
#X connect 53 0 52 1;
#X connect 54 0 55 0;
#X connect 55 0 53 0;
#X connect 55 1 62 0;
#X connect 56 0 67 0;
#X connect 57 0 56 1;
#X connect 58 0 57 0;
#X connect 59 0 31 0;
#X connect 60 0 38 0;
#X connect 61 0 45 0;
#X connect 62 0 52 0;
#X connect 68 0 9 0;
#X connect 68 0 10 0;
#X connect 69 0 71 0;
#X connect 70 0 69 0;
#X connect 71 0 69 0;
#X connect 72 0 21 0;
#X connect 73 0 25 1;
#X connect 73 0 77 0;
#X connect 74 0 73 0;
#X connect 78 0 81 0;
#X connect 79 0 78 0;
#X connect 80 0 79 0;
#X connect 82 0 73 0;
#X connect 83 0 82 0;
#X connect 83 1 14 0;
#X connect 83 2 13 0;
#X connect 84 0 80 0;
#X connect 85 0 74 0;
#X connect 85 1 70 0;
#X connect 85 2 72 0;
#X connect 86 0 87 0;
#X connect 87 0 90 0;
#X connect 88 0 89 0;
#X connect 89 0 85 0;
#X connect 89 0 99 0;
#X connect 90 0 88 0;
#X connect 90 1 91 0;
#X connect 91 0 94 0;
#X connect 92 0 93 0;
#X connect 94 0 82 0;
#X connect 94 1 92 0;
#X connect 95 0 75 0;
#X connect 96 0 76 0;
#X connect 97 0 95 1;
#X connect 97 0 96 1;

View file

@ -0,0 +1,474 @@
#N canvas 2 98 926 586 10;
#X obj 195 19 inlet;
#X obj 195 42 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 195 135 sel 1 0;
#X msg 214 158 99;
#X obj 696 367 dac~;
#X obj 696 84 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 696 337 *~;
#X obj 734 337 *~;
#X obj 696 282 vline~;
#X obj 723 228 switch~;
#X obj 723 127 sel 1 0;
#X msg 696 259 \$1 1000;
#X obj 762 176 pipe 1200;
#X msg 762 199 0;
#X msg 723 199 1;
#X msg 762 153 clear;
#X obj 768 288 catch~ out_wonjung;
#X obj 22 229 locationdot;
#X floatatom 22 342 8 0 0 0 - - -;
#X obj 22 364 < 0.05;
#X obj 22 387 change;
#X obj 22 433 v targetspot\$0;
#N canvas 329 98 375 411 locations 0;
#X obj 12 14 inlet;
#X obj 63 353 outlet;
#X obj 228 40 loadbang;
#X obj 228 115 v targetspot\$0;
#X msg 228 92 1;
#X msg 12 134 37.576 13 126.927 912;
#X msg 52 164 37.574 409 126.925 210;
#X msg 92 194 37.573 430 126.923 445;
#X obj 12 37 sel 1 2 3;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X connect 8 0 5 0;
#X connect 8 1 6 0;
#X connect 8 2 7 0;
#X restore 195 211 pd locations;
#X obj 32 287 s DIST;
#X obj 97 287 s BRNG;
#X obj 195 240 s POINT;
#X obj 195 182 v targetspot\$0;
#X obj 22 20 r listening-location;
#X obj 373 161 r fromGUI;
#X obj 373 184 list trim;
#X obj 373 230 sel 1;
#X obj 373 253 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 373 207 route /btn.zone1 /btn.zone2 /btn.zone3;
#X obj 447 230 sel 1;
#X obj 447 253 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 523 230 sel 1;
#X obj 523 253 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 373 273 1;
#X msg 447 273 2;
#X msg 523 273 3;
#X obj 32 258 spigot;
#X obj 97 258 spigot;
#X obj 130 188 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 447 306 t b a;
#X obj 474 335 v targetspot\$0;
#X obj 760 518 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 22 519 list /setPage \$1;
#X obj 22 496 + 2;
#X text 49 496 <== pages start from page #3;
#X obj 22 542 send toGUI;
#X text 19 463 arrived! => show page with story + playbuttons;
#X obj 22 410 sel 1 0;
#X obj 146 360 s zoneonoff\$0;
#N canvas 253 98 683 585 zone 0;
#X obj 72 333 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 51 432 wav~;
#X obj 51 305 loadbang;
#X obj 162 333 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 141 432 wav~;
#X obj 141 305 loadbang;
#X obj 72 274 spigot;
#X obj 162 274 spigot;
#X obj 262 333 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 241 432 wav~;
#X obj 241 305 loadbang;
#X obj 352 333 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 331 432 wav~;
#X obj 331 305 loadbang;
#X obj 262 274 spigot;
#X obj 352 274 spigot;
#X obj 452 333 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 431 432 wav~;
#X obj 431 305 loadbang;
#X obj 542 333 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 521 432 wav~;
#X obj 521 305 loadbang;
#X obj 452 274 spigot;
#X obj 542 274 spigot;
#X msg 51 408 04.wav;
#X msg 141 408 05.wav;
#X msg 241 408 06.wav;
#X msg 331 408 07.wav;
#X msg 431 408 01.wav;
#X msg 521 408 02.wav;
#X obj 51 519 throw~ out_wonjung;
#X obj 521 542 throw~ out_wonjung;
#X obj 431 519 throw~ out_wonjung;
#X obj 331 542 throw~ out_wonjung;
#X obj 241 519 throw~ out_wonjung;
#X obj 141 542 throw~ out_wonjung;
#X obj 401 32 r zoneonoff\$0;
#X obj 401 55 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 401 75 sel 1 0;
#X obj 401 98 v targetspot\$0;
#X obj 401 121 onoff 3;
#X obj 401 144 unpack f f f;
#X obj 67 51 receive fromGUI;
#X obj 67 74 list trim;
#X obj 67 97 route /btn.event1 /btn.event2;
#X obj 67 120 sel 1;
#X obj 67 143 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 152 120 sel 1;
#X obj 152 143 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 283 139 0;
#X text 35 6 wav~: how to play stop?;
#X text 36 21 when people leave zone \, we cannot stop playing;
#X obj 105 254 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 195 254 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 295 254 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 385 254 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 485 254 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 575 254 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 72 456 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 162 456 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 262 456 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 352 456 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 452 456 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 542 456 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 583 208 s tglsearch\$0;
#X obj 72 353 t b b;
#X obj 119 353 + 1;
#X obj 99 380 v ecnt\$0;
#X obj 162 353 t b b;
#X obj 209 353 + 1;
#X obj 189 380 v ecnt\$0;
#X obj 262 353 t b b;
#X obj 309 353 + 1;
#X obj 289 380 v ecnt\$0;
#X obj 352 353 t b b;
#X obj 399 353 + 1;
#X obj 379 380 v ecnt\$0;
#X obj 452 353 t b b;
#X obj 499 353 + 1;
#X obj 479 380 v ecnt\$0;
#X obj 542 353 t b b;
#X obj 589 353 + 1;
#X obj 569 380 v ecnt\$0;
#X obj 72 476 v ecnt\$0;
#X obj 162 476 v ecnt\$0;
#X obj 262 476 v ecnt\$0;
#X obj 352 476 v ecnt\$0;
#X obj 452 476 v ecnt\$0;
#X obj 542 476 v ecnt\$0;
#X obj 102 453 - 1;
#X obj 192 453 - 1;
#X obj 292 453 - 1;
#X obj 382 453 - 1;
#X obj 482 453 - 1;
#X obj 572 453 - 1;
#X obj 583 88 v ecnt\$0;
#X obj 583 39 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 583 59 metro 100;
#X obj 583 16 loadbang;
#X floatatom 583 111 5 0 0 0 - - -;
#X obj 583 133 == 0;
#X obj 583 156 change;
#X obj 583 179 pipe 3000;
#X connect 0 0 65 0;
#X connect 1 0 30 0;
#X connect 1 1 58 0;
#X connect 2 0 24 0;
#X connect 3 0 68 0;
#X connect 4 0 35 0;
#X connect 4 1 59 0;
#X connect 5 0 25 0;
#X connect 6 0 0 0;
#X connect 7 0 3 0;
#X connect 8 0 71 0;
#X connect 9 0 34 0;
#X connect 9 1 60 0;
#X connect 10 0 26 0;
#X connect 11 0 74 0;
#X connect 12 0 33 0;
#X connect 12 1 61 0;
#X connect 13 0 27 0;
#X connect 14 0 8 0;
#X connect 15 0 11 0;
#X connect 16 0 77 0;
#X connect 17 0 32 0;
#X connect 17 1 62 0;
#X connect 18 0 28 0;
#X connect 19 0 80 0;
#X connect 20 0 31 0;
#X connect 20 1 63 0;
#X connect 21 0 29 0;
#X connect 22 0 16 0;
#X connect 23 0 19 0;
#X connect 24 0 1 0;
#X connect 25 0 4 0;
#X connect 26 0 9 0;
#X connect 27 0 12 0;
#X connect 28 0 17 0;
#X connect 29 0 20 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 38 1 49 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 52 0;
#X connect 41 0 53 0;
#X connect 41 1 54 0;
#X connect 41 1 55 0;
#X connect 41 2 56 0;
#X connect 41 2 57 0;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 44 1 47 0;
#X connect 45 0 46 0;
#X connect 46 0 6 0;
#X connect 46 0 14 0;
#X connect 46 0 22 0;
#X connect 47 0 48 0;
#X connect 48 0 7 0;
#X connect 48 0 15 0;
#X connect 48 0 23 0;
#X connect 49 0 52 0;
#X connect 49 0 53 0;
#X connect 49 0 54 0;
#X connect 49 0 55 0;
#X connect 49 0 56 0;
#X connect 49 0 57 0;
#X connect 52 0 6 1;
#X connect 53 0 7 1;
#X connect 54 0 14 1;
#X connect 55 0 15 1;
#X connect 56 0 22 1;
#X connect 57 0 23 1;
#X connect 58 0 83 0;
#X connect 59 0 84 0;
#X connect 60 0 85 0;
#X connect 61 0 86 0;
#X connect 62 0 87 0;
#X connect 63 0 88 0;
#X connect 65 0 1 1;
#X connect 65 1 67 0;
#X connect 66 0 67 0;
#X connect 67 0 66 0;
#X connect 68 0 4 1;
#X connect 68 1 70 0;
#X connect 69 0 70 0;
#X connect 70 0 69 0;
#X connect 71 0 9 1;
#X connect 71 1 73 0;
#X connect 72 0 73 0;
#X connect 73 0 72 0;
#X connect 74 0 12 1;
#X connect 74 1 76 0;
#X connect 75 0 76 0;
#X connect 76 0 75 0;
#X connect 77 0 17 1;
#X connect 77 1 79 0;
#X connect 78 0 79 0;
#X connect 79 0 78 0;
#X connect 80 0 20 1;
#X connect 80 1 82 0;
#X connect 81 0 82 0;
#X connect 82 0 81 0;
#X connect 83 0 89 0;
#X connect 84 0 90 0;
#X connect 85 0 91 0;
#X connect 86 0 92 0;
#X connect 87 0 93 0;
#X connect 88 0 94 0;
#X connect 89 0 83 0;
#X connect 90 0 84 0;
#X connect 91 0 85 0;
#X connect 92 0 86 0;
#X connect 93 0 87 0;
#X connect 94 0 88 0;
#X connect 95 0 99 0;
#X connect 96 0 97 0;
#X connect 97 0 95 0;
#X connect 98 0 96 0;
#X connect 99 0 100 0;
#X connect 100 0 101 0;
#X connect 101 0 102 0;
#X connect 102 0 64 0;
#X restore 807 54 pd zone events;
#N canvas 89 98 883 398 sound 0;
#X msg 78 65 37.576 13 126.927 912;
#X msg 298 65 37.574 409 126.925 210;
#X msg 528 65 37.573 430 126.923 445;
#X obj 15 88 locationdot;
#X obj 235 88 locationdot;
#X obj 465 88 locationdot;
#X obj 465 19 r listening-location;
#X obj 78 42 loadbang;
#X obj 298 42 loadbang;
#X obj 528 42 loadbang;
#X obj 235 19 r listening-location;
#X obj 15 19 r listening-location;
#X obj 738 60 inlet;
#X obj 738 83 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 765 227 switch~;
#X obj 738 103 t a a;
#X obj 765 126 sel 1 0;
#X obj 804 175 pipe 1200;
#X msg 804 198 0;
#X msg 765 198 1;
#X msg 804 152 clear;
#X obj 328 360 dac~;
#X obj 298 331 *~;
#X obj 367 331 *~;
#X obj 675 180 vline~;
#X msg 675 157 \$1 1000;
#X obj 78 111 panningdot 1;
#X obj 298 111 panningdot 2;
#X obj 528 111 panningdot 3;
#X text 636 15 many sounders all around ...;
#X connect 0 0 3 1;
#X connect 1 0 4 1;
#X connect 2 0 5 1;
#X connect 3 1 26 0;
#X connect 4 1 27 0;
#X connect 5 1 28 0;
#X connect 6 0 5 0;
#X connect 7 0 0 0;
#X connect 8 0 1 0;
#X connect 9 0 2 0;
#X connect 10 0 4 0;
#X connect 11 0 3 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 15 0 25 0;
#X connect 15 1 16 0;
#X connect 16 0 19 0;
#X connect 16 0 20 0;
#X connect 16 1 17 0;
#X connect 17 0 18 0;
#X connect 18 0 14 0;
#X connect 19 0 14 0;
#X connect 20 0 17 0;
#X connect 22 0 21 0;
#X connect 23 0 21 1;
#X connect 24 0 23 1;
#X connect 24 0 22 1;
#X connect 25 0 24 0;
#X connect 26 0 22 0;
#X connect 26 1 23 0;
#X connect 27 0 22 0;
#X connect 27 1 23 0;
#X connect 28 0 22 0;
#X connect 28 1 23 0;
#X restore 760 541 pd sound searching mode;
#X obj 819 413 v targetspot\$0;
#X obj 819 370 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 819 390 metro 100;
#X floatatom 819 436 5 0 0 0 - - -;
#X msg 278 79 1;
#X obj 760 489 r tglsearch\$0;
#X obj 278 102 s tglsearch\$0;
#X obj 176 106 t a a b;
#X obj 696 104 t a a;
#X text 432 543 searching sound (scanning mode) \, when not in a event
;
#X connect 0 0 1 0;
#X connect 1 0 62 0;
#X connect 1 0 5 0;
#X connect 2 0 26 0;
#X connect 2 1 3 0;
#X connect 5 0 63 0;
#X connect 6 0 4 0;
#X connect 7 0 4 1;
#X connect 8 0 7 1;
#X connect 8 0 6 1;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 10 1 12 0;
#X connect 11 0 8 0;
#X connect 12 0 13 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 12 0;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X connect 17 0 40 0;
#X connect 17 0 18 0;
#X connect 17 1 41 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 19 0 52 0;
#X connect 20 0 51 0;
#X connect 21 0 47 0;
#X connect 22 0 17 1;
#X connect 22 0 25 0;
#X connect 26 0 22 0;
#X connect 27 0 17 0;
#X connect 28 0 29 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 37 0;
#X connect 32 0 30 0;
#X connect 32 1 33 0;
#X connect 32 2 35 0;
#X connect 33 0 34 0;
#X connect 34 0 38 0;
#X connect 35 0 36 0;
#X connect 36 0 39 0;
#X connect 37 0 43 0;
#X connect 38 0 43 0;
#X connect 39 0 43 0;
#X connect 40 0 23 0;
#X connect 41 0 24 0;
#X connect 42 0 40 1;
#X connect 42 0 41 1;
#X connect 43 0 26 0;
#X connect 43 1 44 0;
#X connect 45 0 54 0;
#X connect 46 0 49 0;
#X connect 47 0 46 0;
#X connect 51 0 21 0;
#X connect 55 0 58 0;
#X connect 56 0 57 0;
#X connect 57 0 55 0;
#X connect 59 0 61 0;
#X connect 60 0 45 0;
#X connect 62 0 42 0;
#X connect 62 1 2 0;
#X connect 62 2 59 0;
#X connect 63 0 11 0;
#X connect 63 1 10 0;

Binary file not shown.

After

Width:  |  Height:  |  Size: 24 KiB

View file

@ -1 +0,0 @@
{"pdFile":"iamyou-radio.pd","backgroundColor":[0.6,0.0,0.6,1.0],"pageCount":1,"port":54321,"isPageScrollShortEnd":false,"startPageIndex":0,"canvasType":"widePhone","gui":[{"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":[130.0,430.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,330.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,330.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":[170.0,330.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":[90.0,300.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,330.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,330.0,40.0,40.0]},{"highlightColor":[0.6,1.0,0.6,1.0],"address":"/myLabel","textSize":24,"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":[50.0,180.0,250.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":"Live Location On/Off","textFont":"","class":"MMPLabel","vAlign":0,"frame":[10.0,430.0,114.0,40.0]}],"isOrientationLandscape":false,"preferAndroidFontDisplayInEditor":false,"version":2.0}

View file

@ -1 +0,0 @@
{"pdFile":"iamyou-radio.pd","backgroundColor":[0.6,0.0,0.6,1.0],"pageCount":1,"port":54321,"isPageScrollShortEnd":false,"startPageIndex":0,"canvasType":"widePhone","gui":[{"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":[130.0,430.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,330.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,330.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":[170.0,330.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":"위치정보 켬/끔","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":"위치정보 작동중","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":"들으며 서있는 위치:","textFont":"","class":"MMPLabel","vAlign":0,"frame":[90.0,300.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":"북쪽은 어디?","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,330.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,330.0,40.0,40.0]},{"highlightColor":[0.6,1.0,0.6,1.0],"address":"/myLabel","textSize":24,"hAlign":0,"color":[1.0,1.0,1.0,1.0],"androidFont":"Roboto-Regular","textFontFamily":"Default","text":"나는 너야 [라디오]/*","textFont":"","class":"MMPLabel","vAlign":0,"frame":[50.0,180.0,250.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":"실제 위치 사용 켬/끔","textFont":"","class":"MMPLabel","vAlign":0,"frame":[10.0,430.0,114.0,40.0]}],"isOrientationLandscape":false,"preferAndroidFontDisplayInEditor":false,"version":2.0}

View file

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

View file

@ -1,500 +0,0 @@
#N canvas 1 91 880 512 10;
#X msg 265 218 37.573 638 126.924 850;
#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;
#X obj 14 113 unpack f f f f f f f f f;
#X obj 63 192 pack f f f f, f 19;
#X obj 84 83 s \$0-compass;
#X obj 83 225 s latlon;
#X obj 45 258 print locations:;
#N canvas 1 91 604 394 notes 0;
#X text 18 15 when location data is enabled \, it is sent via a message
"/location" with 9 numbers. Location coordinate data in iOS is a 64-bit
floating point number (double);
#X text 18 65 PureData is only 32-bit float \, so sending that number
into a patch loses resolution. However \, a tweaky workaround (via
64-bit math in the iOS layer) is provided by the last 4 numbers in
the message.;
#X text 18 125 arg #1: latitude coordinate (as 32-bit float);
#X text 18 145 arg #2: longitude coordinate (as 32-bit float);
#X text 18 165 arg #3: altitude (meters);
#X text 18 185 arg #4: horizontal accuracy (meters radius);
#X text 18 205 arg #5: vertical (altitude) accuracy (meters radius)
;
#X text 18 235 arg #6: latitude "rough";
#X text 18 275 arg #8: latitude "fine";
#X text 18 255 arg #7: longitude "rough";
#X text 18 295 arg #9: longitude "fine";
#X text 208 235 latitude/longitude "rough" = 64-bit value multiplied
by 1000 and truncated to an integer before being sent into Pd;
#X text 208 285 latitude/longitude "fine" = 64-bit value modded by
0.001 \, multiplied by 1e+06 \, and truncated to an integer \, before
being sent into Pd So the "rough" contains the significant digits up
to the thousandths place \, and the "fine" contains the next three
significant digits. An original coordinate value of 123.457 would be
turned into rough=123456 fine=789.;
#X restore 223 113 pd notes;
#X text 202 188 arg #6: latitude "rough";
#X text 202 228 arg #8: latitude "fine";
#X text 202 208 arg #7: longitude "rough";
#X text 202 248 arg #9: longitude "fine";
#X text 170 113 <======;
#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;
#X msg 526 118 list /enableLocation \$1;
#X obj 526 141 send toSystem;
#X obj 356 49 loadbang;
#X obj 356 95 send toGUI;
#N canvas 590 91 614 581 draw_arrow 0;
#X obj 89 257 rot2d;
#X msg 89 149 0.5 0.6;
#X obj 70 327 list store;
#X msg 106 172 0.4 0.7;
#X msg 140 218 0.6 0.7;
#X obj 89 280 list prepend append;
#X obj 89 303 list trim;
#X obj 70 103 t b b b;
#X obj 89 126 t b b b b;
#X obj 70 81 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 70 19 inlet;
#X obj 70 42 t b a;
#X obj 209 219 t a;
#X obj 242 199 t a;
#X msg 123 195 0.5 0;
#X obj 70 350 list prepend /lcd.Pointer paintpoly;
#X obj 70 373 t b a b;
#X msg 70 419 list /lcd.Pointer paintoval 0.45 0.45 0.55 0.55 1 1 1
1;
#X obj 89 442 send toGUI;
#X msg 244 311 list /lcd.Pointer paintoval 0 0 1 1 0.6 1 0.6 1;
#X msg 244 288 list /lcd.Pointer paintoval 0 0 1 1 0 0.8 0.6 1;
#X msg 109 396 list /lcd.Pointer paintoval 0 0 1 1 0.6 1 0.6 1;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 7 1 8 0;
#X connect 7 2 12 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 8 2 14 0;
#X connect 8 3 4 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 11 1 13 0;
#X connect 12 0 2 1;
#X connect 13 0 0 2;
#X connect 14 0 0 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 18 0;
#X connect 16 2 21 0;
#X connect 17 0 18 0;
#X connect 21 0 18 0;
#X restore 406 597 pd draw_arrow;
#X floatatom 406 403 5 0 0 1 angle_(deg) - - 0;
#X obj 28 625 send toGUI;
#X floatatom 406 335 5 0 0 1 angle_(deg) - - 0;
#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 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 #fcfcfc
#000000 #000000;
#N canvas 592 91 458 517 draw_arrow 0;
#X obj 89 257 rot2d;
#X msg 89 149 0.5 0.6;
#X obj 70 327 list store;
#X msg 106 172 0.4 0.7;
#X msg 140 218 0.6 0.7;
#X obj 89 280 list prepend append;
#X obj 89 303 list trim;
#X obj 70 103 t b b b;
#X obj 89 126 t b b b b;
#X obj 70 81 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 70 19 inlet;
#X obj 70 42 t b a;
#X obj 209 219 t a;
#X obj 242 199 t a;
#X obj 87 465 send toGUI;
#X obj 70 350 list prepend /lcd.Compass paintpoly;
#X msg 70 442 list /lcd.Compass paintoval 0.45 0.45 0.55 0.55 1 1 1
1;
#X obj 70 373 t b a b b;
#X msg 123 195 0.5 0.1;
#X msg 104 418 list /lcd.Compass frameoval 0.1 0.1 0.9 0.9 0 1 1 1
;
#X msg 121 395 list /lcd.Compass paintoval 0 0 1 1 1 1 0 1;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 7 1 8 0;
#X connect 7 2 12 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 8 2 18 0;
#X connect 8 3 4 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 11 1 13 0;
#X connect 12 0 2 1;
#X connect 13 0 0 2;
#X connect 15 0 17 0;
#X connect 16 0 14 0;
#X connect 17 0 16 0;
#X connect 17 1 14 0;
#X connect 17 3 20 0;
#X connect 18 0 0 0;
#X connect 19 0 14 0;
#X connect 20 0 14 0;
#X restore 16 425 pd draw_arrow;
#X floatatom 16 335 5 0 0 1 angle_(deg) - - 0;
#X obj 16 312 r \$0-compass;
#X text 11 16 disp. lat/long in text;
#X text 354 18 toggle gps reception + automatically enable at start-up
;
#X floatatom 16 403 5 0 0 1 angle_(deg) - - 0;
#X obj 16 357 * -1;
#X obj 16 380 + 360;
#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 #fcfcfc #000000
#000000 0 1;
#X obj 757 238 f;
#X obj 807 238 + 1;
#X obj 807 261 % 2;
#X obj 757 134 t a b;
#X msg 784 202 0;
#X obj 757 202 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 850 200 del 1000;
#X msg 850 223 0;
#X obj 757 62 r latlon;
#X obj 757 85 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X text 756 24 location info arrival indicator;
#X obj 757 163 scan 400;
#X msg 757 111 10;
#X obj 526 95 route /tgl.Location.En;
#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 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 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 #fcfcfc
#000000 #000000;
#X text 404 282 draw dest. pointing arrow = bearing arrow;
#X obj 586 332 expr fmod(($f1+360) \, 360);
#X obj 586 355 expr fmod(($f1+180) \, 360)-180;
#X obj 586 378 s \$0-brng-error;
#N canvas 24 163 465 242 tester 0;
#X obj 17 67 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000
0 1;
#X obj 17 87 metro 100;
#X obj 87 110 vline~;
#X obj 87 133 snapshot~;
#X floatatom 87 156 5 0 0 0 - - - 0;
#X msg 87 74 0 0 \, 50 2000 \, 0 2000 2000 \, 360 0 4000 \, 310 2000
4000 \, 360 2000 6000;
#X obj 87 19 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000
0 1;
#X obj 87 45 metro 8000;
#X obj 87 178 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 6 0 0 0;
#X connect 7 0 5 0;
#X restore 331 312 pd tester;
#X obj 489 487 tgl 15 0 empty \$0-veryclose r:0-veryclose 17 7 0 10
#fcfcfc #000000 #000000 0 1;
#N canvas 719 91 614 663 draw_veryclose 0;
#X obj 89 257 rot2d;
#X msg 89 149 0.5 0.6;
#X obj 70 327 list store;
#X msg 106 172 0.4 0.7;
#X msg 140 218 0.6 0.7;
#X obj 89 280 list prepend append;
#X obj 89 303 list trim;
#X obj 70 103 t b b b;
#X obj 89 126 t b b b b;
#X obj 70 81 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 70 19 inlet;
#X obj 70 42 t b a;
#X obj 209 219 t a;
#X obj 242 199 t a;
#X obj 70 350 list prepend /lcd.Pointer paintpoly;
#X obj 161 577 send toGUI;
#X msg 123 195 0.5 0.3;
#X msg 113 465 list /lcd.Pointer frameoval 0.12 0.12 0.88 0.88 1 1
0 0.7;
#X msg 142 419 list /lcd.Pointer frameoval 0 0 1 1 1 1 0 1;
#X obj 70 373 t b a b b b b b;
#X msg 70 511 list /lcd.Pointer paintoval 0.45 0.45 0.55 0.55 0 1 0
1;
#X msg 99 488 list /lcd.Pointer frameoval 0.25 0.25 0.75 0.75 1 1 0
0.5;
#X msg 128 442 list /lcd.Pointer frameoval 0.05 0.05 0.95 0.95 1 1
0 0.9;
#X msg 222 325 list /lcd.Pointer paintoval 0 0 1 1 1 0.4 0.6 1;
#X msg 157 396 list /lcd.Pointer paintoval 0 0 1 1 0 0.4 0.4 1;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 14 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 7 1 8 0;
#X connect 7 2 12 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 8 2 16 0;
#X connect 8 3 4 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 11 1 13 0;
#X connect 12 0 2 1;
#X connect 13 0 0 2;
#X connect 14 0 19 0;
#X connect 16 0 0 0;
#X connect 17 0 15 0;
#X connect 18 0 15 0;
#X connect 19 0 20 0;
#X connect 19 1 15 0;
#X connect 19 2 21 0;
#X connect 19 3 17 0;
#X connect 19 5 18 0;
#X connect 19 6 24 0;
#X connect 20 0 15 0;
#X connect 21 0 15 0;
#X connect 24 0 15 0;
#X restore 491 597 pd draw_veryclose;
#X obj 491 574 spigot;
#X obj 445 531 == 0;
#X obj 406 574 spigot;
#X obj 445 508 f;
#X obj 406 485 t a a b;
#X obj 524 534 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 445 554 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 489 440 loadbang;
#X msg 489 463 0;
#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;
#X obj 913 514 del 500;
#X obj 876 471 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 876 491 t b b;
#X msg 876 514 0;
#X msg 913 537 1;
#X obj 935 171 del;
#X text 681 423 if there is no GPS update for a long time \, let's
try to get one intentionally by performing a enable/disable cycle.
;
#X msg 935 148 20000;
#X text 947 123 20 seconds;
#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 #fcfcfc
#000000 #000000 0 1;
#X connect 1 0 42 0;
#X connect 2 0 1 0;
#X connect 3 0 4 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 50 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 19 0 24 0;
#X connect 20 0 19 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 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 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 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 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 73 0 72 0;
#X connect 74 0 78 0;
#X connect 75 0 76 0;
#X connect 76 0 77 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;
#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 - - - 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 #fcfcfc
#000000 #000000 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;
#X connect 2 0 1 0;
#X connect 3 5 15 0;
#X connect 3 6 16 0;
#X connect 3 7 4 2;
#X connect 3 8 4 3;
#X connect 4 0 6 0;
#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 - - - 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 connect 1 0 14 2;
#X connect 2 0 4 0;
#X connect 3 0 14 0;
#X connect 4 0 14 1;