ldigit=:_4 |:\|: ":;._2 (0 : 0)
- - - - - - -
| | | | | | | | | | | | | |
- - - - - - -
| | | | | | | | | | | | |
- - - - - - -
)
lcd=: 4 : 0
w=.1 1,x,1
h=.1,,~1,~<:x
,./ w#"1 h#"2 {&ldigit "."0 ": y
)
or replace ldigit with ldgidtNew below, it looks better.
ldigitNew=:_4 |:\|: ":;._2 (0 : 0)
_ _ _ _ _ _ _ _
| | | | | | | | | | | | | | |
| | | _| _| |_| |_ |_ | | |_| |_|
| | | | | | | | | | | | |
|_| | |_ _| _| _| |_| | |_| _|
)
--
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
