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 000000000..d47ff4541
--- /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