Use a custom font encoding vector; generate copyright (inner cover) page

1 files changed, 4 insertions, 4 deletions

diff --git a/doc/pswidth.ph b/doc/pswidth.ph
index b3fd736..36fc07a 100644
--- a/doc/pswidth.ph
+++ b/doc/pswidth.ph
@@ -2,10 +2,10 @@
 #
 # Get the width of a PostScript string in font units
 # (1000 font units == the font point height) given a set of
-# font metrics.
+# font metrics and an encoding vector.
 #
-sub ps_width($$) {
-    my($str, $met) = @_;
+sub ps_width($$$) {
+    my($str, $met, $encoding) = @_;
     my($w) = 0;
     my($i,$c,$p);
 
@@ -13,7 +13,7 @@ sub ps_width($$) {
     undef $p;
     for ( $i = 0 ; $i < $l ; $i++ ) {
 	$c = substr($str,$i,1);
-	$w += $$met{widths}[ord($c)];
+	$w += $$met{widths}{$encoding->[ord($c)]};
 	# The standard PostScript "show" operator doesn't do kerning.
 	# $w += $$met{kern}{$p.$c};
 	$p = $c;