/led_color {.2 setgray} def
/led_border_color {.4 setgray} def
/led_dim {
-1 -.25 jtoppoint
1 .25 jtoppoint
} def
/led {
gsave
currentpoint translate
led_border_color
[
-1 0
-.75 -.25
.75 -.25
1 0
.75 .25
-.75 .25
] polygone*
grestore
} def
/digital_point_dim {
-.125 dup jtoppoint
.125 dup jtoppoint
} def
/digital_point {
gsave
1 dict begin
currentpoint translate
2 mod 0 eq
{/fillstyle {} def}
{/fillstyle {led_color fill} def}
ifelse
-.125 dup .125 dup frame*
end
grestore
} def
/digital_dim {
-1.25 -.25 jtoppoint
1.25 4.25 jtoppoint
} def
/digital {
1 dict begin
dsave1
gsave
currentpoint translate
% [125 80 79 87 114 55 59 84 127 119 0]
% exch get
/n exch def
[0 0 0 2 0 4]
{
n 2 mod 0 eq
{/fillstyle {} def}
{/fillstyle {led_color fill} def}
ifelse
(led) bbpict
/n n 2 idiv store
} papply
[-1 1 1 1 -1 3 1 3]
{
n 2 mod 0 eq
{/fillstyle {} def}
{/fillstyle {led_color fill} def}
ifelse
{90} (led) bbpict
/n n 2 idiv store
} papply
grestore
drestore1
end
} def
/digit_dim {
-1.25 -.25 jtoppoint
1.25 4.25 jtoppoint
} def
/digit_dic 2 dict def
digit_dic /bb {0 0} put
/digit {
[125 80 79 87 114 55 59 84 127 119 0]
exch get
digital
} def
|