lcd: fix alignment of digits 1, 2 and 3

The 1, 3 and 7 only _look_ like the have too much whitespace to the left
because their leftmost segments are empty. This appearance lead to
incorrect placement of 1 and 3 in the constants.

diff --git a/extra/lcd/lcd.factor b/extra/lcd/lcd.factor
index 94294501ade41594bf60e4d28f32b2c2d2ed70c4..4083e5c3f012985d4e8899d661cfd024c117a0ff 100644 (file)
--- a/extra/lcd/lcd.factor
+++ b/extra/lcd/lcd.factor
@@ -6,10 +6,10 @@ IN: lcd
 
 : lcd-digit ( digit row -- str )
     [ dup CHAR: : = [ drop 10 ] [ CHAR: 0 - ] if ] dip {
-        "  _       _  _       _   _   _   _   _      "
-        " | |  |   _| _| |_| |_  |_    | |_| |_|  *  "
-        " |_|  |  |_  _|   |  _| |_|   | |_|   |  *  "
-        "                                            "
+        "  _       _   _       _   _   _   _   _      "
+        " | |   |  _|  _| |_| |_  |_    | |_| |_|  *  "
+        " |_|   | |_   _|   |  _| |_|   | |_|   |  *  "
+        "                                             "
     } nth 4 <groups> nth ;
 
 : lcd-row ( row digit -- string )