File Coverage

blib/lib/Pod/Pdf.pm

Criterion	Covered	Total	%
statement	15	893	1.6
branch	0	348	0.0
condition	0	60	0.0
subroutine	5	48	10.4
pod	0	41	0.0
total	20	1390	1.4

package Pod::Pdf;

# version 1.2 26 May 2000
# © Alan Fry

################################################################################
#  24-May-2000 -- v1.2  File input methods extended to STDIN and options (AJF) #
#  23-May-2000 -- v1.2  Variable initialisations into define_variables() (AJF) #
#  22-May-2000 -- v1.2  Opening statements put into pod2pdf()      (Axel Rose) #
#  18-Apr-2000 -- v1.1  File::Basename routines added and ToC revised          #
#  09-Apr-2000 -- v1.1  Text formatting routines revised                       #
#  09-Apr-2000 -- v1.1  URI Link implemented                                   #
################################################################################

use File::Basename;
use Getopt::Long;
use Exporter;
use strict;
use vars qw(@ISA @EXPORT $VERSION);
@ISA = qw( Exporter );
@EXPORT = qw( pod2pdf );
$VERSION = "1.2";

my $in_file  = '';                       # Full path 'pod' file name
my $title    = '';                       # 'pod' leaf file-name
my $dir = '';                            # path to '$title'
my $out_file = '';                       # Full path 'pdf' output file name
my $buf = '';                            # Occasional buffer string

my %HTML;                                # HTML escapes
my @wx;                                  # Font metrics arrays

my $x_size = 595;                        # default page width (pixels)
my $y_size = 842;                        # default page height (pixels)
my $verbose = 0;                         # error message flag

my %fontstyle;                           # definitions for 'link' and 'files'
my %fontdef;                             # definition of hash key names
my %setStyles;                           # definition of POD element styles
my %colorstyle;                          # definition of POD element colours
my @Roman;                               # Arabic to Roman numeral conversion

my $f_pos = 0;                           # position in PDF file
my $obj   = 0;                           # PDF object number
my @o_loc = ();                          # PDF object's file position
my $resources = '';                      # Resources object number
my %o_rec = ();                          # Record of named objects
my @Kids = ();                           # Page object numbers of document
my @tocKids = ();                        # Page object numbers of ToC
my @coverKids = ();                      # Page object numbers for cover page
my @Fonts = ();                          # List of fonts used on a page
my $stream_start = 0;                    # Stream start position in file
my $stream_end = 0;                      # Stream_end position in file
my $stream_length = 0;                   # Stream length
my %fonts_used = ();                     # List of fonts actually used on a page
my @levels = ();                         # List of outline levels
my @ol = ();                             # List of outline parameters
my $no = 0;                              # Index of outline entries
my $i = 0;                               # Occasional index
my $h2 = 0;                              # Flag set after head2 level

my $start_time = 0;                      # Time at start of process
my $finish_time = 0;                     # Time at end of process
my $more = 0;                            # Flag indicating more to come from pod file
my $in_text = 0;                         # Flag set while processing a text block
my $in_pod = 0;                          # Flag set when in a POD section
my $pod_found = 0;                       # Flag set if POD text found
my $in_verbatim = 0;                     # Flag set while processing a verbatim block
my $in_tab = 0;                          # Flag set after a tab
my $in_heading = 0;                      # Heading flag
my $was_item = 0;                        # Last heading was an '=item'
my $bl = 0;                              # blank line flag
my $zlf = 1;                             # zero line feed flag
my $for = 0;                             # '=for' block flag
my $special = 0;                         # '=begin' block flag
my $j =  0;                              # scratch-pad index
my $p =  0;                              # scratch-pad indeces
my @jt = ();                             # scratch-pad pointers
my @pt = ();                             # scratch-pad pointers
my @scratch_pad = ();                    # scratch pad
my @sc = ();			                 # colour scratch-pad
my $sp = 1;                              # Starting page number
my $lp = 0;                              # Last page number of document section
my $page = 1;                            # Current page number (start at 1)
my $start_page = 1;                      # start page number
my $ypos = 0;                            # Current height on page (pixels)
my $xpos = 0;                            # Current line position
my $yrem = 0;                            # Height currently remaining on page
my $inside_margin = 72;                  # Inside page margin
my $outside_margin = 72;                 # Outside page margin
my $left_margin = 72;                    # Left margin
my $right_margin = 72;                   # Right margin
my $end = 0;                             # Position of end of line
my $top_margin = 72;                     # top page margin for body text
my $bottom_margin = 62;                  # bottom page margin for body text
my $top_bar = 50;                        # distance from top of page to header bar
my $bottom_bar = 50;                     # distance from bottom of page to footer bar
my $left_indent = 30;                    # Amount by which to indent everything but H1 and H2
my $leading = 1.2;                       # multiply by current fontsize to get line spacing
my $paragraph_space = 0.5;               # multiply by line spacing to get space between paragaphs
my $tab_per_char = 6;                    # points per character multiplier for tab stops
my $heading_lift = 0.2;                  # multiply by line spacing to get extra space under heading
my $index_indent = 20;                   # Amount to indent for every new level of ToC
my $LF = 0;                              # Line feed == $leading * $fs;
my $uH = 0;                              # Heading lift == $LF * $heading_lift;
my $WS = 0;                              # White Space == $LF * $paragraph_space;
my $cLM = 0;                             # Current left margin on page
my $set = 0;                             # Tab stop number
my @ov = ();                             # Tab position array
my $indent = 0,                          # Current tab indent (in points)
my $lineleng = 0;                        # Current linelength in points
my $line = '';                           # String
my $k = 0;                               # Line length error per space
my $k_max = 5;                           # if $k > $k_max the line is not justified
my $spaces = 0;                          # Count of spaces in line
my $fs = 0;                              # Font size
my @lk = ();                             # List of links
my $in_link = 0;                         # Processing link (flag)
my $link_string = '';                    # Link string
my $wordleng = 0;                        # Word length (used in sub 'just')
my $tab_str = 0;                         # Flag for string containing a tab character
my @annot = ();                          # List of 'link' annotations


my $current_color = 0;
my $date = '';                           # Footer date string
my $h_str = 'pod2pdf';                   # Inside string for header
my $section = '';                        # Section type: 'doc', 'cat', 'ind', etc.

sub pod2pdf {
	local @ARGV = @_;
	unless ( @ARGV && $ARGV[0] ) { die "no input, no output!\n" }

	parse_command_line();

	unless ($ARGV[0]) {
	    $in_file = '-' unless $in_file
	}
	else {
	    $in_file = $ARGV[0]
	}

	$title = basename($in_file);
	$dir   = dirname($in_file);

	$title = pdfEscape($title);
	$out_file = $in_file.'.pdf';
	$date = page_date();

    define_variables();

	#$start_time = (times)[0];  # fails on Windows perl 5.003
	$start_time = time;

	pdfOpen($out_file);
	pdfOutline(0, 'Table of Contents', undef, $y_size);

	$section = 'doc';
	my $in_pod = 0;
	my $pod_found = 0;
	readFile($in_file);
	unless ($page % 2) {
	    pageHeader($h_str, $title);
	    pageFooter();
	    $lp++;
	}

	$section = 'toc';
	buildTOC();

	$section = 'cov';
	coverPage();

	outlineTree();
	pdfTrailer();

	#my $finish = (times)[0];
	my $finish = time;
	printf( STDERR "PDF generation time = %4.2f sec)\n", $finish - $start_time ) if $verbose;
	exit 0;

}

sub parse_command_line {
	my( $opt_paper, $opt_help, $result);
	my $usage = qq{
	$0
	[ --help --verbose <1|2 --paper  --podfile  ]

	--help
	    displays this explanation of correct usage

	--vebose <1|2>
	    regulates the volume of progress comments: argument must be 1 or 2

	--podfile
	    supplies the input file to process as an explicit parameter. The
	    input file may also be supplied from STDIN or from the command
	    line as the array element $ARGV[0].

	Further information can be found in the POD section of Pod.pm. Enter:
	    perl -e "use Pod::Pdf; pod2pdf('/Pod/Pdf.pm')"
	to get the POD in PDF format :)

	};

	$result = GetOptions(
		'paper:s'	=> \$opt_paper,
		'podfile:s' => \$in_file,
		'verbose=i' => \$verbose,
		'help'      => sub { print STDERR $usage; exit(0) }
		);

	if ((defined $opt_paper) =~ /usletter/i) {$x_size = 612; $y_size = 792}
	unless ($result or $opt_help) { print STDERR $usage; exit(0) }
}

sub define_variables {

	%setStyles = (
	                  'H1'           => [ 12, 'Helvetica', 'Bold'     ],
	                  'H2'           => [ 10, 'Helvetica', 'Bold'     ],
	                  'H3'           => [ 10, 'Helvetica', 'Regular'  ],
	                  'Body'         => [ 10, 'Times',     'Regular'  ],
	                  'Verbatim'     => [ 10, 'Courier',   'Regular'  ],
	                  'header'       => [ 10, 'Helvetica', 'Bold'     ],
	                  'footer'       => [ 10, 'Helvetica', 'Bold'     ],
	                  'ToC'          => [ 24, 'Helvetica', 'Regular'  ],
	                  'coverTitle'   => [ 48, 'Times',     'Italic'   ],
	              );

	%fontstyle = (
		              'link' => 2,
		              'file' => 3,
		            );

	%colorstyle = (
		              'link'    => '0 0 0.8 rg',
		              'text'    => '0 g',
		              'special' => '0.8 0 0 rg'
		             );

	%fontdef = (
	                '/F00'  =>  'Times-Roman',
	                '/F01'  =>  'Times-Bold',
	                '/F02'  =>  'Times-Italic',
	                '/F03'  =>  'Times-BoldItalic',
	                '/F10'  =>  'Courier',
	                '/F11'  =>  'Courier-Bold',
	                '/F12'  =>  'Courier-Oblique',
	                '/F13'  =>  'Courier-BoldOblique',
	                '/F20'  =>  'Helvetica',
	                '/F21'  =>  'Helvetica-Bold',
	                '/F22'  =>  'Helvetica-Oblique',
	                '/F23'  =>  'Helvetica-BoldOblique'
	             );

	@Roman = qw(0 i ii iii iv v vi vii viii ix x
	               xi xii xiii xiv xv xvi xvii xviii xix xx
	               xxi xxii xxiii xxiv xxv xxvi xxvii xxviii xxix xxx
	               xxxi xxxii xxxiii xxxiv xxxv xxxvi xxxvii xxxviii xxxix xl);

	&ESC;                           # initialise escapes
	afm();                          # Initialise fonts
}

sub readFile {

    if( !open(IN, "<$in_file") ) {
        print STDERR "WARNING: Could not read file $in_file.\n";
        unlink $out_file;
        exit 0;
    }
    while() {
        if (/^=include\s*(.*)/) {
            $in_pod = 0;
            if(!open(INCLUDE, "$dir:$1")) {
                print STDERR "WARNING: Could not read file $in_file.\n";
                unlink $out_file;
                exit 0
            }
            while() {
                parsePod() if defined $_;
            }
        }
        parsePod() if defined $_;
    }

    close IN;
    if( !$pod_found ) {
        print STDERR "SKIPPING FILE: No pod text found in $in_file\n" if $verbose;
        unlink $out_file;
        return 0;
    }

    $more = 0;
    &just("\n");
    $lp = $page;
    &pageFooter;
}

my $m;
sub parsePod {
    my $store = '';

    if ( /^=(back|over|head|item|pod)/ ) {
        $in_pod = 1;
        if( !$pod_found ) {
            $pod_found = 1;
            _initPod($in_file);
        }
    }

    return if !$pod_found;
    if ( /^=(cut)/ ) {$in_pod = 0 };
    if ( !$in_pod ) { return }                                    # Skip non-pod text.
    if ( /^=(pod)/ ) { return };
    if ( /^=(begin)/ ) { $special = 1; return }
    if ( /^=(for)/ ) { $special = 1; $for = 2; return }
    if ( /^=end/ ) { $special = 0; return }
    if ( /^\s*$/ ) { $more = 0 } else { $more = 1 }
    if ( /^=over.*/ ) { &IND($_); return }                       # indent
    if ( /^=back/ ) { &BAK; return }                             # cancel indent
    if ( /^\s*\n/ ) { &BL; return }                              # blank line
    if ( /(^\s+.*)$/ and !$in_text) { &VRB($1); return }         # verbatim txt
    if ( /S
   #$_ =~ s/"(.*?)"/\252$1\272/g;                                # convert double quotes
   #s/([&\$]\S*)/C<$1>/g; 	                                     # convert $XYZ or &XYZ to code
   #s/(\S*\(\))/C<$1>/g;                                         # convert XYZ() to code
    s/\\([2-3][0-7][0-7])/chr(oct($1))/ge;                       #convert octal to character
    s/\'([^\s>\.\)])/\140$1/g;                                   #convert single quotes
    s/Z<.*?>//;                                                  #zero-width character
    s/--/\217/g;                                                 #convert -- to emdash
    s/B
    s/I
    s/C
    s/F
    s/L
    if ($_ =~ /(L<[^>]*)\n/) { $store .= $` . $1 . " "; return }
    $_ = $store.$_; $store = "";                                 #mend broken links (if any)
   #if (/L
    s/E<(.*?)>/$HTML{$1}/g;                                      #escape HTML entities
    s/>/\001/g;                                                  #cancel last encoding
    s/(<.*?)\001/$1>/g;                                          #match opening < (if any)
    if ( /^=head1\s+(.*)$/) { &H1($1); return  }                 #heading 1
    if ( /^=head2\s+(.*)$/) { &H2($1); return }                  #heading 2
    if ( /^=item\s+(.*)$/) { &H3($1); return }                   #item heading
    if ( /(^\s+.*)$/ ) { &TAB($1); return }                      #tabbed text txt
    #$in_text = 0;
    chomp $_; &TXT($_);                                          #anything else must be text
}

sub _initPod {
    my $ifname = shift;
    print STDERR "Processing pod file $ifname\n" if $verbose;

    $sp = $page;

    $in_verbatim = 0;                    # verbatim block flag (set to 1 in verbatim block)
    $in_text = 0;                        # text block flag (set to 1 in text block)
    $in_tab = 0;                         # set after an indented line in a text-block
    $bl = 0;                             # blank line flag
    $zlf = 1;                            # zero line feed flag
    $more = 0;                           # more to come (from file)
    $j = $p = 0;                         # scratch-pad indeces
    $jt[$j] = $pt[$p] = [0, 0];          # scratch-pad pointers
    $sc[$p] = 'text';			         # scratch-pad color
    setColor();
    $ypos = $y_size - $top_margin;       # initialise Y position
    &Init;                               # initialise X margin position and tab settings
    $yrem = $ypos;

    pageHeader($h_str, $title);
}

sub H1 {
    my ($str) = @_;
    $ypos -= $WS;
    if( $ypos <= ( $bottom_margin + 26 ) ) {
        pageFooter();
        pageHeader($h_str, $title);
        $zlf = 1;
        $bl = 0;
    }
    setFont('H1');
    $j = $p = 0; $jt[0] = $pt[0] = [@scratch_pad];
    $sc[$p] = 'text';
    setColor();
    &Init;
    $xpos = $left_margin;
    pdfOutline(1, $str, $page, $ypos+$LF);
    &just($str);
    $in_verbatim = $in_text = $in_tab = $bl = 0;
    $zlf = 1;
    $in_heading = 1;
}

sub H2 {
    my ($str) = @_;
    $ypos -= $WS;
    $bl = $in_verbatim = $in_text = $in_tab = 0; $zlf = 1;
    if ($ypos <= ( $bottom_margin + 24 )) {
        pageFooter();
        pageHeader($h_str, $title);
        $zlf = 1;
        $bl = 0;
    }
    setFont('H2');
    $j = $p = 0; $jt[0] = $pt[0] = [@scratch_pad];
    $sc[$p] = 'text';
    setColor();
    &Init;
    $xpos = $left_margin;
    pdfOutline(2, $str, $page, $ypos+$LF);
    $in_heading = 1;
    &just($str);
}

sub H3 {
    $ypos -= $uH;
    my ($str) = @_;
    if ($in_verbatim or $in_text ) { $ypos -= $WS; }

    $str =~ s/^\*\s*(.*)/\007$1/;	# bullet
    if ($ypos <= $bottom_margin ) {
        pageFooter();
        pageHeader($h_str, $title);
        $zlf = 1;
        $bl = 0;
    }
    setFont('H3');
    $j = $p = 0; $jt[0] = $pt[0] = [@scratch_pad];
    $sc[$p] = 'text';
    setColor();
    $xpos = $cLM;
    pdfOutline(3, $str, $page, $ypos+$LF);
    $in_verbatim = $in_text = $in_tab = $bl = 0;
    $in_heading = 1;
    $was_item = 1;
    just($str);
    ZLF($str);
}

sub IND {
    my $tab;
    if( $_[0] =~ /^=over\s*(\d+)/ ) {
        $tab = $1;
    } else {
        $tab = 4;
    }
    if ($set) { $cLM += $tab_per_char * $ov[$set] }
    ++$set;                               # tab stop number (1, 2, 3, ...)
    $ov[$set] = $tab;                     # tab indent for tab stop $set (in characters)
    $indent = $tab_per_char * $ov[$set];  # current tab indent (in points)
}

sub BAK {
    if (--$set < 0) { $set = 0 }
if (!defined $ov[$set]) { $ov[$set] = 0 }
    $cLM -= $tab_per_char * $ov[$set];
    if ($cLM < $left_margin + $left_indent ) { $cLM = $left_margin + $left_indent }
    $indent = 6 * $ov[$set];
}

sub Init {
    $set = 0;                             # tab position number
    @ov = ();                             # tab position array
    $cLM = $left_margin + $left_indent;   # current left margin (in points)
    $indent = 0;                          # current indent (in points)
}

sub VRB {
    my ($str) = @_;
    just ("\n");
    setFont('Verbatim') unless $in_verbatim;
    if ($ypos <= ($bottom_margin + $LF) and $more) {
        pageFooter();
        pageHeader($h_str, $title);
        $bl = 0;
        prt("/F$pt[$p][0]$pt[$p][1] $fs Tf\n");
        $fonts_used{"/F$pt[$p][0]$pt[$p][1]"} = ' ';
        @scratch_pad = ($pt[$p][0], $pt[$p][1]);
    }
    $j = $p = 0; $jt[0] = $pt[0] = [@scratch_pad];
    $sc[$p] = 'text';
    setColor();
    $xpos = $cLM + $indent;
    if ($in_verbatim) { $ypos -= $LF }
    elsif (!$in_verbatim and $bl) { $ypos -= $WS }
    $in_verbatim = 1;
    $in_text = $in_tab = $bl = 0;
    $zlf = 1;
    just($str);
}

sub TAB {
    my ($str) = @_;
    &just ("\n");
    setFont('Body') unless $in_tab;
    if ($ypos <= ($bottom_margin + $LF) and $more) {
        pageFooter();
        pageHeader($h_str, $title);
        $bl = 0;
        prt("/F$pt[$p][0]$pt[$p][1] $fs Tf\n");
        $fonts_used{"/F$pt[$p][0]$pt[$p][1]"} = ' ';
        @scratch_pad = ($pt[$p][0], $pt[$p][1]);
    }
    $j = $p = 0; $jt[0] = $pt[0] = [@scratch_pad];
    $sc[$p] = 'text';
    setColor();
    $xpos = $cLM + $indent;
    if ($in_heading) { $ypos -= $uH; $in_heading = 0 }
    if ($bl) { $ypos -= $WS }
    else { $ypos -= $LF }
    $bl = 0;
    $zlf = 1;
    $in_tab = 1;
    &just($str);
    &just("\n");
}

sub TXT {
    my ($txt) = @_;

    if ($in_verbatim) { $ypos -= $LF; $in_verbatim = 0; }
    if ($in_tab) { $in_text = $in_tab = 0 }
    if ($in_text)  { just($txt); return }
    if ($in_heading) { just($txt); return }

    $bl = $in_verbatim = 0;

    if ($ypos <= ( $bottom_margin + $LF ) and $more and $zlf ) {
        pageFooter();
        pageHeader($h_str, $title);
        $bl = 0;
    }
    setFont('Body');
    $j = $p = 0; $jt[0] = $pt[0] = [@scratch_pad];
    $sc[$p] = $special ? 'special' : 'text';
    setColor();
	$xpos = $cLM + $indent;
    $in_text = 1;
    &just($txt);
}

sub BL {
    return if $bl;
    just("\n");
    $ypos -= $LF;
    if ($for) { # '=for' block
        $for--;
        $for = $for < 0 ? 0 : $for;
        $special = $for ? $special : 0;
    }
    if( $in_text ) {
        $in_text = 0;
        $in_tab = 0;
        return
    }
    elsif( $in_verbatim ) {
    }
    elsif ( $in_heading ) {
	    $in_heading = 0;
	    $ypos += $LF*(1-$zlf);
	    $zlf = 1;
	}
	$bl = 1;
}

sub ZLF {
	my ($str) = @_;
	if (($lineleng <= $indent - 2) and ($str =~ /\007|\d+/)) {
    	$zlf = 0
	}
    else { $zlf = 1 }
}

sub HSP {
    my $str = shift;
    my $new;
    $str =~ s/S
    foreach (split(/S
        if (/\001(.*)>(.*)/) {
            my $a = $1;
            my $b = $2;
            $a =~ s/ /\240/g;
            $new .= $a.$b;
            next;
        }
        $new .= $_;
    }
    $new;
}

sub just {
    my $str = shift;
    $str .= ' ';
    my $used = 0;
    $end = ($x_size - $right_margin);
    if ($str =~ /\n/) {
	    &output($line, 0) if $line;
	    linkBB(2, 0) if ($line and @lk);
	    $line = "";
	    $k = 0;
	    $lineleng = 0;
	    $spaces = 0;
	    return;
    }
    else {
        my $word;
        foreach $word ( split( /([ \t])/, $str ) ) {
            $tab_str= 0;
            $wordleng = 0;
            foreach ( split( //, $word ) ) {
                if( / / ) { $tab_str = 0 }
                if( /[\001-\006]/ ) { &REM($_); next; }
                if( /\t/ ) {
                    $tab_str = 1;
		            &output($line, 0) if $line;
		            linkBB(2, 0) if ($line and @lk);
		            $line = "";
		            $k = 0;
		            $used = (int($lineleng/48) + 1) * 48;
		            $xpos += $used;
		            $spaces = 0;
		            $lineleng = 0;
		            next;
                }
		        if( $in_link ) { $link_string .= $_ }
				$wordleng += $wx[ $jt[$j][0] ][ $jt[$j][1] ][ord($_)]*$fs;
            }
            if ($lineleng + $wordleng <= ($end - $xpos) or $in_verbatim or $in_tab) {
                $lineleng += $wordleng;
                $wordleng = 0;
                $line .= $word unless $word eq "\t";
                $spaces++ if $word eq " ";
            }
            else {
                $line =~ s/(.*\S)(\s*)$/$1/;
                $lineleng -= 2.5 * length($2);
                $spaces -= length $2;
                if ($spaces < 1) { $spaces = 1 }
                $k = ($end - $xpos - $lineleng)/$spaces;
                &output($line, $k);
                linkBB(2, $k) if @lk;
                $ypos -= $LF;
                if ($ypos <= $bottom_margin) {
                    pageFooter();
                    pageHeader($h_str, $title);
                    $ypos -= 12;
                    $used = 0;
                    prt("/F$pt[$p][0]$pt[$p][1] $fs Tf\n");
                    $fonts_used{"/F$pt[$p][0]$pt[$p][1]"} = ' ';
                    @scratch_pad = ($pt[$p][0], $pt[$p][1]);
                }
                if ( $word eq " " ) { $line = ""; $lineleng = 0 }
                else { $line = $word; $lineleng = $wordleng }
                $wordleng = 0;
                $spaces = 0;
                $used = 0;
                if ($xpos != $cLM + $indent and $tab_str) {
                    $xpos = $cLM + $indent + 48;
                }
                else {
                    if ($in_heading) { $xpos = $cLM }
                    else { $xpos = $cLM + $indent }
                }
            }
        }
    }
}


sub REM {
    my $rem = shift;
    if( $rem =~ /\001/ ) {
        if( $in_link ) { &linkBB(0, 0) }
        $j--;
        if ($j < 0) { $j = 0 }
    }
    else {
	    $jt[$j+1] = [$jt[$j][0], $jt[$j][1]]; $j++;
	    if ($rem =~ /\002/) { $jt[$j][1] = 1; }
	    if ($rem =~ /\003/) { $jt[$j][1] = 2; }
	    if ($rem =~ /\004/) { $jt[$j][0] = 1 }
	    if ($rem =~ /\005/) { $jt[$j][1] = $fontstyle{file} }
	    if ($rem =~ /\006/) { $jt[$j][1] = $fontstyle{"link"}; linkBB(1, 6) } #Link
    }
}

sub linkBB {
    my $op = shift;
    my $param = shift;
    print STDERR "linkBB($op,$param)\n" if $verbose == 2;
    if( !$op ) {
        push(@lk, $link_string, $wordleng, $spaces);
        $in_link = 0;
        $link_string = '';
	    print STDERR "\@lk = @lk\n" if $verbose == 2;
    }
    elsif( $op == 1 ) {
        $in_link = 1;
        push(@lk, $param, ($lineleng + $xpos));
	    print STDERR "\@lk = @lk\n" if $verbose == 2;
    }
    elsif ($op == 2) { #return if !@lk;
	    print STDERR "Sifting \@lk = @lk\n" if $verbose == 2;
	    my($linktype, $ybase,$xll,$xur,$yll,$yur);
        my $xbase = 0;
        my $str = '';
        my $len = 0;
        my $sps = 0;
        while (@lk) {
            $linktype = shift(@lk); # either 5 or 6
            $xbase = shift(@lk); $xbase = 0 if !defined $xbase;
            $ybase = $ypos;
            $str = shift(@lk); $str = '' if !defined $str;
            $len = shift(@lk); $len = 0  if !defined $len;
            $sps = shift(@lk); $sps = 0  if !defined $sps;
            if (($xbase + $len) > $end ) {
                $xbase = $cLM + $indent;
                $xbase += 48 if $tab_str;
                $sps = 0;
                $ybase -= $LF;
            }
            $xll = sprintf "%0.1f", $xbase + $sps * $param - 1;
            $xur = sprintf "%0.1f", $xll + $len + 2;
            $yll = sprintf "%0.1f", $ybase - 0.25*$LF;
            $yur = sprintf "%0.1f", $ybase + 0.63*$LF;
			if ($str =~ /(http|ftp|mailto)\s*:/) {
            	push @annot, ["[$xll $yll $xur $yur]", $str];
			}
        }
    }
}

sub pdfEscape {
    my ($line) = @_;
    $line =~ s/[\000-\024]//g;
    $line =~ s/[\\\(\)\{\}]/\\$&/g;
    $line =~ s/[\200-\377]/sprintf("\\%03o",ord($&))/ge;
    $line;
}

sub output {
    my ($line, $k) = @_;
    $k = sprintf("%0.4f", $k);
    $k = 0 if $k >= $k_max;
    $line =~ s/[\020-\024]//g;
    $line =~ s/[\\\(\)\{\}]/\\$&/g;
    $line =~ s/[\200-\377]/sprintf("\\%03o",ord($&))/ge;
    prt(sprintf "1 0 0 1 %0.1f %0.1f Tm\n", $xpos, $ypos) if $line;
    foreach ( split(/([\001-\007])/,$line) ) {
        if( /[\001-\007]/ ) {
            if( /\007/ ) { BUL()
            }
            if( /\001/ ) { $p--; $p = 0 if( $p < 0 ) }
	        else {
		        $sc[$p+1] = $sc[$p];
                $pt[$p+1] = [$pt[$p][0], $pt[$p][1]]; $p++;
                if   ( /\002/ ) { $pt[$p][1] = 1 }                 # Bold
                elsif( /\003/ ) { $pt[$p][1] = 2 }                 # Italic
		        elsif( /\004/ ) { $pt[$p][0] = 1 }                 # Courier
		        elsif( /\005/ ) { $pt[$p][1] = $fontstyle{file} }
		        elsif( /\006/ ) {
		            $pt[$p][1] = $fontstyle{"link"};
		            $sc[$p] = 'link';
		        }
	        }
            $fonts_used{"/F$pt[$p][0]$pt[$p][1]"} = ' ';
            prt("/F$pt[$p][0]$pt[$p][1] $fs Tf\n");
	        setColor();
	        next;
	    }
        prt("$k Tw\n");
        prt("\($_\) Tj\n");
    }
}

sub BUL {
    my $x = $xpos + 8;
    my $y = $ypos + 1;
    prt("
        ET
        q
        $xpos $y 4 4 re
        f
        Q
        BT
        1 0 0 1 $x $ypos Tm
    ");
}

sub setFont {
    my($set) = shift;
    my ($font, $style) = ();

    $fs = $setStyles{$set}[0];

    if    ($setStyles{$set}[1] eq 'Times'      ) { $font = 0 }
    elsif ($setStyles{$set}[1] eq 'Courier'    ) { $font = 1 }
    elsif ($setStyles{$set}[1] eq 'Helvetica'  ) { $font = 2 }

    else { print STDERR "$setStyles{$set}[1] ($set,$fs) is an unrecognised font\n"; exit }

    if    ($setStyles{$set}[2] eq 'Regular'      ) { $style = 0 }
    elsif ($setStyles{$set}[2] eq 'Bold'         ) { $style = 1 }
    elsif ($setStyles{$set}[2] eq 'Oblique'      ) { $style = 2 }
    elsif ($setStyles{$set}[2] eq 'BoldOblique'  ) { $style = 3 }
    elsif ($setStyles{$set}[2] eq 'Italic'       ) { $style = 3 }
    elsif ($setStyles{$set}[2] eq 'ItalicOblique') { $style = 3 }

    else { print STDERR "setStyles{$set}[2] ($set,$fs) is an unrecognised style\n"; exit }

    $fonts_used{"/F$font$style"} = ' ';
    prt("/F$font$style $fs Tf\n");
    @scratch_pad = ($font, $style);
    $LF = $leading * $fs;
    $uH = $LF * $heading_lift;
    $WS = $LF * $paragraph_space;
}

sub setColor {
    if( $sc[$p] ne $current_color ) {
	defined($colorstyle{$sc[$p]}) or die "INTERNAL ERROR \#05 - Unknown colorstyle\n";
    prt("$colorstyle{$sc[$p]}\n");
	$current_color = $sc[$p];
    }
}

sub stringLength {
    my ($str, $font, $style) = @_;
    my $length = 0;
    foreach (split(//, $str)) {
        $length += $wx[$font][$style][ord($_)]*$fs
    }
    $length;
}

my ($even);
sub pageFooter {
    my $date_footer = '';
    my $y0 = $bottom_bar;
    my $y1 = $y0 - 13;
    my $x0 = $left_margin;
    my $x1 = $x_size - $right_margin;
    my $x2 = 0.5 * ($x0 + $x1);
    my $p_num;

    if    ($section eq 'doc') { $p_num = $page }
    elsif ($section eq 'toc') { $p_num = $Roman[$page - $lp]; }
    elsif ($section eq 'cov') { $p_num = 'Fly leaf' }
    setFont('footer');

    if($page % 2) {
        my $buf = stringLength($p_num, @scratch_pad);
        $buf = $x1 - $buf;
        prt("
            1 0 0 1 $x0 $y1 Tm
            \($date\) Tj
            1 0 0 1 $buf $y1 Tm
            \($p_num\) Tj
        ");
    }
    else {
        my $buf = stringLength($date, @scratch_pad);
        $buf = $x1 - $buf;
        prt("
            1 0 0 1 $x0 $y1 Tm
            \($p_num\) Tj
            1 0 0 1 $buf $y1 Tm
            \($date\) Tj
        ");
    }

    prt("
        ET
        $x0 $y0 m
        $x1 $y0 l
        S
    ");
    $stream_end = $f_pos;
    $stream_length = $stream_end - $stream_start;
    prt("
        endstream
        endobj
    ");

    my $contents_object  = $obj;

    $o_loc[++$obj] = $f_pos;
    prt("
        $obj 0 obj
        $stream_length
        endobj
    ");

    $o_loc[++$obj] = $f_pos;
    my $resources_object = $obj;
    $buf = '';
    foreach (sort keys %fonts_used) { $buf .= "$_ $o_rec{$_} 0 R\n" }
    prt("
        $obj 0 obj
        <<
        /ProcSet [/PDF /Text]
        /ColorSpace <>
        /Font
        <<
        $buf
        >>
        >>
        endobj
    ");

    my @annot_objects = ();
    for (0..$#annot) {
        my $next = 0;
        $o_loc[++$obj] = $f_pos;
        push(@annot_objects, $obj);
        $next = $obj+1;
        prt("
            $obj 0 obj
            <<
            /Type /Annot
            /Subtype /Link
            /Rect $annot[$_][0]
            /Border [0 0 1]
            /C [1 1 0]
            /A $next 0 R
            /H /I
            >>
            endobj
		");
    $o_loc[++$obj] = $f_pos;
        prt("
            $obj 0 obj
            <<
            /S /URI
            /URI ($annot[$_][1])
            >>
            endobj
		");
	}

	if (@annot) {
	    $buf = join(' 0 R ', @annot_objects, '');
    	$o_loc[++$obj] = $f_pos;
    	my $annots_object = $obj;
        prt("
            $obj 0 obj
            [ $buf ]
            endobj
		");
	    $o_loc[++$obj] = $f_pos;
	    $o_rec{$page}  = $obj;
	    prt("
	        $obj 0 obj
	        <<
	        /Type /Page
	        /Parent $o_rec{parent} 0 R
	        /Resources $resources_object 0 R
	        /Contents $contents_object 0 R
	        /Annots $annots_object 0 R
	        >>
	        endobj
	    ");
	}
	else {
	    $o_loc[++$obj] = $f_pos;
	    $o_rec{$page}  = $obj;
	    prt("
	        $obj 0 obj
	        <<
	        /Type /Page
	        /Parent $o_rec{parent} 0 R
	        /Resources $resources_object 0 R
	        /Contents $contents_object 0 R
	        >>
	        endobj
	    ");
	}

    if    ($section eq 'doc') { push @Kids,      "$o_rec{$page} 0 R" }
    elsif ($section eq 'toc') { push @tocKids,   "$o_rec{$page} 0 R" }
    elsif ($section eq 'cov') { push @coverKids, "$o_rec{$page} 0 R" }

    ++$page;
}

sub pageHeader {
    my ($in_str, $out_str, $type) = @_;
    @annot = ();
    my ($l_str, $r_str);
    if ($page % 2) {
        $l_str = $in_str;
        $r_str = $out_str;
    }
    else {
        $l_str = $out_str;
        $r_str = $in_str;
    }

    my $y0 = $y_size - $top_bar;
    my $y1 = $y0 + 5;
    my $x0 = $left_margin;
    my $x1 = $x_size - $right_margin;
    my $x2 = 0.5 * ($x0 + $x1);

    undef %fonts_used;
    $o_loc[++$obj] = $f_pos;
    my $length_obj = $obj + 1;

    prt("
        $obj 0 obj
        <<
        /Length $length_obj 0 R
        >>
        stream
    ");

    $stream_start = $f_pos;

    if (defined $in_str) {
        prt("
            $x0 $y0 m
            $x1 $y0 l
        ")
    }

    prt("
        S
        BT
        0 G
        1 i 0 J 0 j 0.1 w 10 M []0 d
    ");

    setFont('header');
    if (defined $r_str and defined $l_str) {
	    my $buf = stringLength($r_str, @scratch_pad);
	    $buf = $x1 - $buf;
	    prt("
	        1 0 0 1 $x0 $y1 Tm
	        \($l_str\) Tj
	        1 0 0 1 $buf $y1 Tm
	        \($r_str\) Tj
	   ");
	}
    $yrem = $ypos = $y_size - $top_margin;
    if ($in_text) { $ypos += $LF };
}

sub prt {
    my ($str) = @_;
    $str =~ s/\n\s*/\n/g;
    $str =~ s/^\n//;
    $f_pos += length $str;
    print OUT $str;
}

sub pdf_date {
    my @date  = localtime(time);
    my $year  = $date[5] + 1900;
    my $month = sprintf "%.2d", $date[4]+1;
    my $day   = sprintf "%.2d", $date[3];
    my $hour  = sprintf "%.2d", $date[2];
    my $min   = sprintf "%.2d", $date[1];
    my $sec   = sprintf "%.2d", $date[0];

    my $gm = (gmtime(time))[2];
    my $local = (localtime(time))[2];
    my $diff = $local - $gm;
    if ($diff <= -12) { $diff += 24 }
    elsif ($diff > 12) { $diff -= 24 }
    my $zone = $diff;
    if ($zone =~ /-/) {$zone = sprintf "%.2d00", $zone}
    else  {$zone = sprintf "+%.2d00", $zone}

    return "D:$year$month$day$hour$min$sec$zone"
}

sub page_date {
    my @date  = localtime(time);
    my $year  = $date[5] + 1900;
    my $mon   = sprintf "%.2d", $date[4];
    my $day   = sprintf "%.2d", $date[3];
    my @month = qw(January February March April May June July August September October November December);

    return "$day $month[$mon] $year";
}

sub pdfOpen {

    my ($of) = @_;

    open(OUT, ">$of") or die "Could not open output file '$of': $!\n";
    MacPerl::SetFileInfo("CARO", "PDF ", $of) if ($^O eq "MacOS");

    print STDERR "Opening output file $of\n" if $verbose;

    prt("%PDF-1.2\n");
    prt("%âãÏÓ\n");

    $o_loc[++$obj] = $f_pos;
    $o_rec{calRGB} = $obj;
    prt("
        $obj 0 obj
        [/CalRGB
        <<
        /WhitePoint [0.9505 1 1.089]
        /Gamma [1.8 1.8 1.8]
        /Matrix [0.4497 0.2446 0.02518 0.3613 0.672 0.1412 0.1845 0.08334 0.9227]
        >>
        ]
        endobj
    ");

    $o_loc[++$obj] = $f_pos;
    $o_rec{info} = $obj;
    prt("
        $obj 0 obj
        <<
        /CreationDate (".pdf_date().")
        /Producer (pod2pdf)
        /Title ($title)
        >>
        endobj
    ");

    $o_rec{root}   = ++$obj;
    $o_rec{parent} = ++$obj;

    $o_loc[++$obj] = $f_pos;
    $o_rec{encoding} = $obj;
    prt("
        $obj 0 obj
        <<
        /Type /Encoding
        /Differences [ 0 /.notdef /.notdef /.notdef /.notdef
        /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
        /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
        /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
        /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
        /.notdef /.notdef /.notdef /.notdef /space /exclam
        /quotedbl /numbersign /dollar /percent /ampersand
        /quoteright /parenleft /parenright /asterisk /plus /comma
        /hyphen /period /slash /zero /one /two /three /four /five
        /six /seven /eight /nine /colon /semicolon /less /equal
        /greater /question /at /A /B /C /D /E /F /G /H /I /J /K /L
        /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft
        /backslash /bracketright /asciicircum /underscore
        /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p
        /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright
        /asciitilde /.notdef /.notdef /.notdef /.notdef /.notdef
        /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
        /.notdef /.notdef /.notdef /.notdef /.notdef /emdash
        /dotlessi /grave /acute /circumflex /tilde /macron /breve
        /dotaccent /dieresis /.notdef /ring /cedilla /.notdef
        /hungarumlaut /ogonek /caron /space /exclamdown /cent
        /sterling /currency /yen /brokenbar /section /dieresis
        /copyright /ordfeminine /guillemotleft /logicalnot /hyphen
        /registered /macron /degree /plusminus /twosuperior
        /threesuperior /acute /mu /paragraph /periodcentered
        /cedilla /onesuperior /ordmasculine /guillemotright
        /onequarter /onehalf /threequarters /questiondown /Agrave
        /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE
        /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave
        /Iacute /Icircumflex /Idieresis /Eth /Ntilde /Ograve
        /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash
        /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn
        /germandbls /agrave /aacute /acircumflex /atilde /adieresis
        /aring /ae /ccedilla /egrave /eacute /ecircumflex
        /edieresis /igrave /iacute /icircumflex /idieresis /eth
        /ntilde /ograve /oacute /ocircumflex /otilde /odieresis
        /divide /oslash /ugrave /uacute /ucircumflex /udieresis
        /yacute /thorn /ydieresis ]
        >>
        endobj
    ");

    foreach my $font (sort keys %fontdef) {
        $o_loc[++$obj] = $f_pos;
        $o_rec{$font} = $obj;
        prt("
            $obj 0 obj
            <<
            /Type /Font
            /Subtype /Type1
            /Name $font
            /Encoding $o_rec{encoding} 0 R
            /BaseFont /$fontdef{$font}
            >>
            endobj
        ");
    }
}

sub pdfTrailer {
    $o_loc[$o_rec{root}] = $f_pos;
    prt("
        $o_rec{root} 0 obj
        <<
        /Type /Catalog
        /Pages $o_rec{parent} 0 R
        /PageMode /UseOutlines
        /Outlines $o_rec{outlines} 0 R
        >>
        endobj
    ");
    my $kids = join(' ', @coverKids).' '.join(' ', @tocKids).' '.join(' ', @Kids);
    my $count = (scalar @coverKids) + (scalar @tocKids) + (scalar @Kids);
    $o_loc[$o_rec{parent}] = $f_pos;
    prt("
        $o_rec{parent} 0 obj
        <<
        /Type /Pages
        /Kids [ $kids ]
        /Count $count
        /MediaBox [0 0 $x_size $y_size]
        >>
        endobj
    ");

    my $xfer = $f_pos;
    prt("xref\n");

my $size = $obj+1;

    $buf = sprintf "0 %d\n", $size;
    prt($buf);
    prt("0000000000 65535 f \n");
    my $i;
    for ($i = 1; $i <= $obj; $i++) {
        $buf = sprintf "%.10d 00000 n \n", $o_loc[$i];
        prt($buf)
    }

    $buf = sprintf "/Size %d\n", $size;

    prt("
        trailer
        <<
        $buf
        /Root $o_rec{root} 0 R
        /Info $o_rec{info} 0 R
        >>
        startxref
        $xfer
        %%EOF
    ");
}

sub buildTOC {
    $ol[1]{page} = $page;

    pageHeader();

    setFont('ToC');
    $ypos = $y_size - 72;
    $xpos = ($x_size - stringLength('Table of Contents', @scratch_pad))/2;
    prt("
        1 0 0 1 $xpos $ypos Tm
        \(Table of Contents\) Tj
    ");
    $ypos -= $LF;
    $xpos = ($x_size - stringLength("$title", @scratch_pad))/2;
    prt("
        1 0 0 1 $xpos $ypos Tm
        \($title\) Tj
    ");

    $ypos -= 2*$LF;

    setFont('H3');
     for (1..$#ol) {
        next if !$ol[$_]{level};
        if ($ypos <= 70) {
            pageFooter();
            pageHeader("Table of Contents", $title);
            $ypos = $y_size - 72;
            setFont('H3');
        }
        $xpos = $left_margin + ($left_indent * ($ol[$_]{level}));
        $buf = trimString($xpos, $ol[$_]{string}, @scratch_pad);
        color_stripe($_);
        prt("
            1 0 0 1 $xpos $ypos Tm
            \($buf\) Tj
        ");
        $xpos = $x_size - $right_margin - $left_indent - stringLength($ol[$_]{page}, @scratch_pad);
        prt("
            1 0 0 1 $xpos $ypos Tm
            \($ol[$_]{page}\) Tj
        ");
        $ypos -= $LF;
    }
    pageFooter();
    unless ($page % 2) {
        pageHeader("Table of Contents", $title);
        pageFooter()
    }
}

sub trimString {
    my ($strt, $str, $font, $style) = @_;
    my $length = 0;
    my $ret = '';
    foreach (split(//, $str)) {
        $length += $wx[$font][$style][ord($_)]*$fs;
        $ret .= $_;
        if ($length + $strt > 450) {
            if ($ret =~ /(.*)\s+.*/) {
                $ret = $1.'...';
                last;
            }
        }
    }
    $ret;
}

sub color_stripe {
    my $col;
    my $xll = $left_margin;
    my $yll = $ypos - 3;
    my $stripe = $x_size - $left_margin - $right_margin;
    if ($_[0] % 2) { $col = 1}
    else { $col = 0.95}
    prt("
        ET
        q
        $col g
        $xll $yll $stripe $LF re
        f
        Q
        BT
    ");
}

sub pdfOutline {
    my($level, $str, $page, $ypos) = @_;
    $str = pdfEscape($str);
    return unless length $str;

    if    ($level == 1) { $h2 = 0 }
    elsif ($level == 2) { $h2 = 1 }
    elsif ($level == 3 and !$h2) { $level = 2 }

    $ol[++$no] = { level => $level,
                  string => $str,
                    page => $page,
                    ypos => $ypos };
}

sub outlineTree {
    my $z;
    $o_rec{outlines} = ++$obj;
    $ol[0]{level} = -1;
    for (1..$no) {
        my @kids; undef @kids;
        my @gkids; undef @gkids;
        my $first = undef;
        my $last = undef;
        my $previous = undef;
        my $next = undef;
        my $count = undef;

        $i = $_;
        until ($ol[$i]{level} < $ol[$_]{level}) { $i-- }
        my $parent = $i;

        $i = $_ - 1;
        until ($ol[$i]{level} <= $ol[$_]{level}) { $i-- };
        if ($ol[$i]{level} == $ol[$_]{level}) { $previous = $i} else {$previous = undef }

        $i = $_ + 1;
        if ($i <= $no) {
            until (!defined $ol[$i]{level} or $ol[$i]{level} <= $ol[$_]{level}) { $i++ };
            if (defined $ol[$i]{level} and $ol[$i]{level} == $ol[$_]{level}) { $next = $i} else {$next = undef }
        }

        $i = $_ + 1;
        if ($i <= $no) {
            until (!defined $ol[$i]{level} or $ol[$i]{level} <= $ol[$_]{level}) {
                if ($ol[$i]{level} == $ol[$_]{level} + 1) { push(@kids,  "$i") }
                if ($ol[$i]{level} >= $ol[$_]{level} + 2) { push(@gkids, "$i") }
                $i++;
            }
            $count = (scalar @kids) + (scalar @gkids);
        }

        $z = $obj + $_;
        $parent += $obj if defined $parent;
        $previous += $obj if defined $previous;
        $next += $obj if defined $next;
        $first = $kids[0] + $obj if defined $kids[0];
        $last = $kids[-1] + $obj if defined $kids[-1];
        $o_loc[$z] = $f_pos;
        my $view = $ol[$_]{level} == 0 ? "/Fit" : "/FitH $ol[$_]{ypos}";
        prt("
            $z 0 obj
            <<
            /Parent $parent 0 R
            /Dest [$o_rec{$ol[$_]{page}} 0 R $view]
        ");
        prt("/Previous $previous 0 R\n") if defined $previous;
        prt("/Next $next 0 R\n") if defined $next;
        prt("/First $first 0 R\n") if defined $first;
        prt("/Last $last 0 R\n") if defined $last;
        prt("/Count $count \n") if $count;
        prt("/Title \($ol[$_]{string}\)\n");
        prt("
            >>
            endobj
        ");
    }
    $o_loc[$o_rec{outlines}] = $f_pos;
    prt("
        $o_rec{outlines} 0 obj
        <<
        /Type /Outlines
    ");
    $z = $#ol - 1;
    prt("/Count $z\n");
    $z = $obj + 1;
    prt("/First $z 0 R\n");
    $z = $obj + $#ol - 1;
    prt("
        /Last $z 0 R
        >>
        endobj
    ");
    $obj += $no;
}

sub coverPage {
    my $x;
    my $y;
    my $w;
    my $h;
    undef %fonts_used;

    $o_loc[++$obj] = $f_pos;
    push @coverKids, "$obj 0 R";
    $o_rec{$page} = $obj;

    my $contents_object = $obj + 1;
    my $length_obj = $obj + 2;
    my $resources_object = $obj+3;

    prt("
        $obj 0 obj
        <<
        /Type /Page
        /Parent $o_rec{parent} 0 R
        /Resources $resources_object 0 R
        /Contents $contents_object 0 R
        >>
        endobj
    ");

    $o_loc[++$obj] = $f_pos;

    prt("
        $obj 0 obj
        <<
        /Length $length_obj 0 R
        >>
        stream
    ");

    $stream_start = $f_pos;

    $x = 180;
    $y = $y_size - 216;
    my $ty = $y + 80;

    my $xll = 210;
    my $xlr = $x_size - $right_margin;

    $h = 130;
    $w = 8;

    prt("
        q
        1 0 0 rg
        $x $y $w $h re
        F
        Q
        0 G
        1 i 0 J 0 j 0.1 w 10 M []0 d
        $xll $y m
        $xlr $y l
        s
        BT
   ");

    $fonts_used{'/F21'} = ' ';
    $fonts_used{'/F22'} = ' ';

    prt("
        /F21 30 Tf
        1 0 0 1 210 $ty Tm
        0 -30 TD
        (POD Translation) Tj
        T* (by ) Tj
        0 0 0.8 rg
        /F22 30 Tf
        (pod2pdf) Tj
        /F21 9 Tf
        T* (ajf\@afco.demon.co.uk) Tj
    ");

    setFont('coverTitle');
    my $xm = ($x_size - stringLength($title, @scratch_pad))/2;
    my $ym = $y_size/2 - 50;

    prt("
        0 g
        1 0 0 1 $xm $ym Tm
        ($title) Tj
        ET
    ");

    $stream_end = $f_pos;
    $stream_length = $stream_end - $stream_start;


    prt("
        endstream
        endobj
    ");

    $o_loc[++$obj] = $f_pos;

    prt("
        $obj 0 obj
        $stream_length
        endobj
    ");

    $o_loc[++$obj] = $f_pos;
    $buf = '';
    foreach (sort keys %fonts_used) { $buf .= "$_ $o_rec{$_} 0 R\n" }

    prt("
        $obj 0 obj
        <<
        /ProcSet [/PDF /Text]
        /ColorSpace <>
        /Font
        <<
        $buf
        >>
        >>
        endobj
    ");

    pageHeader("Title Page", $title);
    pageFooter();

    ++$page;
}


sub ESC {
    %HTML = (
            'lt'     => '<',          'gt'     => '>',          'amp'    => '&',
            'quot'   => '"',          'nbsp'   => "\240",       'Aacute' => "\301",
            'Acirc'  => "\302",       'Agrave' => "\300",       'Aring'  => "\305",
            'Atilde' => "\303",       'Auml'   => "\304",       'Ccedil' => "\307",
            'ETH'    => "\320",       'Eacute' => "\311",       'Ecirc'  => "\312",
            'Egrave' => "\310",       'Euml'   => "\313",       'Iacute' => "\315",
            'Icirc'  => "\316",       'Igrave' => "\314",       'Iuml'   => "\317",
            'Ntilde' => "\321",       'AElig'  => "\306",       'Oacute' => "\323",
            'Ocirc'  => "\324",       'Ograve' => "\322",       'Oslash' => "\330",
            'Otilde' => "\325",       'Ouml'   => "\326",       'THORN'  => "\336",
            'Uacute' => "\332",       'Ucirc'  => "\333",       'Ugrave' => "\331",
            'Uuml'   => "\334",       'Yacute' => "\335",       'aelig'  => "\346",
            'aacute' => "\341",       'acirc'  => "\342",       'agrave' => "\340",
            'aring'  => "\345",       'atilde' => "\343",       'auml'   => "\344",
            'ccedil' => "\347",       'eacute' => "\351",       'ecirc'  => "\352",
            'egrave' => "\350",       'emdash' => "\217",       'eth'    => "\360",
            'euml'   => "\353",       'iacute' => "\355",       'icirc'  => "\356",
            'igrave' => "\354",       'iuml'   => "\357",       'ntilde' => "\361",
            'oacute' => "\363",       'ocirc'  => "\364",       'ograve' => "\362",
            'oslash' => "\370",       'otilde' => "\365",       'ouml'   => "\366",
            'thorn'  => "\376",       'uacute' => "\372",       'ucirc'  => "\373",
            'ugrave' => "\371",       'uuml'   => "\374",       'yacute' => "\375",
            'yuml'   => "\377",       'reg'    => "\256",       'copy'   => "\251",
            'szlig'  => 'sz',         '39'     => "\047",       '96'     => "\140");
}


#############################################################################
# Font Metrics (font widths) - Data from Adobe Font Metrics Files
#############################################################################

sub afm {
    $wx[0][0] =
	[			#Times-Roman ISOLatin1
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.250,  0.333,  0.408,  0.500,  0.500,  0.833,  0.778,  0.333,
	 0.333,  0.333,  0.500,  0.564,  0.250,  0.333,  0.250,  0.278,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,
	 0.500,  0.500,  0.278,  0.278,  0.564,  0.564,  0.564,  0.444,
	 0.921,  0.722,  0.667,  0.667,  0.722,  0.611,  0.556,  0.722,
	 0.722,  0.333,  0.389,  0.722,  0.611,  0.889,  0.722,  0.722,
	 0.556,  0.722,  0.667,  0.556,  0.611,  0.722,  0.722,  0.944,
	 0.722,  0.722,  0.611,  0.333,  0.278,  0.333,  0.469,  0.500,
	 0.333,  0.444,  0.500,  0.444,  0.500,  0.444,  0.333,  0.500,
	 0.500,  0.278,  0.278,  0.500,  0.278,  0.778,  0.500,  0.500,
	 0.500,  0.500,  0.333,  0.389,  0.278,  0.500,  0.500,  0.722,
	 0.500,  0.500,  0.444,  0.480,  0.200,  0.480,  0.541,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  1.000,
	 0.278,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,
	 0.333,  0.000,  0.333,  0.333,  0.000,  0.333,  0.333,  0.333,
	 0.250,  0.333,  0.500,  0.500,  0.500,  0.500,  0.200,  0.500,
	 0.333,  0.760,  0.276,  0.500,  0.564,  0.333,  0.760,  0.333,
	 0.400,  0.564,  0.300,  0.300,  0.333,  0.500,  0.453,  0.250,
	 0.333,  0.300,  0.310,  0.500,  0.750,  0.750,  0.750,  0.444,
	 0.722,  0.722,  0.722,  0.722,  0.722,  0.722,  0.889,  0.667,
	 0.611,  0.611,  0.611,  0.611,  0.333,  0.333,  0.333,  0.333,
	 0.722,  0.722,  0.722,  0.722,  0.722,  0.722,  0.722,  0.564,
	 0.722,  0.722,  0.722,  0.722,  0.722,  0.722,  0.556,  0.500,
	 0.444,  0.444,  0.444,  0.444,  0.444,  0.444,  0.667,  0.444,
	 0.444,  0.444,  0.444,  0.444,  0.278,  0.278,  0.278,  0.278,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.564,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,
	 ];

    $wx[0][1] =
	[			#Times-Bold ISOLatin1
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.250,  0.333,  0.555,  0.500,  0.500,  1.000,  0.833,  0.333,
	 0.333,  0.333,  0.500,  0.570,  0.250,  0.333,  0.250,  0.278,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,
	 0.500,  0.500,  0.333,  0.333,  0.570,  0.570,  0.570,  0.500,
	 0.930,  0.722,  0.667,  0.722,  0.722,  0.667,  0.611,  0.778,
	 0.778,  0.389,  0.500,  0.778,  0.667,  0.944,  0.722,  0.778,
	 0.611,  0.778,  0.722,  0.556,  0.667,  0.722,  0.722,  1.000,
	 0.722,  0.722,  0.667,  0.333,  0.278,  0.333,  0.581,  0.500,
	 0.333,  0.500,  0.556,  0.444,  0.556,  0.444,  0.333,  0.500,
	 0.556,  0.278,  0.333,  0.556,  0.278,  0.833,  0.556,  0.500,
	 0.556,  0.556,  0.444,  0.389,  0.333,  0.556,  0.500,  0.722,
	 0.500,  0.500,  0.444,  0.394,  0.220,  0.394,  0.520,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  1.000,
	 0.278,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,
	 0.333,  0.000,  0.333,  0.333,  0.000,  0.333,  0.333,  0.333,
	 0.250,  0.333,  0.500,  0.500,  0.500,  0.500,  0.220,  0.500,
	 0.333,  0.747,  0.300,  0.500,  0.570,  0.333,  0.747,  0.333,
	 0.400,  0.570,  0.300,  0.300,  0.333,  0.556,  0.540,  0.250,
	 0.333,  0.300,  0.330,  0.500,  0.750,  0.750,  0.750,  0.500,
	 0.722,  0.722,  0.722,  0.722,  0.722,  0.722,  1.000,  0.722,
	 0.667,  0.667,  0.667,  0.667,  0.389,  0.389,  0.389,  0.389,
	 0.722,  0.722,  0.778,  0.778,  0.778,  0.778,  0.778,  0.570,
	 0.778,  0.722,  0.722,  0.722,  0.722,  0.722,  0.611,  0.556,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.722,  0.444,
	 0.444,  0.444,  0.444,  0.444,  0.278,  0.278,  0.278,  0.278,
	 0.500,  0.556,  0.500,  0.500,  0.500,  0.500,  0.500,  0.570,
	 0.500,  0.556,  0.556,  0.556,  0.556,  0.500,  0.556,  0.500,
	 ];

    $wx[0][2] =
	[			#Times-Italic ISOLatin1
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.250,  0.333,  0.420,  0.500,  0.500,  0.833,  0.778,  0.333,
	 0.333,  0.333,  0.500,  0.675,  0.250,  0.333,  0.250,  0.278,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,
	 0.500,  0.500,  0.333,  0.333,  0.675,  0.675,  0.675,  0.500,
	 0.920,  0.611,  0.611,  0.667,  0.722,  0.611,  0.611,  0.722,
	 0.722,  0.333,  0.444,  0.667,  0.556,  0.833,  0.667,  0.722,
	 0.611,  0.722,  0.611,  0.500,  0.556,  0.722,  0.611,  0.833,
	 0.611,  0.556,  0.556,  0.389,  0.278,  0.389,  0.422,  0.500,
	 0.333,  0.500,  0.500,  0.444,  0.500,  0.444,  0.278,  0.500,
	 0.500,  0.278,  0.278,  0.444,  0.278,  0.722,  0.500,  0.500,
	 0.500,  0.500,  0.389,  0.389,  0.278,  0.500,  0.444,  0.667,
	 0.444,  0.444,  0.389,  0.400,  0.275,  0.400,  0.541,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.889,
	 0.278,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,
	 0.333,  0.000,  0.333,  0.333,  0.000,  0.333,  0.333,  0.333,
	 0.250,  0.389,  0.500,  0.500,  0.500,  0.500,  0.275,  0.500,
	 0.333,  0.760,  0.276,  0.500,  0.675,  0.333,  0.760,  0.333,
	 0.400,  0.675,  0.300,  0.300,  0.333,  0.500,  0.523,  0.250,
	 0.333,  0.300,  0.310,  0.500,  0.750,  0.750,  0.750,  0.500,
	 0.611,  0.611,  0.611,  0.611,  0.611,  0.611,  0.889,  0.667,
	 0.611,  0.611,  0.611,  0.611,  0.333,  0.333,  0.333,  0.333,
	 0.722,  0.667,  0.722,  0.722,  0.722,  0.722,  0.722,  0.675,
	 0.722,  0.722,  0.722,  0.722,  0.722,  0.556,  0.611,  0.500,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.667,  0.444,
	 0.444,  0.444,  0.444,  0.444,  0.278,  0.278,  0.278,  0.278,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.675,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.444,  0.500,  0.444,
	 ];

    $wx[0][3] =
	[			#Times-BoldItalic ISOLatin1
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.250,  0.389,  0.555,  0.500,  0.500,  0.833,  0.778,  0.333,
	 0.333,  0.333,  0.500,  0.570,  0.250,  0.333,  0.250,  0.278,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.500,
	 0.500,  0.500,  0.333,  0.333,  0.570,  0.570,  0.570,  0.500,
	 0.832,  0.667,  0.667,  0.667,  0.722,  0.667,  0.667,  0.722,
	 0.778,  0.389,  0.500,  0.667,  0.611,  0.889,  0.722,  0.722,
	 0.611,  0.722,  0.667,  0.556,  0.611,  0.722,  0.667,  0.889,
	 0.667,  0.611,  0.611,  0.333,  0.278,  0.333,  0.570,  0.500,
	 0.333,  0.500,  0.500,  0.444,  0.500,  0.444,  0.333,  0.500,
	 0.556,  0.278,  0.278,  0.500,  0.278,  0.778,  0.556,  0.500,
	 0.500,  0.500,  0.389,  0.389,  0.278,  0.556,  0.444,  0.667,
	 0.500,  0.444,  0.389,  0.348,  0.220,  0.348,  0.570,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  1.000,
	 0.278,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,
	 0.333,  0.000,  0.333,  0.333,  0.000,  0.333,  0.333,  0.333,
	 0.250,  0.389,  0.500,  0.500,  0.500,  0.500,  0.220,  0.500,
	 0.333,  0.747,  0.266,  0.500,  0.606,  0.333,  0.747,  0.333,
	 0.400,  0.570,  0.300,  0.300,  0.333,  0.576,  0.500,  0.250,
	 0.333,  0.300,  0.300,  0.500,  0.750,  0.750,  0.750,  0.500,
	 0.667,  0.667,  0.667,  0.667,  0.667,  0.667,  0.944,  0.667,
	 0.667,  0.667,  0.667,  0.667,  0.389,  0.389,  0.389,  0.389,
	 0.722,  0.722,  0.722,  0.722,  0.722,  0.722,  0.722,  0.570,
	 0.722,  0.722,  0.722,  0.722,  0.722,  0.611,  0.611,  0.500,
	 0.500,  0.500,  0.500,  0.500,  0.500,  0.500,  0.722,  0.444,
	 0.444,  0.444,  0.444,  0.444,  0.278,  0.278,  0.278,  0.278,
	 0.500,  0.556,  0.500,  0.500,  0.500,  0.500,  0.500,  0.570,
	 0.500,  0.556,  0.556,  0.556,  0.556,  0.444,  0.500,  0.444,
	 ];

    $wx[2][0] =
	[			#Helvetica ISOLatin1
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.278,  0.278,  0.355,  0.556,  0.556,  0.889,  0.667,  0.222,
	 0.333,  0.333,  0.389,  0.584,  0.278,  0.584,  0.278,  0.278,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,
	 0.556,  0.556,  0.278,  0.278,  0.584,  0.584,  0.584,  0.556,
	 1.015,  0.667,  0.667,  0.722,  0.722,  0.667,  0.611,  0.778,
	 0.722,  0.278,  0.500,  0.667,  0.556,  0.833,  0.722,  0.778,
	 0.667,  0.778,  0.722,  0.667,  0.611,  0.722,  0.667,  0.944,
	 0.667,  0.667,  0.611,  0.278,  0.278,  0.278,  0.469,  0.556,
	 0.222,  0.556,  0.556,  0.500,  0.556,  0.556,  0.278,  0.556,
	 0.556,  0.222,  0.222,  0.500,  0.222,  0.833,  0.556,  0.556,
	 0.556,  0.556,  0.333,  0.500,  0.278,  0.556,  0.500,  0.722,
	 0.500,  0.500,  0.500,  0.334,  0.260,  0.334,  0.584,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  1.000,
	 0.278,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,
	 0.333,  0.000,  0.333,  0.333,  0.000,  0.333,  0.333,  0.333,
	 0.278,  0.333,  0.556,  0.556,  0.556,  0.556,  0.260,  0.556,
	 0.333,  0.737,  0.370,  0.556,  0.584,  0.333,  0.737,  0.333,
	 0.400,  0.584,  0.333,  0.333,  0.333,  0.556,  0.537,  0.278,
	 0.333,  0.333,  0.365,  0.556,  0.834,  0.834,  0.834,  0.611,
	 0.667,  0.667,  0.667,  0.667,  0.667,  0.667,  1.000,  0.722,
	 0.667,  0.667,  0.667,  0.667,  0.278,  0.278,  0.278,  0.278,
	 0.722,  0.722,  0.778,  0.778,  0.778,  0.778,  0.778,  0.584,
	 0.778,  0.722,  0.722,  0.722,  0.722,  0.667,  0.667,  0.611,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.889,  0.500,
	 0.556,  0.556,  0.556,  0.556,  0.278,  0.278,  0.278,  0.278,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.584,
	 0.611,  0.556,  0.556,  0.556,  0.556,  0.500,  0.556,  0.500,
	 ];

    $wx[2][1] =
	[			#Helvetica-Bold ISOLatin1
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.278,  0.333,  0.474,  0.556,  0.556,  0.889,  0.722,  0.278,
	 0.333,  0.333,  0.389,  0.584,  0.278,  0.584,  0.278,  0.278,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,
	 0.556,  0.556,  0.333,  0.333,  0.584,  0.584,  0.584,  0.611,
	 0.975,  0.722,  0.722,  0.722,  0.722,  0.667,  0.611,  0.778,
	 0.722,  0.278,  0.556,  0.722,  0.611,  0.833,  0.722,  0.778,
	 0.667,  0.778,  0.722,  0.667,  0.611,  0.722,  0.667,  0.944,
	 0.667,  0.667,  0.611,  0.333,  0.278,  0.333,  0.584,  0.556,
	 0.278,  0.556,  0.611,  0.556,  0.611,  0.556,  0.333,  0.611,
	 0.611,  0.278,  0.278,  0.556,  0.278,  0.889,  0.611,  0.611,
	 0.611,  0.611,  0.389,  0.556,  0.333,  0.611,  0.556,  0.778,
	 0.556,  0.556,  0.500,  0.389,  0.280,  0.389,  0.584,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  1.000,
	 0.278,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,
	 0.333,  0.000,  0.333,  0.333,  0.000,  0.333,  0.333,  0.333,
	 0.278,  0.333,  0.556,  0.556,  0.556,  0.556,  0.280,  0.556,
	 0.333,  0.737,  0.370,  0.556,  0.584,  0.333,  0.737,  0.333,
	 0.400,  0.584,  0.333,  0.333,  0.333,  0.611,  0.556,  0.278,
	 0.333,  0.333,  0.365,  0.556,  0.834,  0.834,  0.834,  0.611,
	 0.722,  0.722,  0.722,  0.722,  0.722,  0.722,  1.000,  0.722,
	 0.667,  0.667,  0.667,  0.667,  0.278,  0.278,  0.278,  0.278,
	 0.722,  0.722,  0.778,  0.778,  0.778,  0.778,  0.778,  0.584,
	 0.778,  0.722,  0.722,  0.722,  0.722,  0.667,  0.667,  0.611,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.889,  0.556,
	 0.556,  0.556,  0.556,  0.556,  0.278,  0.278,  0.278,  0.278,
	 0.611,  0.611,  0.611,  0.611,  0.611,  0.611,  0.611,  0.584,
	 0.611,  0.611,  0.611,  0.611,  0.611,  0.556,  0.611,  0.556,
	 ];

    $wx[2][2] =
	[			#Helvetica-Oblique ISOLatin1
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.278,  0.278,  0.355,  0.556,  0.556,  0.889,  0.667,  0.222,
	 0.333,  0.333,  0.389,  0.584,  0.278,  0.584,  0.278,  0.278,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,
	 0.556,  0.556,  0.278,  0.278,  0.584,  0.584,  0.584,  0.556,
	 1.015,  0.667,  0.667,  0.722,  0.722,  0.667,  0.611,  0.778,
	 0.722,  0.278,  0.500,  0.667,  0.556,  0.833,  0.722,  0.778,
	 0.667,  0.778,  0.722,  0.667,  0.611,  0.722,  0.667,  0.944,
	 0.667,  0.667,  0.611,  0.278,  0.278,  0.278,  0.469,  0.556,
	 0.222,  0.556,  0.556,  0.500,  0.556,  0.556,  0.278,  0.556,
	 0.556,  0.222,  0.222,  0.500,  0.222,  0.833,  0.556,  0.556,
	 0.556,  0.556,  0.333,  0.500,  0.278,  0.556,  0.500,  0.722,
	 0.500,  0.500,  0.500,  0.334,  0.260,  0.334,  0.584,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  1.000,
	 0.278,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,
	 0.333,  0.000,  0.333,  0.333,  0.000,  0.333,  0.333,  0.333,
	 0.278,  0.333,  0.556,  0.556,  0.556,  0.556,  0.260,  0.556,
	 0.333,  0.737,  0.370,  0.556,  0.584,  0.333,  0.737,  0.333,
	 0.400,  0.584,  0.333,  0.333,  0.333,  0.556,  0.537,  0.278,
	 0.333,  0.333,  0.365,  0.556,  0.834,  0.834,  0.834,  0.611,
	 0.667,  0.667,  0.667,  0.667,  0.667,  0.667,  1.000,  0.722,
	 0.667,  0.667,  0.667,  0.667,  0.278,  0.278,  0.278,  0.278,
	 0.722,  0.722,  0.778,  0.778,  0.778,  0.778,  0.778,  0.584,
	 0.778,  0.722,  0.722,  0.722,  0.722,  0.667,  0.667,  0.611,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.889,  0.500,
	 0.556,  0.556,  0.556,  0.556,  0.278,  0.278,  0.278,  0.278,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.584,
	 0.611,  0.556,  0.556,  0.556,  0.556,  0.500,  0.556,  0.500,
	 ];

    $wx[2][3] =
	[			#Helvetica-BoldOblique ISOLatin1
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.278,  0.333,  0.474,  0.556,  0.556,  0.889,  0.722,  0.278,
	 0.333,  0.333,  0.389,  0.584,  0.278,  0.584,  0.278,  0.278,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.556,
	 0.556,  0.556,  0.333,  0.333,  0.584,  0.584,  0.584,  0.611,
	 0.975,  0.722,  0.722,  0.722,  0.722,  0.667,  0.611,  0.778,
	 0.722,  0.278,  0.556,  0.722,  0.611,  0.833,  0.722,  0.778,
	 0.667,  0.778,  0.722,  0.667,  0.611,  0.722,  0.667,  0.944,
	 0.667,  0.667,  0.611,  0.333,  0.278,  0.333,  0.584,  0.556,
	 0.278,  0.556,  0.611,  0.556,  0.611,  0.556,  0.333,  0.611,
	 0.611,  0.278,  0.278,  0.556,  0.278,  0.889,  0.611,  0.611,
	 0.611,  0.611,  0.389,  0.556,  0.333,  0.611,  0.556,  0.778,
	 0.556,  0.556,  0.500,  0.389,  0.280,  0.389,  0.584,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  1.000,
	 0.278,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,  0.333,
	 0.333,  0.000,  0.333,  0.333,  0.000,  0.333,  0.333,  0.333,
	 0.278,  0.333,  0.556,  0.556,  0.556,  0.556,  0.280,  0.556,
	 0.333,  0.737,  0.370,  0.556,  0.584,  0.333,  0.737,  0.333,
	 0.400,  0.584,  0.333,  0.333,  0.333,  0.611,  0.556,  0.278,
	 0.333,  0.333,  0.365,  0.556,  0.834,  0.834,  0.834,  0.611,
	 0.722,  0.722,  0.722,  0.722,  0.722,  0.722,  1.000,  0.722,
	 0.667,  0.667,  0.667,  0.667,  0.278,  0.278,  0.278,  0.278,
	 0.722,  0.722,  0.778,  0.778,  0.778,  0.778,  0.778,  0.584,
	 0.778,  0.722,  0.722,  0.722,  0.722,  0.667,  0.667,  0.611,
	 0.556,  0.556,  0.556,  0.556,  0.556,  0.556,  0.889,  0.556,
	 0.556,  0.556,  0.556,  0.556,  0.278,  0.278,  0.278,  0.278,
	 0.611,  0.611,  0.611,  0.611,  0.611,  0.611,  0.611,  0.584,
	 0.611,  0.611,  0.611,  0.611,  0.611,  0.556,  0.611,  0.556,
	 ];

    $wx[1][0] =
	[			#Courier ISOLatin1
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,
	 0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.000,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.000,  0.600,  0.600,  0.000,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,  0.600,
	 ];

    $wx[1][1] = $wx[1][2] = $wx[1][3] = $wx[1][0];
}

#NB Width of Times 'hyphen' (ASCII 45) altered to 0.333 which MacOS returns

1;

__END__