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