-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathloca.distance.pd
80 lines (80 loc) · 1.83 KB
/
loca.distance.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#N canvas 918 241 767 605 10;
#X text 69 19 Equirectangular approximation formula;
#X obj 95 37 inlet;
#X obj 95 554 outlet;
#X obj 95 101 unpack f f;
#X text 415 189 var x = (long2-long1) * Math.cos((lat1+lat2)/2) \;
var y = (lat2-lat1) \; var d = Math.sqrt(x*x + y*y) * R \;;
#X obj 95 199 deg2rad;
#X obj 259 199 deg2rad;
#X obj 144 199 deg2rad;
#X obj 207 200 deg2rad;
#X obj 207 313 -;
#X obj 95 345 *;
#X obj 95 305 cos;
#X obj 95 125 t f b;
#X obj 95 257 +;
#X obj 95 281 / 2;
#X obj 144 226 t f f;
#X obj 95 225 t f f;
#X obj 140 344 -;
#X obj 140 281 pack f f;
#X msg 140 312 \$2 \$1;
#X obj 207 133 t b f;
#X obj 95 451 sqrt;
#X obj 95 423 +;
#X obj 218 70 inlet;
#X obj 291 70 inlet;
#X obj 95 484 * 6.3728e+06;
#X obj 95 368 t f f;
#X obj 95 392 *;
#X obj 140 369 t f f;
#X obj 140 392 *;
#X text 166 537 distance in m;
#X obj 333 95 loca.latlon-merge;
#X obj 333 116 unpack f f;
#X obj 333 71 \$1 \$2 \$3 \$4;
#X obj 333 48 loadbang;
#X obj 143 163 f;
#X obj 207 160 f;
#X connect 1 0 3 0;
#X connect 3 0 12 0;
#X connect 3 1 20 0;
#X connect 5 0 16 0;
#X connect 6 0 9 1;
#X connect 7 0 15 0;
#X connect 8 0 9 0;
#X connect 9 0 10 1;
#X connect 10 0 26 0;
#X connect 11 0 10 0;
#X connect 12 0 5 0;
#X connect 12 1 35 0;
#X connect 13 0 14 0;
#X connect 14 0 11 0;
#X connect 15 0 13 1;
#X connect 15 1 18 1;
#X connect 16 0 13 0;
#X connect 16 1 18 0;
#X connect 17 0 28 0;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X connect 20 0 36 0;
#X connect 20 1 6 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 35 1;
#X connect 24 0 36 1;
#X connect 25 0 2 0;
#X connect 26 0 27 0;
#X connect 26 1 27 1;
#X connect 27 0 22 0;
#X connect 28 0 29 0;
#X connect 28 1 29 1;
#X connect 29 0 22 1;
#X connect 31 0 32 0;
#X connect 32 0 35 1;
#X connect 32 1 36 1;
#X connect 33 0 31 0;
#X connect 34 0 33 0;
#X connect 35 0 7 0;
#X connect 36 0 8 0;