Work in progress: new PostScript/PDF generator back end

1 files changed, 26 insertions, 0 deletions

diff --git a/doc/pswidth.ph b/doc/pswidth.ph
new file mode 100644
index 00000000..b3fd736d
--- /dev/null
+++ b/doc/pswidth.ph
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+#
+# Get the width of a PostScript string in font units
+# (1000 font units == the font point height) given a set of
+# font metrics.
+#
+sub ps_width($$) {
+    my($str, $met) = @_;
+    my($w) = 0;
+    my($i,$c,$p);
+
+    $l = length($str);
+    undef $p;
+    for ( $i = 0 ; $i < $l ; $i++ ) {
+	$c = substr($str,$i,1);
+	$w += $$met{widths}[ord($c)];
+	# The standard PostScript "show" operator doesn't do kerning.
+	# $w += $$met{kern}{$p.$c};
+	$p = $c;
+    }
+    
+    return $w;
+}
+
+# OK
+1;