fix wrong u? and y? glyphs

[terpinus.git] / hex2bin.pl

#!/usr/bin/perl

while (<>) {
        if (m/^([0-9A-F]+)$/) {
                $full = $&;
                $t = $1;
                $t =~ s/0/        /g;
                $t =~ s/1/      ##/g;
                $t =~ s/2/    ##  /g;
                $t =~ s/3/    ####/g;
                $t =~ s/4/  ##    /g;
                $t =~ s/5/  ##  ##/g;
                $t =~ s/6/  ####  /g;
                $t =~ s/7/  ######/g;
                $t =~ s/8/##      /g;
                $t =~ s/9/##    ##/g;
                $t =~ s/A/##  ##  /g;
                $t =~ s/B/##  ####/g;
                $t =~ s/C/####    /g;
                $t =~ s/D/####  ##/g;
                $t =~ s/E/######  /g;
                $t =~ s/F/########/g;
                print "$full\t$t\n";
        }
        else {
                print $_;
        }
}