fetch correct tile from overpass not diagonally adjacent one

2025-06-06 21:39:31 +01:00 · 2025-06-06 21:39:31 +01:00 · f275190538
commit f275190538
parent 0b22a7e538
1 changed files with 4 additions and 4 deletions
--- a/pkgs/maps/tiles.fnl
+++ b/pkgs/maps/tiles.fnl
@ -46,10 +46,10 @@

 (fn overpass [lat lon zoom]
  (let [width (/ 360 (^ 2 zoom))
-        n (+ lat width)                 ;XXX adjust for latitude
-        w (- lon width)
-        s lat
-        e lon]
+        n lat
+        w lon
+        s (- lat width)
+        e (+ lon width)]
    (->
     [
      "[out:json];"