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

pass bounds to draw-onto-map-surface instead of recalculating

Browse Source
This commit is contained in:
Daniel Barlow 2025-06-07 11:50:17 +01:00
parent f275190538
commit 1ee968d3a2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/maps/main.fnl
View File

@ -180,8 +180,8 @@ label.readout {
(var map-surface nil) (var map-surface nil)
(fn draw-onto-map-surface [surface lat lon zoom] (fn draw-onto-map-surface [surface bounds zoom]
(let [{ : num-tiles-x : num-tiles-y &as bounds } (map-bounds lat lon zoom) (let [{ : num-tiles-x : num-tiles-y } bounds
road-width 14 road-width 14
lines []] lines []]
@ -244,7 +244,7 @@ label.readout {
cairo.Content.COLOR cairo.Content.COLOR
(* tile-size bounds.num-tiles-x) (* tile-size bounds.num-tiles-x)
(* tile-size bounds.num-tiles-y)) (* tile-size bounds.num-tiles-y))
(draw-onto-map-surface lat lon zoom))))) (draw-onto-map-surface bounds zoom)))))
(g:set_source_surface map-surface (- offset-x) (- offset-y)) (g:set_source_surface map-surface (- offset-x) (- offset-y))
(g:set_operator cairo.Operator.SOURCE) (g:set_operator cairo.Operator.SOURCE)