dan/biscuit
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix two more off-by-one errors

Browse Source 
- we were incrementing num-tiles, no need to
- the overpass fetcher was fetcing one tile too far left
This commit is contained in:
Daniel Barlow 2025-06-02 13:43:39 +01:00
parent 380c5e7410
commit b70c72fcfe
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/maps/main.fnl
View File

@ -135,8 +135,8 @@ label.readout {
(let [map-surface (let [map-surface
(window:create_similar_surface (window:create_similar_surface
cairo.Content.COLOR cairo.Content.COLOR
(* tile-size (+ 1 num-tiles-x)) (* tile-size num-tiles-x)
(* tile-size (+ 1 num-tiles-y))) (* tile-size num-tiles-y))
g (cairo.Context.create map-surface)] g (cairo.Context.create map-surface)]
(g:set_source_rgb 1 1 1) (g:set_source_rgb 1 1 1)

5
pkgs/maps/tiles.fnl
View File

@ -47,9 +47,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 width) ;XXX adjust for latitude
w (- lon width) w lon ; (- lon width)
s lat s lat
e lon] e (+ lon width)
]
(-> (->
[ [
"[out:json];" "[out:json];"