parse way name as well as points
This commit is contained in:
parent
35f0f3c71e
commit
052cd4b578
@ -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)
|
||||
|
@ -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))
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user