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

parse way name as well as points

Browse Source
This commit is contained in:
Daniel Barlow 2025-06-02 21:35:55 +01:00
parent 441120efd6
commit 11bbf10781
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/maps/main.fnl
View File

@ -145,7 +145,7 @@ label.readout {
(g:fill) (g:fill)
(each [_ line (pairs lines)] (each [_ line (pairs lines)]
(case line (case line.points
[[sx sy] & more] [[sx sy] & more]
(do (do
(g:save) (g:save)
@ -160,8 +160,8 @@ label.readout {
(g:stroke) (g:stroke)
(g:restore)))) (g:restore))))
(each [_ line (pairs lines)] (each [_ line (pairs lines)]
(case line (case line.points
[[sx sy] & more] [[sx sy] & more]
(do (do
(g:save) (g:save)

14
pkgs/maps/tiles.fnl
View File

@ -70,11 +70,15 @@
(tset (tset
lines lines
e.id e.id
(icollect [_ nd (ipairs e.nodes)] {
(let [node (. nodes nd) :name (?. e :tags :name)
(tx ty) (latlon->tile node.lat node.lon zoom)] :points
;;(print e.tags.name e.id e.name node.lat node.lon) (icollect [_ nd (ipairs e.nodes)]
[ tx ty ]))))) (let [node (. nodes nd)
(tx ty) (latlon->tile node.lat node.lon zoom)]
;;(print e.tags.name e.id e.name node.lat node.lon)
[ tx ty ]))
})))
lines)) lines))