diff --git a/iamyou.zip b/iamyou.zip index b8d82aa..57fd2fc 100644 Binary files a/iamyou.zip and b/iamyou.zip differ diff --git a/iamyou/eqpan2~.pd b/iamyou/eqpan2~.pd index 79f94b6..7db4a29 100644 --- a/iamyou/eqpan2~.pd +++ b/iamyou/eqpan2~.pd @@ -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; diff --git a/iamyou/main.pd b/iamyou/main.pd index 6df4396..d1cc731 100644 --- a/iamyou/main.pd +++ b/iamyou/main.pd @@ -1,4 +1,4 @@ -#N canvas 948 91 411 305 10; +#N canvas 230 91 411 305 10; #X obj 14 14 receive fromSystem; #X obj 14 60 route /location /compass; #X obj 14 37 list trim; @@ -548,15 +548,12 @@ try to get one intentionally by performing a enable/disable cycle. #X obj 494 42 t b b a; #X obj 518 319 print input(C); #X obj 278 319 print input(F); -#X obj 55 497 print dist(km); -#X obj 55 474 print brng(deg); #X obj 181 474 expr sqrt(x\$0*x\$0+y\$0*y\$0) \; fmod(atan2(x\$0 \, y\$0)*360/6.28319+360 \, 360) \; x\$0=distC\$0*sin(brngC\$0*6.28319/360)+ distF\$0*sin(brngF\$0*6.28319/360) \; y\$0=distC\$0*cos(brngC\$0*6.28319/360)+ distF\$0*cos(brngF\$0*6.28319/360); #X obj 628 520 tgl 15 0 \$0-veryclose empty s:0-veryclose 17 7 0 10 -262144 -1 -1 0 1; -#X obj 628 497 < 0.03; #X obj 628 474 r \$0-dist; #X obj 780 39 r PRESET; #X text 636 73 location input-format: (Lat.rough \, Lat.fine \, Lon.rough @@ -567,10 +564,12 @@ distF\$0*cos(brngF\$0*6.28319/360); #X obj 780 167 pack f f f f; #X obj 780 144 f; #X obj 780 121 t b a; +#X obj 398 421 pack f f; +#X obj 398 444 print dist(km)-brng(deg); +#X obj 628 497 < 0.05; #X connect 0 0 21 0; #X connect 1 0 22 0; #X connect 2 0 25 0; -#X connect 2 0 48 0; #X connect 3 0 46 0; #X connect 4 0 12 0; #X connect 4 1 10 3; @@ -582,7 +581,6 @@ distF\$0*cos(brngF\$0*6.28319/360); #X connect 8 0 6 0; #X connect 8 1 7 0; #X connect 9 0 8 0; -#X connect 9 0 47 0; #X connect 10 0 14 0; #X connect 11 0 10 0; #X connect 12 0 11 0; @@ -609,7 +607,7 @@ distF\$0*cos(brngF\$0*6.28319/360); #X connect 26 0 36 0; #X connect 32 0 4 0; #X connect 33 0 13 0; -#X connect 35 0 51 0; +#X connect 35 0 49 0; #X connect 36 0 35 0; #X connect 38 0 37 0; #X connect 40 0 39 0; @@ -622,31 +620,31 @@ distF\$0*cos(brngF\$0*6.28319/360); #X connect 46 0 42 0; #X connect 46 1 38 0; #X connect 46 2 13 0; -#X connect 51 0 29 0; -#X connect 51 0 49 0; -#X connect 51 1 30 0; -#X connect 51 1 50 0; -#X connect 53 0 52 0; -#X connect 54 0 53 0; +#X connect 49 0 29 0; +#X connect 49 0 59 0; +#X connect 49 1 30 0; +#X connect 49 1 59 1; +#X connect 51 0 61 0; +#X connect 52 0 55 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 connect 55 1 57 1; +#X connect 55 2 56 3; +#X connect 55 3 56 1; +#X connect 56 0 46 0; +#X connect 57 0 56 0; +#X connect 58 0 57 0; +#X connect 58 1 56 2; +#X connect 59 0 60 0; +#X connect 61 0 50 0; #X restore 287 48 pd location guts; -#N canvas 142 162 800 337 audio 0; +#N canvas 142 162 800 432 audio 0; #X obj 18 146 wav2~; #X msg 18 68 01.wav; #X msg 31 117 1; #X msg 667 227 \; pd dsp 1; #X obj 31 16 loadbang; #X obj 153 39 r \$0-dist; -#X obj 153 62 map 0.005 0.05 1 0.1; -#X obj 18 303 dac~; +#X obj 18 393 dac~; #X floatatom 318 43 5 0 0 1 - - -; #X floatatom 153 85 5 0 0 1 vol - -; #X obj 153 146 line~; @@ -656,7 +654,7 @@ distF\$0*cos(brngF\$0*6.28319/360); #X obj 18 169 expr~ $v1 * pow($v2 \, 4); #X obj 318 20 r \$0-brng-error; #X obj 318 248 line~; -#X obj 18 265 eqpan2~ 30; +#X obj 18 355 eqpan2~ 30; #X obj 363 81 t a a; #X obj 363 110 -; #X obj 363 156 > 100; @@ -670,36 +668,54 @@ distF\$0*cos(brngF\$0*6.28319/360); (otherwise one will hear glitches.); #X text 411 47 for a very big jumps \, like 180 <-> -180 .. this is not regular change \, we should disable [line~] for such events.; -#X connect 0 0 14 0; +#X obj 222 176 print vol; +#X obj 222 153 print brng-err; +#X obj 222 130 skip 2000; +#X obj 75 226 tgl 15 0 empty \$0-veryclose r:0-veryclose 17 7 0 10 +-262144 -1 -1 0 1; +#X obj 75 246 sel 1 0; +#X msg 94 269 30; +#X msg 75 292 120; +#X text 113 291 <== enabled for every direction but pan-in/out; +#X obj 153 62 map 0.005 0.05 1 0.2; +#X connect 0 0 13 0; #X connect 1 0 0 0; #X connect 2 0 0 1; -#X connect 4 0 12 0; -#X connect 5 0 6 0; -#X connect 6 0 9 0; -#X connect 8 0 21 0; -#X connect 9 0 11 0; -#X connect 10 0 14 1; -#X connect 11 0 10 0; -#X connect 12 0 2 0; -#X connect 12 1 1 0; -#X connect 13 0 3 0; -#X connect 14 0 17 0; -#X connect 15 0 8 0; -#X connect 16 0 17 1; -#X connect 17 0 7 0; -#X connect 17 1 7 1; -#X connect 18 0 19 1; -#X connect 18 1 19 0; -#X connect 19 0 26 0; +#X connect 4 0 11 0; +#X connect 5 0 36 0; +#X connect 7 0 20 0; +#X connect 7 0 30 0; +#X connect 8 0 10 0; +#X connect 8 0 28 0; +#X connect 9 0 13 1; +#X connect 10 0 9 0; +#X connect 11 0 2 0; +#X connect 11 1 1 0; +#X connect 12 0 3 0; +#X connect 13 0 16 0; +#X connect 14 0 7 0; +#X connect 15 0 16 1; +#X connect 16 0 6 0; +#X connect 16 1 6 1; +#X connect 17 0 18 1; +#X connect 17 1 18 0; +#X connect 18 0 25 0; +#X connect 19 0 21 0; #X connect 20 0 22 0; -#X connect 21 0 23 0; -#X connect 21 1 18 0; -#X connect 22 0 25 0; -#X connect 22 1 24 0; -#X connect 23 0 16 0; -#X connect 24 0 23 1; -#X connect 25 0 23 1; -#X connect 26 0 20 0; +#X connect 20 1 17 0; +#X connect 21 0 24 0; +#X connect 21 1 23 0; +#X connect 22 0 15 0; +#X connect 23 0 22 1; +#X connect 24 0 22 1; +#X connect 25 0 19 0; +#X connect 30 0 29 0; +#X connect 31 0 32 0; +#X connect 32 0 34 0; +#X connect 32 1 33 0; +#X connect 33 0 16 2; +#X connect 34 0 16 2; +#X connect 36 0 8 0; #X restore 287 71 pd audio guts; #N canvas 1 91 455 449 PRESET 0; #X obj 18 263 s PRESET; @@ -751,6 +767,5 @@ a space after 3rd fractional digit); #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; diff --git a/iamyou/skip-help.pd b/iamyou/skip-help.pd new file mode 100644 index 0000000..19e919e --- /dev/null +++ b/iamyou/skip-help.pd @@ -0,0 +1,12 @@ +#N canvas 620 344 450 300 12; +#X floatatom 24 125 5 0 0 0 - - -; +#X floatatom 24 188 5 0 0 0 - - -; +#X obj 24 163 skip 1000; +#X obj 24 212 print; +#X text 19 13 [skip] only output if change \, otherwise skipped; +#X text 19 27 [skip] only output up to 1 output per \$1 millisec.; +#X text 19 57 [skip] once \, used for not to overflow relatively slow +network with too many messages; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X connect 2 0 1 0; diff --git a/iamyou/skip.pd b/iamyou/skip.pd new file mode 100644 index 0000000..7386eaa --- /dev/null +++ b/iamyou/skip.pd @@ -0,0 +1,41 @@ +#N canvas 240 23 254 344 12; +#X floatatom 18 49 5 0 0 0 - - -; +#X obj 18 108 change; +#X obj 18 78 spigot; +#X obj 18 138 t a b; +#X obj 50 168 t b b; +#X msg 118 278 0; +#X obj 73 63 tgl 15 0 empty \$0-gate r:0-gate 17 7 0 10 -262144 -1 +-1 1 1; +#X msg 50 278 1; +#X msg 161 43 1; +#X floatatom 167 265 5 0 0 0 - - -; +#X obj 18 19 inlet; +#X obj 161 19 loadbang; +#X obj 161 73 tgl 15 0 \$0-gate empty s:0-gate 17 7 0 10 -262144 -1 +-1 1 1; +#X obj 50 308 tgl 15 0 \$0-gate empty s:0-gate 17 7 0 10 -262144 -1 +-1 1 1; +#X obj 50 198 del \$1; +#X obj 50 222 t b b; +#X obj 81 108 v \$0-track; +#X obj 82 246 v \$0-track; +#X obj 167 294 outlet; +#X connect 0 0 2 0; +#X connect 0 0 16 0; +#X connect 1 0 3 0; +#X connect 2 0 1 0; +#X connect 3 1 4 0; +#X connect 4 0 14 0; +#X connect 4 1 5 0; +#X connect 5 0 13 0; +#X connect 6 0 2 1; +#X connect 7 0 13 0; +#X connect 8 0 12 0; +#X connect 9 0 18 0; +#X connect 10 0 0 0; +#X connect 11 0 8 0; +#X connect 14 0 15 0; +#X connect 15 0 7 0; +#X connect 15 1 17 0; +#X connect 17 0 9 0;