From 6bf0a5cb5034a7e684dcc3500e841785237ce2dd Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 19:32:43 +0200
Subject: Adding upstream version 1:115.7.0.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 layout/reftests/fonts/generate-bitpattern-font.pl | 35 +++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 layout/reftests/fonts/generate-bitpattern-font.pl

(limited to 'layout/reftests/fonts/generate-bitpattern-font.pl')

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
-- 
cgit v1.2.3