summaryrefslogtreecommitdiffstats
path: root/layout/reftests/fonts/generate-bitpattern-font.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--layout/reftests/fonts/generate-bitpattern-font.pl35
1 files changed, 35 insertions, 0 deletions
diff --git a/layout/reftests/fonts/generate-bitpattern-font.pl b/layout/reftests/fonts/generate-bitpattern-font.pl
new file mode 100644
index 0000000000..d47ff4541f
--- /dev/null
+++ b/layout/reftests/fonts/generate-bitpattern-font.pl
@@ -0,0 +1,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