doohoyi/iamyou
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

update

Browse source
This commit is contained in:
Dooho Yi 2022-07-15 18:11:13 +09:00
parent 31372049ca
commit 0cb954a172
2 changed files with 88 additions and 48 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
iamyou.zip
View file

Binary file not shown.

136
iamyou/main.pd
View file

@ -1,4 +1,4 @@
#N canvas 948 458 411 305 10; #N canvas 948 91 411 305 10;
#X obj 14 14 receive fromSystem; #X obj 14 14 receive fromSystem;
#X obj 14 60 route /location /compass; #X obj 14 60 route /location /compass;
#X obj 14 37 list trim; #X obj 14 37 list trim;
@ -39,7 +39,7 @@ turned into rough=123456 fine=789.;
#X text 202 208 arg #7: longitude "rough"; #X text 202 208 arg #7: longitude "rough";
#X text 202 248 arg #9: longitude "fine"; #X text 202 248 arg #9: longitude "fine";
#X text 170 113 <======; #X text 170 113 <======;
#N canvas 1 91 1064 672 gui 0; #N canvas 1 91 1358 649 gui 0;
#X obj 16 239 send toGUI; #X obj 16 239 send toGUI;
#X obj 526 72 list trim; #X obj 526 72 list trim;
#X obj 526 49 receive fromGUI; #X obj 526 49 receive fromGUI;
@ -327,6 +327,16 @@ try to get one intentionally by performing a enable/disable cycle.
; ;
#X msg 935 148 20000; #X msg 935 148 20000;
#X text 947 123 20 seconds; #X text 947 123 20 seconds;
#X obj 1081 283 send toGUI;
#X msg 1101 195 list /disp.Loc.Pointing.Lon.Coarse \$1;
#X msg 1111 248 list /disp.Loc.Pointing.Lon.Fine \$1;
#X msg 1091 172 list /disp.Loc.Pointing.Lat.Fine \$1;
#X msg 1081 119 list /disp.Loc.Pointing.Lat.Coarse \$1;
#X obj 1081 96 unpack f f f f;
#X obj 1081 73 r PRESET;
#X text 1145 26 for preset ui;
#X obj 1091 149 makefilename %03d;
#X obj 1111 225 makefilename %03d;
#X connect 1 0 43 0; #X connect 1 0 43 0;
#X connect 2 0 1 0; #X connect 2 0 1 0;
#X connect 3 0 4 0; #X connect 3 0 4 0;
@ -405,10 +415,21 @@ try to get one intentionally by performing a enable/disable cycle.
#X connect 79 0 74 0; #X connect 79 0 74 0;
#X connect 80 0 76 0; #X connect 80 0 76 0;
#X connect 82 0 80 0; #X connect 82 0 80 0;
#X connect 85 0 84 0;
#X connect 86 0 84 0;
#X connect 87 0 84 0;
#X connect 88 0 84 0;
#X connect 89 0 88 0;
#X connect 89 1 92 0;
#X connect 89 2 85 0;
#X connect 89 3 93 0;
#X connect 90 0 89 0;
#X connect 92 0 87 0;
#X connect 93 0 86 0;
#X restore 287 25 pd gui guts; #X restore 287 25 pd gui guts;
#X obj 63 142 / 1000; #X obj 63 142 / 1000;
#X obj 100 165 / 1000; #X obj 100 165 / 1000;
#N canvas 541 159 818 604 location 0; #N canvas 72 91 1062 623 location 0;
#X obj 183 351 geocoord_dist; #X obj 183 351 geocoord_dist;
#X obj 273 351 geocoord_bearing; #X obj 273 351 geocoord_bearing;
#X obj 183 291 pack f f f f; #X obj 183 291 pack f f f f;
@ -444,10 +465,6 @@ try to get one intentionally by performing a enable/disable cycle.
; ;
#X obj 44 524 makefilename %03d; #X obj 44 524 makefilename %03d;
#X obj 370 348 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 0 0 7 0;
#X connect 1 0 11 0; #X connect 1 0 11 0;
#X connect 3 0 5 0; #X connect 3 0 5 0;
@ -483,14 +500,6 @@ try to get one intentionally by performing a enable/disable cycle.
#X connect 26 1 27 0; #X connect 26 1 27 0;
#X connect 27 0 16 0; #X connect 27 0 16 0;
#X connect 28 0 20 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 restore 494 19 pd get_point;
#X obj 183 42 unpack f f f f; #X obj 183 42 unpack f f f f;
#X obj 183 19 r latlon; #X obj 183 19 r latlon;
@ -528,14 +537,14 @@ try to get one intentionally by performing a enable/disable cycle.
#X obj 55 392 v haveSetPoint; #X obj 55 392 v haveSetPoint;
#X obj 554 134 v haveSetPoint; #X obj 554 134 v haveSetPoint;
#X msg 554 111 1; #X msg 554 111 1;
#X obj 653 224 send toGUI; #X obj 653 414 send toGUI;
#X msg 653 201 list /tgl.Location.En \$1; #X msg 653 391 list /tgl.Location.En \$1;
#X obj 690 149 del 500; #X obj 690 339 del 500;
#X obj 653 106 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 #X obj 653 296 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1; -1 -1;
#X obj 653 126 t b b; #X obj 653 316 t b b;
#X msg 653 149 0; #X msg 653 339 0;
#X msg 690 172 1; #X msg 690 362 1;
#X obj 494 42 t b b a; #X obj 494 42 t b b a;
#X obj 518 319 print input(C); #X obj 518 319 print input(C);
#X obj 278 319 print input(F); #X obj 278 319 print input(F);
@ -549,6 +558,15 @@ distF\$0*cos(brngF\$0*6.28319/360);
-262144 -1 -1 0 1; -262144 -1 -1 0 1;
#X obj 628 497 < 0.03; #X obj 628 497 < 0.03;
#X obj 628 474 r \$0-dist; #X obj 628 474 r \$0-dist;
#X obj 780 39 r PRESET;
#X text 636 73 location input-format: (Lat.rough \, Lat.fine \, Lon.rough
\, Lon.fine), f 66;
#X text 636 195 location re-formated: (Lat.fine \, Lon.fine \, Lat.rough
\, Lon.rough), f 65;
#X obj 780 98 unpack f f f f;
#X obj 780 167 pack f f f f;
#X obj 780 144 f;
#X obj 780 121 t b a;
#X connect 0 0 21 0; #X connect 0 0 21 0;
#X connect 1 0 22 0; #X connect 1 0 22 0;
#X connect 2 0 25 0; #X connect 2 0 25 0;
@ -610,6 +628,15 @@ distF\$0*cos(brngF\$0*6.28319/360);
#X connect 51 1 50 0; #X connect 51 1 50 0;
#X connect 53 0 52 0; #X connect 53 0 52 0;
#X connect 54 0 53 0; #X connect 54 0 53 0;
#X connect 55 0 58 0;
#X connect 58 0 61 0;
#X connect 58 1 60 1;
#X connect 58 2 59 3;
#X connect 58 3 59 1;
#X connect 59 0 46 0;
#X connect 60 0 59 0;
#X connect 61 0 60 0;
#X connect 61 1 59 2;
#X restore 287 48 pd location guts; #X restore 287 48 pd location guts;
#N canvas 142 162 800 337 audio 0; #N canvas 142 162 800 337 audio 0;
#X obj 18 146 wav2~; #X obj 18 146 wav2~;
@ -674,33 +701,46 @@ not regular change \, we should disable [line~] for such events.;
#X connect 25 0 23 1; #X connect 25 0 23 1;
#X connect 26 0 20 0; #X connect 26 0 20 0;
#X restore 287 71 pd audio guts; #X restore 287 71 pd audio guts;
#N canvas 1 420 450 324 PRESET 0; #N canvas 1 91 455 449 PRESET 0;
#X obj 147 287 s PRESET; #X obj 18 263 s PRESET;
#X obj 147 264 pack f f f f; #X obj 18 23 loadbang;
#X text 14 8 (Lat.integral \, Lat.fractional \, Lon.integral \, Lon.fractional) #X obj 18 92 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
;
#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; -1;
#X obj 18 89 del; #X obj 18 69 del;
#X msg 18 66 500; #X msg 18 46 500;
#X msg 109 211 0.574749; #X msg 18 214 37.574 749 126.926 80;
#X msg 291 211 0.92608; #X msg 17 359 37.573 638 126.924 850;
#X msg 18 185 37; #X text 15 334 location input-format: (Lat.rough \, Lat.fine \, Lon.rough
#X msg 200 185 126; \, Lon.fine), f 66;
#X connect 1 0 0 0; #X text 27 148 <==== if you want to enable PRESET \, connect here.
#X connect 3 0 7 0; ;
#X connect 4 0 10 0; #X text 168 213 <-- location numbers goes here. EDIT.;
#X connect 4 1 8 0; #X text 179 359 NOTE: DO NOT type-in COMMA( \, ) between!;
#X connect 4 2 11 0; #X text 15 312 ========================== README :D ==========================
#X connect 4 3 9 0; , f 66;
#X connect 6 0 5 0; #X text 15 394 (please insert a space after 3rd fractional digit \,
#X connect 7 0 6 0; that is to say \, split 1 number to 2 why? -->);
#X connect 8 0 1 1; #N canvas 1 91 445 320 more 0;
#X connect 9 0 1 3; #X msg 23 143 37.5736;
#X connect 10 0 1 0; #X floatatom 23 166 9 0 0 0 - - -;
#X connect 11 0 1 2; #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 246 414 pd more notes;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 0 0;
#X restore 190 24 pd PRESET; #X restore 190 24 pd PRESET;
#X connect 0 0 2 0; #X connect 0 0 2 0;
#X connect 1 0 3 0; #X connect 1 0 3 0;