michael@0: #!/usr/bin/perl -w
michael@0: 
michael@0: # Generates an SVG Font where each glyph (identified on stdin by four
michael@0: # hex characters) consists of a bit pattern representing the Unicode
michael@0: # code point it is the glyph for.
michael@0: 
michael@0: use strict;
michael@0: 
michael@0: print <<EOF;
michael@0: <svg xmlns="http://www.w3.org/2000/svg">
michael@0: <font id="BitPattern" horiz-adv-x="1000">
michael@0:   <font-face font-family="BitPattern" units-per-em="1000" ascent="800"/>
michael@0: EOF
michael@0: 
michael@0: while (<>) {
michael@0:   chomp;
michael@0:   next if /^\s*$/;
michael@0:   die unless /^[0-9A-Fa-f]{4}$/;
michael@0:   my $c = hex;
michael@0:   my $s = "  <glyph unicode='&#x$_;' d='";
michael@0:   for (my $i = 0; $i < 32; $i++) {
michael@0:     if ($c & (1 << $i)) {
michael@0:       my $x = 100 * (7 - ($i % 8));
michael@0:       my $y = 100 * int($i / 8);
michael@0:       $s .= "M$x,$y v80h80v-80z ";
michael@0:     }
michael@0:   }
michael@0:   $s .= "'/>\n";
michael@0:   print $s;
michael@0: }
michael@0: 
michael@0: print <<EOF;
michael@0: </font>
michael@0: </svg>
michael@0: EOF