LCD Number Display (Tcl recipe) by Donal Fellows

ActiveState Code (http://code.activestate.com/recipes/68382/)

# The shapes of individual elements of a digit.  They were worked out
# with a piece of paper, a calculator and a good deal of head-scratching.
array set lcdshape {
   a {3.0 5 5.2 3 7.0 5 6.0 15 3.8 17 2.0 15}
   b {6.3 2 8.5 0 18.5 0 20.3 2 18.1 4 8.1 4}
   c {19.0 5 21.2 3 23.0 5 22.0 15 19.8 17 18.0 15}
   d {17.4 21 19.6 19 21.4 21 20.4 31 18.2 33 16.4 31}
   e {3.1 34 5.3 32 15.3 32 17.1 34 14.9 36 4.9 36}
   f {1.4 21 3.6 19 5.4 21 4.4 31 2.2 33 0.4 31}
   g {4.7 18 6.9 16 16.9 16 18.7 18 16.5 20 6.5 20}
}
# Which elements are turned on for a given digit?  Note that this is only
# decimal digits, though adding hex digits should be easy enough.
array set llcd {
   0 {a b c d e f}
   1 {c d}
   2 {b c e f g}
   3 {b c d e g}
   4 {a c d g}
   5 {a b d e g}
   6 {a b d e f g}
   7 {b c d}
   8 {a b c d e f g}
   9 {a b c d e g}
   - {g}
   { } {}
}
# Which elements are turned off for a given digit?  Note that you should make
# sure that this is the complement of the digits set in the llcd array...
array set ulcd {
   0 {g}
   1 {a b e f g}
   2 {a d}
   3 {a f}
   4 {b e f}
   5 {c f}
   6 {c}
   7 {a e f g}
   8 {}
   9 {f}
   - {a b c d e f}
   { } {a b c d e f g}
}

# Displays a decimal number using LCD digits in the top-left of the canvas
proc showLCD {
   canvas number {width 5} {colours {#ff8080 #ff0000 #404040 #303030}}
} {
   global llcd ulcd lcdshape
   set lcdoffset 0

   # Remove previous LCD number
   $canvas delete lcd

   # Get colours to draw with
   foreach {onRim onFill offRim offFill} $colours {break}

   # For each digit in the (space-padded) number...
   foreach glyph [split [format %${width}d $number] {}] {
      # ... draw its "on" elements...
      foreach symbol $llcd($glyph) {
         # ... by drawing a polygon and shifting it...
         $canvas move [eval $canvas create polygon $lcdshape($symbol)                  -tags lcd -outline $onRim -fill $onFill] $lcdoffset 0
      }
      # ... and then doing the same thing for the "off" elements
      foreach symbol $ulcd($glyph) {
         $canvas move [eval $canvas create polygon $lcdshape($symbol)                  -tags lcd -outline $offRim -fill $offFill] $lcdoffset 0
      }
      # And now we increase our offset too...
      incr lcdoffset 22
   }
}