lcd-digit ( digit row -- str )


Vocabulary
lcd

Inputs
digitan object
rowan object


Outputs
stran object


Definition
USING: grouping kernel math sequences ;

IN: lcd

: lcd-digit ( digit row -- str )
[ dup 58 = [ drop 10 ] [ 48 - ] if ] dip {
" _ _ _ _ _ _ _ _ "
" | | | _| _| |_| |_ |_ | |_| |_| * "
" |_| | |_ _| | _| |_| | |_| | * "
" "
} nth 4 <groups> nth ;