This commit is contained in:
Dooho Yi 2022-07-19 03:09:21 +09:00
parent e7e2bd421a
commit c2bf71e087
5 changed files with 138 additions and 68 deletions

Binary file not shown.

View file

@ -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

@ -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;

12
iamyou/skip-help.pd Normal file
View file

@ -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;

41
iamyou/skip.pd Normal file
View file

@ -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;