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

4
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)
@ -161,7 +161,7 @@ label.readout {
(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)

6
pkgs/maps/tiles.fnl
View File

@ -70,11 +70,15 @@
(tset (tset
lines lines
e.id e.id
{
:name (?. e :tags :name)
:points
(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 zoom)] (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))