demos/lcd.factor

   1 USING: sequences kernel math io ;
   2
   3 : lcd-digit ( digit row -- str )
   4     {
   5         "  _       _  _       _   _   _   _   _  "
   6         " | |  |   _| _| |_| |_  |_    | |_| |_| "
   7         " |_|  |  |_  _|   |  _| |_|   | |_|   | "
   8     } nth >r 4 * dup 4 + r> subseq ;
   9
  10 : lcd-row ( num row -- )
  11     swap [ CHAR: 0 - swap lcd-digit write ] each-with ;
  12
  13 : lcd ( digit-str -- )
  14     3 [ 2dup lcd-row terpri ] repeat drop ;
  15
  16 PROVIDE: demos/lcd ;
  17
  18 MAIN: demos/lcd "31337" lcd ;