# 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
}
}
