X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fwhere-vessels;h=adf76eb4d23af50e9ed0102106638aaa46c2aba0;hp=0639d4abba33ecfcc80aa02efded735072da17c6;hb=0d405d70651d4241185d81725d59d63d865dd443;hpb=fffd6551a3a72719c5147ec37698cec0e636b212

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 0639d4a..adf76eb 100755
--- 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 \