parse way name as well as points

This commit is contained in:
Daniel Barlow 2025-06-02 21:35:55 +01:00
parent 35f0f3c71e
commit 052cd4b578
2 changed files with 12 additions and 8 deletions

View File

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

View File

@ -69,11 +69,15 @@
(tset
lines
e.id
(icollect [_ nd (ipairs e.nodes)]
(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 ])))))
{
:name (?. e :tags :name)
:points
(icollect [_ nd (ipairs e.nodes)]
(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))