2007-09-20 18:09:08 -04:00
|
|
|
USING: sequences kernel math io ;
|
|
|
|
|
IN: lcd
|
|
|
|
|
|
|
|
|
|
: lcd-digit ( digit row -- str )
|
|
|
|
|
{
|
|
|
|
|
" _ _ _ _ _ _ _ _ "
|
|
|
|
|
" | | | _| _| |_| |_ |_ | |_| |_| "
|
|
|
|
|
" |_| | |_ _| | _| |_| | |_| | "
|
|
|
|
|
} nth >r 4 * dup 4 + r> subseq ;
|
|
|
|
|
|
|
|
|
|
: lcd-row ( num row -- )
|
2008-01-09 17:36:30 -05:00
|
|
|
swap [ CHAR: 0 - swap lcd-digit write ] with each ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
: lcd ( digit-str -- )
|
2008-01-09 17:36:30 -05:00
|
|
|
3 [ lcd-row nl ] with each ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
: lcd-demo ( -- ) "31337" lcd ;
|
|
|
|
|
|
|
|
|
|
MAIN: lcd-demo
|
