biscuit

commit f275190538cbe49fda48e07bf3da78fa0cfd2f0a
parent 0b22a7e5387db67ec7dd51c5964e4d8014a23054
Author: Daniel Barlow <dan@telent.net>
Date:   Fri,  6 Jun 2025 21:39:31 +0100

fetch correct tile from overpass not diagonally adjacent one

Diffstat:
M
pkgs/maps/tiles.fnl
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git 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];"