print each road name once only

This commit is contained in:
Daniel Barlow 2025-06-03 22:15:14 +01:00
parent 7195dbb2d5
commit e728052bb6

View File

@ -143,6 +143,7 @@ label.readout {
cairo.Content.COLOR cairo.Content.COLOR
(* tile-size (+ 4 num-tiles-x)) (* tile-size (+ 4 num-tiles-x))
(* tile-size (+ 4 num-tiles-y))) (* tile-size (+ 4 num-tiles-y)))
seen-road-names {}
g (cairo.Context.create map-surface)] g (cairo.Context.create map-surface)]
(g:set_source_rgb 0.7 0.8 0.8) (g:set_source_rgb 0.7 0.8 0.8)
@ -164,7 +165,8 @@ label.readout {
ext (g:text_extents n) ext (g:text_extents n)
w ext.width w ext.width
h ext.height] h ext.height]
(when (and x y) (when (and x y (not (. seen-road-names n)))
(tset seen-road-names n true)
(g:save) (g:save)
(g:set_line_width h) (g:set_line_width h)
(g:set_source_rgb 1 1 1) (g:set_source_rgb 1 1 1)