blob: d47ff4541f29f5875c991f1079d32ebeee27612a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/perl -w
# Generates an SVG Font where each glyph (identified on stdin by four
# hex characters) consists of a bit pattern representing the Unicode
# code point it is the glyph for.
use strict;
print <<EOF;
<svg xmlns="http://www.w3.org/2000/svg">
<font id="BitPattern" horiz-adv-x="1000">
<font-face font-family="BitPattern" units-per-em="1000" ascent="800"/>
EOF
while (<>) {
chomp;
next if /^\s*$/;
die unless /^[0-9A-Fa-f]{4}$/;
my $c = hex;
my $s = " <glyph unicode='&#x$_;' d='";
for (my $i = 0; $i < 32; $i++) {
if ($c & (1 << $i)) {
my $x = 100 * (7 - ($i % 8));
my $y = 100 * int($i / 8);
$s .= "M$x,$y v80h80v-80z ";
}
}
$s .= "'/>\n";
print $s;
}
print <<EOF;
</font>
</svg>
EOF
|
