fetch correct tile from overpass not diagonally adjacent one
This commit is contained in:
parent
0b22a7e538
commit
f275190538
@ -46,10 +46,10 @@
|
|||||||
|
|
||||||
(fn overpass [lat lon zoom]
|
(fn overpass [lat lon zoom]
|
||||||
(let [width (/ 360 (^ 2 zoom))
|
(let [width (/ 360 (^ 2 zoom))
|
||||||
n (+ lat width) ;XXX adjust for latitude
|
n lat
|
||||||
w (- lon width)
|
w lon
|
||||||
s lat
|
s (- lat width)
|
||||||
e lon]
|
e (+ lon width)]
|
||||||
(->
|
(->
|
||||||
[
|
[
|
||||||
"[out:json];"
|
"[out:json];"
|
||||||
|
Loading…
Reference in New Issue
Block a user