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/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]*)\n/) { $store .= $` . $1 . " "; return } $_ = $store.$_; $store = ""; #mend broken links (if any) #if (/L/$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(.*)/) { 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__ =head1 NAME Pdf.pm -- A POD to PDF translator =head1 SYNOPSIS All systems: pod2pdf([options]) Also from the shell prompt in conjunction with the script "pod2pdf" (see "scripts/pod2pdf"): $ pod2pdf [options] E =head1 DESCRIPTION C translates single C (Perl Plain Old Documentation) files and translates them to C (Adobe Portable Document Format) files. Future extensions to this program may permit translation of multiple C files into a single book. At this stage the emphasis is on simplicity and ease of use. The output C file takes the name of the input file with the suffix C<.pdf>. C are created at three levels corresponding to C<=head1>, C<=head2> and C<=item>. The C headings are reproduced as a C page. Long C<=item> strings are curtailed to a length which will fit reasonably in the space available on the page. When the C document is viewed on screen, the C (sometimes known as C) provide links to the appropriate page. When the document is printed the C provides the same facility. Links of the form L and links to named destinations are not implemented since it is rarely possible to resolve the link except in the limited instance of links to named destinations in the document itself. Links to C addresses (including I, I and I) are active however and call the resident default browser. How that responds to the call will depend to some extent on the type of browser and the environment in which it finds itself. The C specification C allows blocks of text to be enclosed by C<=begin> and C<=end> markers. The block-type my be indicated by a string after C<=begin> (for example C<=begin html> would indicate an C block) of which I are recognised entities. Specification C goes on to say that I<"A formatter that can utilize that format will use the section, otherwise it will be completely ignored."> This seems to defeat the object of the documentation since quite different output might be expected according to which translator was used. It is doubtful if that would necessarily be the author's intention. This translator, C, in all cases reproduces the section enclosed by a C<=begin/=end> pair (or any paragraph following C<=for> which is similarly defined in C) but in a special color so as to give a visual warning to the reader that special meaning might attach to the block of text. The primary objective is to produce a translation of a C file of good typographical quality which can be printed on any printer (particularly low-cost non-PostScript ink-jet printers) in any environment. In this connection it must be recognised that some authors use C mark-up more intelligently and to better effect than others. Not infrequently mistakes in formatting (frequently the absence of a blank line to end a block) result in files which do not translate properly on some or all translators. C files provide the very useful ability to quickly screen the translation for visual checking before the file is despatched to the printer. =head1 OPTIONS In the interests of simplicity and ease of use the number of options has been kept to a minimum. However an option to set paper size remains an unavoidable necessity untill such time as the world can agree on one standard. Only B and B are preprogrammed, other custom sizes will require an edit to the C code. Options are implemented using C using the syntax C<--[key]=> as indicated below. The order in which options are entered is immaterial. =item B The default paper size is A4 (which may be re-editied to a custom size): my $x_size = 595; # default page width (pixels) my $y_size = 842; # default page height (pixels) The option: --paper=usletter sets the North American standard size: my $x_size = 612; # US letter page width (pixels) my $y_size = 792; # US letter page height (pixels) The program will accept any (reasonable) paper size. =item B Limited error reporting to STDERR may be turned on by setting C<$verbose>: --verbose=1 # progress reports --verbose=2 # more extensive progress reports about links =item B The input file name may be entered in various ways on most sytems. It may be included as an B