WIP icons - new nice icon set

[ypp-sc-tools.web-live.git] / yarrg / where-vessels

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 0639d4abba33ecfcc80aa02efded735072da17c6..adf76eb4d23af50e9ed0102106638aaa46c2aba0 100755 (executable)
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -692,15 +692,17 @@ proc draw {} {
        if {$c > 1} {
            set qty [format "%2d" $c]
        } else {
-           set qty [format "99" $c]
+           set qty [format "  " $c]
        }
 
+       regsub {[a-z][a-z]} $text {} text
+
        set stackx $x
        incr stackx 2
        set tid [canvas-horiz-stack stackx $y \
                 text -anchor nw -font fixed -text $qty]
        incr stackx -1
-       canvas-horiz-stack stackx [expr {$y+1}] \
+       canvas-horiz-stack stackx [expr {$y+2}] \
            image -anchor nw -image ship-icon/$vc_code2abbrev([lindex [split $code _] 1])
        incr stackx
        canvas-horiz-stack stackx $y \