mirror of
https://gitlab.winehq.org/wine/wine-gecko.git
synced 2024-09-13 09:24:08 -07:00
36 lines
752 B
Perl
36 lines
752 B
Perl
#!/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
|