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

pass zoom level to canvas

Browse Source
This commit is contained in:
Daniel Barlow 2025-06-02 21:15:56 +01:00
parent 04f6665a91
commit 441120efd6
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/tiles.fnl
View File

@ -60,7 +60,7 @@
]
(table.concat "\n"))))
(fn canvas [elements]
(fn canvas [elements zoom]
(let [nodes {}
lines {}]
(each [_ e (ipairs elements)]
@ -72,7 +72,7 @@
e.id
(icollect [_ nd (ipairs e.nodes)]
(let [node (. nodes nd)
(tx ty) (latlon->tile node.lat node.lon 17)]
(tx ty) (latlon->tile node.lat node.lon zoom)]
;;(print e.tags.name e.id e.name node.lat node.lon)
[ tx ty ])))))
lines))
@ -112,7 +112,7 @@
(let [data (with-open [i (io.open pathname :r)] (i:read "*a"))]
(if (= data "")
[]
(canvas (. (json.decode data) :elements))))
(canvas (. (json.decode data) :elements) zoom)))
(let [out (io.open pathname :w)]
(cq:wrap (fn []
(print "getting " k)