http://valvallow.blogspot.jp/2013/03/blog-post.html に FF3 の導師を追加

batz.dat

                   
                   
   0 00 0000000    
  01011011111110   
 010111111111000   
 0111111111111110  
  011111111111100  
 01113113111111110 
 0101310011111110  
  00100031133100   
    030333133110   
  0003033330000    
 0110337330000     
 01103333011000    
  001033007703330  
 0101000110033330  
033011011330113330 
033301111333111330 
0333 077033311130  
 000 01110000000   
      01033010     
      0033300      
     011111110     
      01111110     
      711110       
     07771170      
      000000       

doushi.dat

                   
             00    
 00000     00770   
0777770000077070   
0711117777700170   
 071777777011170   
  07700007771170   
 070011110777170   
0700111111077770   
07010311111077770  
07001003003107770  
 0700303300307770  
  07030330330770   
  0703333370770    
  0070333317700    
 077010011177770   
07117107101177770  
000117710330117770 
033011010330110770 
033071071011100070 
001017711100000070 
070011011111100070 
070000003330000070 
 0700011111110070  
  07770111110770   
   000111111000    
      000000       
                   

galuf.dat

                   
                   
  0000 00000    0 
 02222022222000020
 022222222222222220
 02022222222222220 
  0226662266222020 
  0206662266262220 
   00333022222220  
     000322222220  
    032032332220   
  000303333322000  
 06663333332066660 
  0603333000222020 
  022003060003330  
033320002033023330 
033302022033322330 
0330 022003332230  
 00 060066000000   
     06600660      
     0603300       
      03333000     
     0222222220    
      06666660     
      0266660      
     02226620      
      000000       

kuro-madoushi.dat

                   
               00  
             00330 
            033320 
          0033320  
        003333220  
 000000033332220   
0333333332222220   
 02222333322220    
  0002222333200    
    00002222220    
    030000022220   
   00300300002220  
  04000030000400   
 040000000000040   
 044400044444440   
 00444444400040    
0330444440044440   
03304444033044440  
 004404403304440   
 040440040044440   
 040444440044440   
 044044440044440   
 044404444044440   
 0444400444044040  
044444444444004440 
 0000000000000000  
                   

mosquito.dat

                          
           00000          
       000002020          
       033202200          
       0000000000000      
           00200772000    
         0007332000330    
0000000000303333222220    
0732333330303333333330    
0000000000202220202220    
    00322020222323222000  
    030000002222222220300 
    000003000000000000020 
    007332323222222222300 
    032200000000000002220 
    020002232232232000000 
    0000000000000000200   
     0202000000000000000  
     0300002000200020030  
     0020022002200220020  
      003000000000000200  
       0003233233233200   
         0000000000000    
                          

shiro-madoushi.dat

                   
           0000    
        00077770   
      00777777770  
    0077777777770  
   07777777770770  
  077000077777070  
 070011110777770   
0700111111077770   
07010311111077770  
07001003003107770  
 0700303300307770  
  07030330330770   
  0703333370770    
 00070333307700    
0177070000777770   
01110777770000770  
01177007701777070  
01777777701117770  
01117777701177770  
01177777701777770  
01770777701117770  
01110777701177770  
 0170771770171770  
 0101711711011710  
  0111111111011110 
   000000000 0000  
                   

termdraw.scm

#!/usr/local/bin/gosh

(use gauche.parseopt)

(define-constant ANSI_ESCAPE_BG_COLOR_BASE 40)

(define (ansi-escape str color-num)
  (apply string-append
         (map (apply$ string)
              (list `(#\escape #\[ ,@(string->list (x->string color-num)) #\m)
                    (string->list str)
                    `(#\escape #\[ ,@'(#\0) #\m)))))

(define (draw ls)
  (for-each
   (^l (for-each
        (^x (if-let1 n (string->number x)
                     (display (ansi-escape " " (+ n ANSI_ESCAPE_BG_COLOR_BASE)))
                     (display " ")))
        l)
       (print))
   ls))

(define (usage cmd)
  (print "usage: " cmd " file1.dat file2.dat ... filen.dat")
  (print "exapmle: % echo \'0123 4567\' | " cmd)
  (print (draw '(("0" "1" "2" "3" " " "4" "5" "6" "7"))))
  (exit))

(define (input->list)
  (define (line->list val)
    (map string (string->list val)))
  (let rec ((acc '()))
    (let1 val (read-line)
      (if (eof-object? val)
          (reverse acc)
          (rec (cons (line->list val) acc))))))

(define (list->double ls)
  (fold-right (^ (x acc)
                 (cons x (cons x acc)))
              '()
              ls))

(define (main args)
  (let-args (cdr args)
      ((help "h|help" => (cut usage (car args)))
       (else (opt . _)
             (print "Unknown option : " opt)
             (usage (car args)))
       . rest)
    (let1 data (if (null? rest)
                   (input->list)
                   (apply map (^ rows (apply append rows))
                          (map (cut with-input-from-file <> input->list)
                               rest)))
      (print (draw (map list->double data))))))

test.md

Gauche 持ってないけど試しに実行してみたい時は:

ruby -ne 'print $_.gsub(/ /){"  "}.gsub(/\d/){"\e[4#{$&}m  \e[0m"}' dousi.dat
# もしくは
ruby -ne 'print $_.gsub(/ /){"0"}.gsub(/\d/){"\e[4#{$&}m  \e[0m"}' dousi.dat

perl などでも似たようなワンライナでいけるはず。