File Coverage

blib/lib/HTML/FormatPS.pm
Criterion Covered Total %
statement 314 356 88.2
branch 57 88 64.7
condition 13 23 56.5
subroutine 43 45 95.5
pod 1 35 2.8
total 428 547 78.2


line stmt bran cond sub pod time code
1             package HTML::FormatPS;
2              
3             # ABSTRACT: Format HTML as PostScript
4              
5              
6 2     2   19129 use 5.008;
  2         6  
7 2     2   9 use strict;
  2         2  
  2         45  
8 2     2   7 use warnings;
  2         3  
  2         69  
9 2     2   8 use Carp;
  2         2  
  2         170  
10 2     2   1234 use Encode;
  2         18185  
  2         161  
11 2     2   2147 use IO::File;
  2         16843  
  2         312  
12 2     2   1299 use utf8; # for the is_utf8 function
  2         20  
  2         11  
13              
14 2     2   127 use base 'HTML::Formatter';
  2         3  
  2         1186  
15              
16             our $VERSION = '2.16'; # VERSION
17             our $AUTHORITY = 'cpan:NIGELM'; # AUTHORITY
18              
19             # We now use Smart::Comments in place of the old DEBUG framework.
20             # this should be commented out in release versions....
21             ##use Smart::Comments;
22              
23             # ------------------------------------------------------------------------
24             # A few routines that convert lengths into points
25 44     44 0 160 sub mm { $_[0] * 72 / 25.4; }
26 28     28 0 91 sub in { $_[0] * 72; }
27              
28             # ------------------------------------------------------------------------
29             my %PaperSizes = (
30             A3 => [ mm(297), mm(420) ],
31             A4 => [ mm(210), mm(297) ],
32             A5 => [ mm(148), mm(210) ],
33             B4 => [ 729, 1032 ],
34             B5 => [ 516, 729 ],
35             Letter => [ in(8.5), in(11) ],
36             Legal => [ in(8.5), in(14) ],
37             Executive => [ in(7.5), in(10) ],
38             Tabloid => [ in(11), in(17) ],
39             Statement => [ in(5.5), in(8.5) ],
40             Folio => [ in(8.5), in(13) ],
41             "10x14" => [ in(10), in(14) ],
42             Quarto => [ 610, 780 ],
43             );
44              
45             # ------------------------------------------------------------------------
46             my %FontFamilies = (
47             Courier => [
48             qw(Courier
49             Courier-Bold
50             Courier-Oblique
51             Courier-BoldOblique)
52             ],
53              
54             Helvetica => [
55             qw(Helvetica
56             Helvetica-Bold
57             Helvetica-Oblique
58             Helvetica-BoldOblique)
59             ],
60              
61             Times => [
62             qw(Times-Roman
63             Times-Bold
64             Times-Italic
65             Times-BoldItalic)
66             ],
67             );
68              
69             # ------------------------------------------------------------------------
70             # size 0 1 2 3 4 5 6 7 8
71             my @FontSizes = ( 5, 6, 8, 10, 12, 14, 18, 24, 32 );
72              
73 13     13 0 15 sub BOLD { 0x01; }
74 5     5 0 5 sub ITALIC { 0x02; }
75              
76             my %param = (
77             papersize => 'papersize',
78             paperwidth => 'paperwidth',
79             paperheight => 'paperheigth',
80             leftmargin => 'lmW',
81             rightmargin => 'rmW',
82             horizontalmargin => 'mW',
83             topmargin => 'tmH',
84             bottommargin => 'bmH',
85             verticalmargin => 'mH',
86             no_prolog => 'no_prolog',
87             no_trailer => 'no_trailer',
88             pageno => 'printpageno',
89             startpage => 'startpage',
90             fontfamily => 'family',
91             fontscale => 'fontscale',
92             leading => 'leading',
93             );
94              
95             # ------------------------------------------------------------------------
96              
97              
98             sub new {
99 8     8 1 5459 my $class = shift;
100              
101 8         45 my $self = $class->SUPER::new(@_);
102              
103             # Obtained from the element </td> </tr> <tr> <td class="h" > <a name="104">104</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> $self->{title} = ""; </td> </tr> <tr> <td class="h" > <a name="105">105</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="106">106</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # The font ID last sent to the PostScript output (this may be </td> </tr> <tr> <td class="h" > <a name="107">107</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # temporarily different from the "current font" as read from </td> </tr> <tr> <td class="h" > <a name="108">108</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # the HTML input). Initially none. </td> </tr> <tr> <td class="h" > <a name="109">109</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> $self->{psfontid} = ""; </td> </tr> <tr> <td class="h" > <a name="110">110</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="111">111</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Pending horizontal space. A list [ " ", $fontid, $width ], </td> </tr> <tr> <td class="h" > <a name="112">112</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # or undef if no space is pending. </td> </tr> <tr> <td class="h" > <a name="113">113</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> $self->{hspace} = undef; </td> </tr> <tr> <td class="h" > <a name="114">114</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="115">115</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # add an encoder object for perl native to Latin1 output </td> </tr> <tr> <td class="h" > <a name="116">116</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 30 </td> <td class="s"> $self->{encoder} = find_encoding('iso-8859-1'); </td> </tr> <tr> <td class="h" > <a name="117">117</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="118">118</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 107 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="119">119</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="120">120</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="121">121</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="122">122</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub default_values { </td> </tr> <tr> <td class="h" > <a name="123">123</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#123-1"> 8 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#123-1"> 0 </a> </td> <td > 29 </td> <td class="s"> ( shift->SUPER::default_values(), </td> </tr> <tr> <td class="h" > <a name="124">124</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="125">125</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> family => "Times", </td> </tr> <tr> <td class="h" > <a name="126">126</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> mH => mm(40), </td> </tr> <tr> <td class="h" > <a name="127">127</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> mW => mm(20), </td> </tr> <tr> <td class="h" > <a name="128">128</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> printpageno => 1, </td> </tr> <tr> <td class="h" > <a name="129">129</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> startpage => 1, # yes, you can start numbering at 10, or whatever. </td> </tr> <tr> <td class="h" > <a name="130">130</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> fontscale => 1, </td> </tr> <tr> <td class="h" > <a name="131">131</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> leading => 0.1, </td> </tr> <tr> <td class="h" > <a name="132">132</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> papersize => 'A4', </td> </tr> <tr> <td class="h" > <a name="133">133</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> paperwidth => mm(210), </td> </tr> <tr> <td class="h" > <a name="134">134</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> paperheight => mm(297), </td> </tr> <tr> <td class="h" > <a name="135">135</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="136">136</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="137">137</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="138">138</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="139">139</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub configure { </td> </tr> <tr> <td class="h" > <a name="140">140</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#140-1"> 1 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#140-1"> 0 </a> </td> <td > 2 </td> <td class="s"> my ( $self, $hash ) = @_; </td> </tr> <tr> <td class="h" > <a name="141">141</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="142">142</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> my ( $key, $val ); </td> </tr> <tr> <td class="h" > <a name="143">143</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> while ( ( $key, $val ) = each %$hash ) { </td> </tr> <tr> <td class="h" > <a name="144">144</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> $key = lc $key; </td> </tr> <tr> <td class="h" > <a name="145">145</a> </td> <td class="c3" > 2 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#145-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> croak "Illegal parameter ($key => $val)" unless exists $param{$key}; </td> </tr> <tr> <td class="h" > <a name="146">146</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $key = $param{$key}; </td> </tr> <tr> <td class="h" > <a name="147">147</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> { </td> </tr> <tr> <td class="h" > <a name="148">148</a> </td> <td class="c3" > 2 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#148-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1 </td> <td class="s"> $key eq "family" && do { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="149">149</a> </td> <td class="c0" > <a href="#151"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $val = "\u\L$val"; </td> </tr> <tr> <td class="h" > <a name="150">150</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> croak "Unknown font family ($val)" </td> </tr> <tr> <td class="h" > <a name="151">151</a> </td> <td class="c0" > <a href="#152"> 0 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#151-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> unless exists $FontFamilies{$val}; </td> </tr> <tr> <td class="h" > <a name="152">152</a> </td> <td class="c0" > <a href="#153"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{family} = $val; </td> </tr> <tr> <td class="h" > <a name="153">153</a> </td> <td class="c0" > <a href="#156"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> last; </td> </tr> <tr> <td class="h" > <a name="154">154</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="155">155</a> </td> <td class="c3" > 2 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#155-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $key eq "papersize" && do { </td> </tr> <tr> <td class="h" > <a name="156">156</a> </td> <td class="c0" > <a href="#160"> 0 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#156-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->papersize($val) </td> </tr> <tr> <td class="h" > <a name="157">157</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || croak sprintf "Unknown papersize '%s'.\nThe knowns are: %s.\nAborting", </td> </tr> <tr> <td class="h" > <a name="158">158</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $val, </td> </tr> <tr> <td class="h" > <a name="159">159</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> join( ', ', sort keys %PaperSizes ); </td> </tr> <tr> <td class="h" > <a name="160">160</a> </td> <td class="c0" > <a href="#169"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> last; </td> </tr> <tr> <td class="h" > <a name="161">161</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="162">162</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> $self->{$key} = lc $val; </td> </tr> <tr> <td class="h" > <a name="163">163</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="164">164</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="165">165</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="166">166</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="167">167</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="168">168</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub papersize { </td> </tr> <tr> <td class="h" > <a name="169">169</a> </td> <td class="c0" > <a href="#171"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#169-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#169-1"> 0 </a> </td> <td > 0 </td> <td class="s"> my ( $self, $val ) = @_; </td> </tr> <tr> <td class="h" > <a name="170">170</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="171">171</a> </td> <td class="c0" > <a href="#172"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $val = "\u\L$val"; </td> </tr> <tr> <td class="h" > <a name="172">172</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#172-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my ( $width, $height ) = @{ $PaperSizes{$val} || return 0 }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#173"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="173">173</a> </td> <td class="c0" > <a href="#174"> 0 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#173-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return 0 unless defined $width; </td> </tr> <tr> <td class="h" > <a name="174">174</a> </td> <td class="c0" > <a href="#175"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{papersize} = $val; </td> </tr> <tr> <td class="h" > <a name="175">175</a> </td> <td class="c0" > <a href="#176"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{paperwidth} = $width; </td> </tr> <tr> <td class="h" > <a name="176">176</a> </td> <td class="c0" > <a href="#177"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{paperheight} = $height; </td> </tr> <tr> <td class="h" > <a name="177">177</a> </td> <td class="c0" > <a href="#487"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="178">178</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="179">179</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="180">180</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="181">181</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub fontsize { </td> </tr> <tr> <td class="h" > <a name="182">182</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#182-1"> 823 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#182-1"> 0 </a> </td> <td > 666 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="183">183</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="184">184</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 791 </td> <td class="s"> my $size = $self->{font_size}[-1]; </td> </tr> <tr> <td class="h" > <a name="185">185</a> </td> <td class="c3" > 823 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#185-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1206 </td> <td class="s"> $size = 8 if $size > 8; </td> </tr> <tr> <td class="h" > <a name="186">186</a> </td> <td class="c3" > 823 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#186-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1114 </td> <td class="s"> $size = 3 if $size < 0; </td> </tr> <tr> <td class="h" > <a name="187">187</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1181 </td> <td class="s"> $FontSizes[$size] * $self->{fontscale}; </td> </tr> <tr> <td class="h" > <a name="188">188</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="189">189</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="190">190</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Determine the current font and set font-related members. </td> </tr> <tr> <td class="h" > <a name="191">191</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # If $plain_with_size is given (a number), use a plain font </td> </tr> <tr> <td class="h" > <a name="192">192</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # of that size. Otherwise, use the font specified by the </td> </tr> <tr> <td class="h" > <a name="193">193</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # HTML context. Returns the "font ID" of the current font. </td> </tr> <tr> <td class="h" > <a name="194">194</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="195">195</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="196">196</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub setfont { </td> </tr> <tr> <td class="h" > <a name="197">197</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#197-1"> 823 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#197-1"> 0 </a> </td> <td > 727 </td> <td class="s"> my ( $self, $plain_with_size ) = @_; </td> </tr> <tr> <td class="h" > <a name="198">198</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="199">199</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 665 </td> <td class="s"> my $index = 0; </td> </tr> <tr> <td class="h" > <a name="200">200</a> </td> <td class="c3" > 823 </td> <td >   </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--condition.html#200-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 1280 </td> <td class="s"> my $family = $self->{family} || 'Times'; </td> </tr> <tr> <td class="h" > <a name="201">201</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 605 </td> <td class="s"> my $size = $plain_with_size; </td> </tr> <tr> <td class="h" > <a name="202">202</a> </td> <td class="c3" > 823 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#202-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1135 </td> <td class="s"> unless ($plain_with_size) { </td> </tr> <tr> <td class="h" > <a name="203">203</a> </td> <td class="c3" > 817 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#203-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1228 </td> <td class="s"> $index |= BOLD if $self->{bold}; </td> </tr> <tr> <td class="h" > <a name="204">204</a> </td> <td class="c3" > 817 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#204-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--condition.html#204-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 1930 </td> <td class="s"> $index |= ITALIC if $self->{italic} || $self->{underline}; </td> </tr> <tr> <td class="h" > <a name="205">205</a> </td> <td class="c3" > 817 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#205-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1040 </td> <td class="s"> $family = 'Courier' if $self->{teletype}; </td> </tr> <tr> <td class="h" > <a name="206">206</a> </td> <td class="c3" > 817 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1030 </td> <td class="s"> $size = $self->fontsize; </td> </tr> <tr> <td class="h" > <a name="207">207</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="208">208</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 935 </td> <td class="s"> my $font = $FontFamilies{$family}[$index]; </td> </tr> <tr> <td class="h" > <a name="209">209</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1005 </td> <td class="s"> my $font_with_size = "$font-$size"; </td> </tr> <tr> <td class="h" > <a name="210">210</a> </td> <td class="c3" > 823 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#210-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1370 </td> <td class="s"> if ( $self->{currentfont} eq $font_with_size ) { </td> </tr> <tr> <td class="h" > <a name="211">211</a> </td> <td class="c3" > 800 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1345 </td> <td class="s"> return $self->{currentfontid}; </td> </tr> <tr> <td class="h" > <a name="212">212</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="213">213</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> $self->{currentfont} = $font_with_size; </td> </tr> <tr> <td class="h" > <a name="214">214</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 48 </td> <td class="s"> $self->{pointsize} = $size; </td> </tr> <tr> <td class="h" > <a name="215">215</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 30 </td> <td class="s"> my $fontmod = "Font::Metrics::$font"; </td> </tr> <tr> <td class="h" > <a name="216">216</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 75 </td> <td class="s"> $fontmod =~ s/-//g; </td> </tr> <tr> <td class="h" > <a name="217">217</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 41 </td> <td class="s"> my $fontfile = $fontmod . ".pm"; </td> </tr> <tr> <td class="h" > <a name="218">218</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 54 </td> <td class="s"> $fontfile =~ s,::,/,g; </td> </tr> <tr> <td class="h" > <a name="219">219</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3343 </td> <td class="s"> require $fontfile; </td> </tr> <tr> <td class="h" > <a name="220">220</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> { </td> </tr> <tr> <td class="h" > <a name="221">221</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ## no critic </td> </tr> <tr> <td class="h" > <a name="222">222</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#222-1"> 2 </a> </td> <td >   </td> <td > 22 </td> <td class="s"> no strict 'refs'; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4206 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 197 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="223">223</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> $self->{wx} = \@{"${fontmod}::wx"}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 102 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="224">224</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ## use critic </td> </tr> <tr> <td class="h" > <a name="225">225</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="226">226</a> </td> <td class="c3" > 23 </td> <td >   </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--condition.html#226-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 69 </td> <td class="s"> $font = $self->{fonts}{$font_with_size} || do { </td> </tr> <tr> <td class="h" > <a name="227">227</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fontID = "F" . ++$self->{fno}; </td> </tr> <tr> <td class="h" > <a name="228">228</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{fonts}{$font_with_size} = $fontID; </td> </tr> <tr> <td class="h" > <a name="229">229</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fontID; </td> </tr> <tr> <td class="h" > <a name="230">230</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="231">231</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> $self->{currentfontid} = $font; </td> </tr> <tr> <td class="h" > <a name="232">232</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 47 </td> <td class="s"> return $font; </td> </tr> <tr> <td class="h" > <a name="233">233</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="234">234</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="235">235</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="236">236</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Construct PostScript code for setting the current font according </td> </tr> <tr> <td class="h" > <a name="237">237</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # to $fontid, or an empty string if no font change is needed. </td> </tr> <tr> <td class="h" > <a name="238">238</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Assumes the return string will always be output as PostScript if </td> </tr> <tr> <td class="h" > <a name="239">239</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # nonempty, so that our notion of the current PostScript font </td> </tr> <tr> <td class="h" > <a name="240">240</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # stays in sync with that of the PostScript interpreter. </td> </tr> <tr> <td class="h" > <a name="241">241</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # </td> </tr> <tr> <td class="h" > <a name="242">242</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub switchfont { </td> </tr> <tr> <td class="h" > <a name="243">243</a> </td> <td class="c3" > 787 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#243-1"> 787 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#243-1"> 0 </a> </td> <td > 660 </td> <td class="s"> my ( $self, $fontid ) = @_; </td> </tr> <tr> <td class="h" > <a name="244">244</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="245">245</a> </td> <td class="c3" > 787 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#245-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1055 </td> <td class="s"> if ( $self->{psfontid} eq $fontid ) { </td> </tr> <tr> <td class="h" > <a name="246">246</a> </td> <td class="c3" > 767 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 910 </td> <td class="s"> return ""; </td> </tr> <tr> <td class="h" > <a name="247">247</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="248">248</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="249">249</a> </td> <td class="c3" > 20 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> $self->{psfontid} = $fontid; </td> </tr> <tr> <td class="h" > <a name="250">250</a> </td> <td class="c3" > 20 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 64 </td> <td class="s"> return "$fontid SF"; </td> </tr> <tr> <td class="h" > <a name="251">251</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="252">252</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="253">253</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="254">254</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="255">255</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Like setfont + switchfont. </td> </tr> <tr> <td class="h" > <a name="256">256</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub findfont { </td> </tr> <tr> <td class="h" > <a name="257">257</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#257-1"> 7 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#257-1"> 0 </a> </td> <td > 11 </td> <td class="s"> my ( $self, $plain_with_size ) = @_; </td> </tr> <tr> <td class="h" > <a name="258">258</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="259">259</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> return $self->switchfont( $self->setfont($plain_with_size) ); </td> </tr> <tr> <td class="h" > <a name="260">260</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="261">261</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="262">262</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="263">263</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub width { </td> </tr> <tr> <td class="h" > <a name="264">264</a> </td> <td class="c3" > 816 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#264-1"> 816 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#264-1"> 0 </a> </td> <td > 642 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="265">265</a> </td> <td class="c3" > 816 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 624 </td> <td class="s"> my $str = shift; </td> </tr> <tr> <td class="h" > <a name="266">266</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="267">267</a> </td> <td class="c3" > 816 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 632 </td> <td class="s"> my $w = 0; </td> </tr> <tr> <td class="h" > <a name="268">268</a> </td> <td class="c3" > 816 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 704 </td> <td class="s"> my $wx = $self->{wx}; </td> </tr> <tr> <td class="h" > <a name="269">269</a> </td> <td class="c3" > 816 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 704 </td> <td class="s"> my $sz = $self->{pointsize}; </td> </tr> <tr> <td class="h" > <a name="270">270</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="271">271</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # need to encode to same encoding as font before getting width </td> </tr> <tr> <td class="h" > <a name="272">272</a> </td> <td class="c3" > 816 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1054 </td> <td class="s"> for ( unpack( "C*", $self->encode_string($str) ) ) { </td> </tr> <tr> <td class="h" > <a name="273">273</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="274">274</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # if the character is outside the table, assume its m sized </td> </tr> <tr> <td class="h" > <a name="275">275</a> </td> <td class="c3" > 2345 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#275-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1658 </td> <td class="s"> $w += ( ( $_ > $#{$wx} ) ? $wx->[ ord('m') ] : $wx->[$_] ) * $sz # unless $_ eq 0xAD; # optional hyphen </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2345 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4205 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="276">276</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="277">277</a> </td> <td class="c3" > 816 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1116 </td> <td class="s"> $w; </td> </tr> <tr> <td class="h" > <a name="278">278</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="279">279</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="280">280</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="281">281</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub begin { </td> </tr> <tr> <td class="h" > <a name="282">282</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#282-1"> 6 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#282-1"> 0 </a> </td> <td > 8 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="283">283</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="284">284</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> $self->SUPER::begin; </td> </tr> <tr> <td class="h" > <a name="285">285</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="286">286</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Margins are in points </td> </tr> <tr> <td class="h" > <a name="287">287</a> </td> <td class="c3" > 6 </td> <td >   </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--condition.html#287-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> $self->{lm} = $self->{lmW} || $self->{mW}; </td> </tr> <tr> <td class="h" > <a name="288">288</a> </td> <td class="c3" > 6 </td> <td >   </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--condition.html#288-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> $self->{rm} = $self->{paperwidth} - ( $self->{rmW} || $self->{mW} ); </td> </tr> <tr> <td class="h" > <a name="289">289</a> </td> <td class="c3" > 6 </td> <td >   </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--condition.html#289-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> $self->{tm} = $self->{paperheight} - ( $self->{tmH} || $self->{mH} ); </td> </tr> <tr> <td class="h" > <a name="290">290</a> </td> <td class="c3" > 6 </td> <td >   </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--condition.html#290-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> $self->{bm} = $self->{bmH} || $self->{mH}; </td> </tr> <tr> <td class="h" > <a name="291">291</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="292">292</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'orig_margins'} = # used only by the debug-mode print-area marker </td> </tr> <tr> <td class="h" > <a name="293">293</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> [ map { sprintf "%.1f", $_ } @{$self}{qw(lm bm rm tm)} ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 154 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="294">294</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="295">295</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Font setup </td> </tr> <tr> <td class="h" > <a name="296">296</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 19 </td> <td class="s"> $self->{fno} = 0; </td> </tr> <tr> <td class="h" > <a name="297">297</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> $self->{fonts} = {}; </td> </tr> <tr> <td class="h" > <a name="298">298</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> $self->{en} = 0.55 * $self->fontsize(3); </td> </tr> <tr> <td class="h" > <a name="299">299</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="300">300</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Initial position </td> </tr> <tr> <td class="h" > <a name="301">301</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> $self->{xpos} = $self->{lm}; # top of the current line </td> </tr> <tr> <td class="h" > <a name="302">302</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> $self->{ypos} = $self->{tm}; </td> </tr> <tr> <td class="h" > <a name="303">303</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="304">304</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> $self->{pageno} = 1; </td> </tr> <tr> <td class="h" > <a name="305">305</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->{visible_page_number} = $self->{startpage}; </td> </tr> <tr> <td class="h" > <a name="306">306</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="307">307</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> $self->{line} = ""; </td> </tr> <tr> <td class="h" > <a name="308">308</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{showstring} = ""; </td> </tr> <tr> <td class="h" > <a name="309">309</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> $self->{currentfont} = ""; </td> </tr> <tr> <td class="h" > <a name="310">310</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->{prev_currentfont} = ""; </td> </tr> <tr> <td class="h" > <a name="311">311</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> $self->{largest_pointsize} = 0; </td> </tr> <tr> <td class="h" > <a name="312">312</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="313">313</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> $self->newpage; </td> </tr> <tr> <td class="h" > <a name="314">314</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="315">315</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="316">316</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="317">317</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub end { </td> </tr> <tr> <td class="h" > <a name="318">318</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#318-1"> 6 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#318-1"> 0 </a> </td> <td > 6 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="319">319</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="320">320</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> $self->showline; </td> </tr> <tr> <td class="h" > <a name="321">321</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#321-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 37 </td> <td class="s"> $self->endpage if $self->{'out'}; </td> </tr> <tr> <td class="h" > <a name="322">322</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> my $pages = $self->{pageno} - 1; </td> </tr> <tr> <td class="h" > <a name="323">323</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="324">324</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> my @prolog = (); </td> </tr> <tr> <td class="h" > <a name="325">325</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> push( @prolog, "%!PS-Adobe-3.0\n" ); </td> </tr> <tr> <td class="h" > <a name="326">326</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="327">327</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #push(@prolog,"%%Title: No title\n"); # should look for the <title> element </td> </tr> <tr> <td class="h" > <a name="328">328</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> push( @prolog, "%%Creator: " . $self->version_tag . "\n" ); </td> </tr> <tr> <td class="h" > <a name="329">329</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 507 </td> <td class="s"> push( @prolog, "%%CreationDate: " . localtime() . "\n" ); </td> </tr> <tr> <td class="h" > <a name="330">330</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> push( @prolog, "%%Pages: $pages\n" ); </td> </tr> <tr> <td class="h" > <a name="331">331</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> push( @prolog, "%%PageOrder: Ascend\n" ); </td> </tr> <tr> <td class="h" > <a name="332">332</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> push( @prolog, "%%Orientation: Portrait\n" ); </td> </tr> <tr> <td class="h" > <a name="333">333</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my ( $pw, $ph ) = map { int($_); } @{$self}{qw(paperwidth paperheight)}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="334">334</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="335">335</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> push( @prolog, "%%DocumentMedia: Plain $pw $ph 0 white ()\n" ); </td> </tr> <tr> <td class="h" > <a name="336">336</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> push( @prolog, "%%DocumentNeededResources: \n" ); </td> </tr> <tr> <td class="h" > <a name="337">337</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> my %seenfont; </td> </tr> <tr> <td class="h" > <a name="338">338</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> for my $full ( sort keys %{ $self->{fonts} } ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 45 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="339">339</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 64 </td> <td class="s"> $full =~ s/-\d+$//; </td> </tr> <tr> <td class="h" > <a name="340">340</a> </td> <td class="c3" > 17 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#340-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 91 </td> <td class="s"> next if $seenfont{$full}++; </td> </tr> <tr> <td class="h" > <a name="341">341</a> </td> <td class="c3" > 9 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> push( @prolog, "%%+ font $full\n" ); </td> </tr> <tr> <td class="h" > <a name="342">342</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="343">343</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> push( @prolog, "%%DocumentSuppliedResources: procset newencode 1.0 0\n" ); </td> </tr> <tr> <td class="h" > <a name="344">344</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> push( @prolog, "%%+ encoding ISOLatin1Encoding\n" ); </td> </tr> <tr> <td class="h" > <a name="345">345</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> push( @prolog, "%%EndComments\n" ); </td> </tr> <tr> <td class="h" > <a name="346">346</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> push( @prolog, <<'EOT'); </td> </tr> <tr> <td class="h" > <a name="347">347</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="348">348</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> %%BeginProlog </td> </tr> <tr> <td class="h" > <a name="349">349</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /S/show load def </td> </tr> <tr> <td class="h" > <a name="350">350</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /M/moveto load def </td> </tr> <tr> <td class="h" > <a name="351">351</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /SF/setfont load def </td> </tr> <tr> <td class="h" > <a name="352">352</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="353">353</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> %%BeginResource: encoding ISOLatin1Encoding </td> </tr> <tr> <td class="h" > <a name="354">354</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> systemdict /ISOLatin1Encoding known not { </td> </tr> <tr> <td class="h" > <a name="355">355</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /ISOLatin1Encoding [ </td> </tr> <tr> <td class="h" > <a name="356">356</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /space /space /space /space /space /space /space /space </td> </tr> <tr> <td class="h" > <a name="357">357</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /space /space /space /space /space /space /space /space </td> </tr> <tr> <td class="h" > <a name="358">358</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /space /space /space /space /space /space /space /space </td> </tr> <tr> <td class="h" > <a name="359">359</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /space /space /space /space /space /space /space /space </td> </tr> <tr> <td class="h" > <a name="360">360</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="361">361</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /space /exclam /quotedbl /numbersign /dollar /percent /ampersand </td> </tr> <tr> <td class="h" > <a name="362">362</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /quoteright </td> </tr> <tr> <td class="h" > <a name="363">363</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /parenleft /parenright /asterisk /plus /comma /minus /period /slash </td> </tr> <tr> <td class="h" > <a name="364">364</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /zero /one /two /three /four /five /six /seven </td> </tr> <tr> <td class="h" > <a name="365">365</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /eight /nine /colon /semicolon /less /equal /greater /question </td> </tr> <tr> <td class="h" > <a name="366">366</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /at /A /B /C /D /E /F /G </td> </tr> <tr> <td class="h" > <a name="367">367</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /H /I /J /K /L /M /N /O </td> </tr> <tr> <td class="h" > <a name="368">368</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /P /Q /R /S /T /U /V /W </td> </tr> <tr> <td class="h" > <a name="369">369</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore </td> </tr> <tr> <td class="h" > <a name="370">370</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /quoteleft /a /b /c /d /e /f /g </td> </tr> <tr> <td class="h" > <a name="371">371</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /h /i /j /k /l /m /n /o </td> </tr> <tr> <td class="h" > <a name="372">372</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /p /q /r /s /t /u /v /w </td> </tr> <tr> <td class="h" > <a name="373">373</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /x /y /z /braceleft /bar /braceright /asciitilde /space </td> </tr> <tr> <td class="h" > <a name="374">374</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="375">375</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /space /space /space /space /space /space /space /space </td> </tr> <tr> <td class="h" > <a name="376">376</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /space /space /space /space /space /space /space /space </td> </tr> <tr> <td class="h" > <a name="377">377</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent </td> </tr> <tr> <td class="h" > <a name="378">378</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /dieresis /space /ring /cedilla /space /hungarumlaut /ogonek /caron </td> </tr> <tr> <td class="h" > <a name="379">379</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="380">380</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /space /exclamdown /cent /sterling /currency /yen /brokenbar /section </td> </tr> <tr> <td class="h" > <a name="381">381</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen </td> </tr> <tr> <td class="h" > <a name="382">382</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /registered /macron </td> </tr> <tr> <td class="h" > <a name="383">383</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph </td> </tr> <tr> <td class="h" > <a name="384">384</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /periodcentered </td> </tr> <tr> <td class="h" > <a name="385">385</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /cedillar /onesuperior /ordmasculine /guillemotright /onequarter </td> </tr> <tr> <td class="h" > <a name="386">386</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /onehalf /threequarters /questiondown </td> </tr> <tr> <td class="h" > <a name="387">387</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla </td> </tr> <tr> <td class="h" > <a name="388">388</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex </td> </tr> <tr> <td class="h" > <a name="389">389</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /Idieresis </td> </tr> <tr> <td class="h" > <a name="390">390</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply </td> </tr> <tr> <td class="h" > <a name="391">391</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn </td> </tr> <tr> <td class="h" > <a name="392">392</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /germandbls </td> </tr> <tr> <td class="h" > <a name="393">393</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla </td> </tr> <tr> <td class="h" > <a name="394">394</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex </td> </tr> <tr> <td class="h" > <a name="395">395</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /idieresis </td> </tr> <tr> <td class="h" > <a name="396">396</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide </td> </tr> <tr> <td class="h" > <a name="397">397</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn </td> </tr> <tr> <td class="h" > <a name="398">398</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /ydieresis </td> </tr> <tr> <td class="h" > <a name="399">399</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ] def </td> </tr> <tr> <td class="h" > <a name="400">400</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } if </td> </tr> <tr> <td class="h" > <a name="401">401</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> %%EndResource </td> </tr> <tr> <td class="h" > <a name="402">402</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> %%BeginResource: procset newencode 1.0 0 </td> </tr> <tr> <td class="h" > <a name="403">403</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /NE { %def </td> </tr> <tr> <td class="h" > <a name="404">404</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> findfont begin </td> </tr> <tr> <td class="h" > <a name="405">405</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> currentdict dup length dict begin </td> </tr> <tr> <td class="h" > <a name="406">406</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> { %forall </td> </tr> <tr> <td class="h" > <a name="407">407</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 1 index/FID ne {def} {pop pop} ifelse </td> </tr> <tr> <td class="h" > <a name="408">408</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } forall </td> </tr> <tr> <td class="h" > <a name="409">409</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /FontName exch def </td> </tr> <tr> <td class="h" > <a name="410">410</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /Encoding exch def </td> </tr> <tr> <td class="h" > <a name="411">411</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> currentdict dup </td> </tr> <tr> <td class="h" > <a name="412">412</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> end </td> </tr> <tr> <td class="h" > <a name="413">413</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> end </td> </tr> <tr> <td class="h" > <a name="414">414</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> /FontName get exch definefont pop </td> </tr> <tr> <td class="h" > <a name="415">415</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } bind def </td> </tr> <tr> <td class="h" > <a name="416">416</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> %%EndResource </td> </tr> <tr> <td class="h" > <a name="417">417</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> %%EndProlog </td> </tr> <tr> <td class="h" > <a name="418">418</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> EOT </td> </tr> <tr> <td class="h" > <a name="419">419</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="420">420</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> push( @prolog, "\n%%BeginSetup\n" ); </td> </tr> <tr> <td class="h" > <a name="421">421</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> for my $full ( sort keys %{ $self->{fonts} } ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="422">422</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> my $short = $self->{fonts}{$full}; </td> </tr> <tr> <td class="h" > <a name="423">423</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 62 </td> <td class="s"> $full =~ s/-(\d+)$//; </td> </tr> <tr> <td class="h" > <a name="424">424</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> my $size = $1; </td> </tr> <tr> <td class="h" > <a name="425">425</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 38 </td> <td class="s"> push( @prolog, "ISOLatin1Encoding/$full-ISO/$full NE\n" ); </td> </tr> <tr> <td class="h" > <a name="426">426</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 46 </td> <td class="s"> push( @prolog, "/$short/$full-ISO findfont $size scalefont def\n" ); </td> </tr> <tr> <td class="h" > <a name="427">427</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="428">428</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> push( @prolog, "%%EndSetup\n" ); </td> </tr> <tr> <td class="h" > <a name="429">429</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="430">430</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->collect("\n%%Trailer\n%%EOF\n") </td> </tr> <tr> <td class="h" > <a name="431">431</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#431-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> unless $self->{'no_trailer'}; </td> </tr> <tr> <td class="h" > <a name="432">432</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="433">433</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 86 </td> <td class="s"> unshift( @{ $self->{output} }, @prolog ) </td> </tr> <tr> <td class="h" > <a name="434">434</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#434-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 14 </td> <td class="s"> unless $self->{'no_prolog'}; </td> </tr> <tr> <td class="h" > <a name="435">435</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="436">436</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="437">437</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="438">438</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub header_start { </td> </tr> <tr> <td class="h" > <a name="439">439</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#439-1"> 2 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#439-1"> 0 </a> </td> <td > 5 </td> <td class="s"> my ( $self, $level ) = @_; </td> </tr> <tr> <td class="h" > <a name="440">440</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="441">441</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # If we are close enough to be bottom of the page, start a new page </td> </tr> <tr> <td class="h" > <a name="442">442</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # instead of this: </td> </tr> <tr> <td class="h" > <a name="443">443</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Heading of level: $level </td> </tr> <tr> <td class="h" > <a name="444">444</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> $self->vspace( 1 + ( 6 - $level ) * 0.4 ); </td> </tr> <tr> <td class="h" > <a name="445">445</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{bold}++; </td> </tr> <tr> <td class="h" > <a name="446">446</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> push( @{ $self->{font_size} }, 8 - $level ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="447">447</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="448">448</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="449">449</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="450">450</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="451">451</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub header_end { </td> </tr> <tr> <td class="h" > <a name="452">452</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#452-1"> 2 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#452-1"> 0 </a> </td> <td > 4 </td> <td class="s"> my ($self) = @_; </td> </tr> <tr> <td class="h" > <a name="453">453</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="454">454</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> $self->vspace(1); </td> </tr> <tr> <td class="h" > <a name="455">455</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{bold}--; </td> </tr> <tr> <td class="h" > <a name="456">456</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> pop( @{ $self->{font_size} } ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="457">457</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="458">458</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="459">459</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="460">460</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="461">461</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub hr_start { </td> </tr> <tr> <td class="h" > <a name="462">462</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#462-1"> 1 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#462-1"> 0 </a> </td> <td > 2 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="463">463</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="464">464</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Making an HR... </td> </tr> <tr> <td class="h" > <a name="465">465</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->showline; </td> </tr> <tr> <td class="h" > <a name="466">466</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->vspace(0.5); </td> </tr> <tr> <td class="h" > <a name="467">467</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->skip_vspace; </td> </tr> <tr> <td class="h" > <a name="468">468</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> my $lm = $self->{lm}; </td> </tr> <tr> <td class="h" > <a name="469">469</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> my $rm = $self->{rm}; </td> </tr> <tr> <td class="h" > <a name="470">470</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> my $y = $self->{ypos}; </td> </tr> <tr> <td class="h" > <a name="471">471</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> $self->collect( sprintf "newpath %.1f %.1f M %.1f %.1f lineto stroke\n", $lm, $y, $rm, $y ); </td> </tr> <tr> <td class="h" > <a name="472">472</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->vspace(0.5); </td> </tr> <tr> <td class="h" > <a name="473">473</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="474">474</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="475">475</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="476">476</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub skip_vspace { </td> </tr> <tr> <td class="h" > <a name="477">477</a> </td> <td class="c3" > 409 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#477-1"> 409 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#477-1"> 0 </a> </td> <td > 349 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="478">478</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="479">479</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Skipping some amount of vspace... </td> </tr> <tr> <td class="h" > <a name="480">480</a> </td> <td class="c3" > 409 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#480-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 638 </td> <td class="s"> if ( defined $self->{vspace} ) { </td> </tr> <tr> <td class="h" > <a name="481">481</a> </td> <td class="c3" > 20 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 38 </td> <td class="s"> $self->showline; </td> </tr> <tr> <td class="h" > <a name="482">482</a> </td> <td class="c3" > 20 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#482-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> if ( $self->{'out'} ) { </td> </tr> <tr> <td class="h" > <a name="483">483</a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 56 </td> <td class="s"> $self->{ypos} -= $self->{vspace} * 10 * $self->{fontscale}; </td> </tr> <tr> <td class="h" > <a name="484">484</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="485">485</a> </td> <td class="c3" > 19 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#485-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> if ( $self->{ypos} < $self->{bm} ) { </td> </tr> <tr> <td class="h" > <a name="486">486</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### vspace skip forced new page... </td> </tr> <tr> <td class="h" > <a name="487">487</a> </td> <td class="c0" > <a href="#539"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->newpage; </td> </tr> <tr> <td class="h" > <a name="488">488</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="489">489</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="490">490</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Skipped vspace making y: $self->{'ypos'}, </td> </tr> <tr> <td class="h" > <a name="491">491</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="492">492</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="493">493</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="494">494</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Not skipping vspace as out is false: $self->{ypos} </td> </tr> <tr> <td class="h" > <a name="495">495</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="496">496</a> </td> <td class="c3" > 20 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> $self->{xpos} = $self->{lm}; </td> </tr> <tr> <td class="h" > <a name="497">497</a> </td> <td class="c3" > 20 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> $self->{vspace} = undef; </td> </tr> <tr> <td class="h" > <a name="498">498</a> </td> <td class="c3" > 20 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s"> $self->{hspace} = undef; </td> </tr> <tr> <td class="h" > <a name="499">499</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="500">500</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="501">501</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### No vspace to skip... </td> </tr> <tr> <td class="h" > <a name="502">502</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="503">503</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="504">504</a> </td> <td class="c3" > 409 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 389 </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="505">505</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="506">506</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="507">507</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="508">508</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub show { </td> </tr> <tr> <td class="h" > <a name="509">509</a> </td> <td class="c3" > 71 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#509-1"> 71 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#509-1"> 0 </a> </td> <td > 71 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="510">510</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="511">511</a> </td> <td class="c3" > 71 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 90 </td> <td class="s"> my $str = $self->{showstring}; </td> </tr> <tr> <td class="h" > <a name="512">512</a> </td> <td class="c3" > 71 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 92 </td> <td class="s"> $str =~ tr/\x01//d; </td> </tr> <tr> <td class="h" > <a name="513">513</a> </td> <td class="c3" > 71 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#513-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 139 </td> <td class="s"> return unless length $str; </td> </tr> <tr> <td class="h" > <a name="514">514</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="515">515</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # must escape parentheses and backslash </td> </tr> <tr> <td class="h" > <a name="516">516</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 141 </td> <td class="s"> $str =~ s/([\(\)\\])/\\$1/g; </td> </tr> <tr> <td class="h" > <a name="517">517</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="518">518</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # encode output to latin1 when pushing it out </td> </tr> <tr> <td class="h" > <a name="519">519</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 75 </td> <td class="s"> $self->{line} .= "(" . $self->encode_string($str) . ")S\n"; </td> </tr> <tr> <td class="h" > <a name="520">520</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 65 </td> <td class="s"> $self->{showstring} = ""; </td> </tr> <tr> <td class="h" > <a name="521">521</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="522">522</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="523">523</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="524">524</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub showline { </td> </tr> <tr> <td class="h" > <a name="525">525</a> </td> <td class="c3" > 57 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#525-1"> 57 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#525-1"> 0 </a> </td> <td > 53 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="526">526</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="527">527</a> </td> <td class="c3" > 57 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 84 </td> <td class="s"> $self->show; </td> </tr> <tr> <td class="h" > <a name="528">528</a> </td> <td class="c3" > 57 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 53 </td> <td class="s"> my $line = $self->{line}; </td> </tr> <tr> <td class="h" > <a name="529">529</a> </td> <td class="c3" > 57 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#529-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 95 </td> <td class="s"> unless ( length $line ) { </td> </tr> <tr> <td class="h" > <a name="530">530</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Showline is a no-op because line buffer is empty... </td> </tr> <tr> <td class="h" > <a name="531">531</a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="532">532</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="533">533</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="534">534</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Showline emitting: $line </td> </tr> <tr> <td class="h" > <a name="535">535</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="536">536</a> </td> <td class="c3" > 38 </td> <td >   </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--condition.html#536-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 93 </td> <td class="s"> $self->{ypos} -= $self->{largest_pointsize} || $self->{pointsize}; </td> </tr> <tr> <td class="h" > <a name="537">537</a> </td> <td class="c3" > 38 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#537-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 72 </td> <td class="s"> if ( $self->{ypos} < $self->{bm} ) { </td> </tr> <tr> <td class="h" > <a name="538">538</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Showline forcing new page... </td> </tr> <tr> <td class="h" > <a name="539">539</a> </td> <td class="c0" > <a href="#544"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->newpage; </td> </tr> <tr> <td class="h" > <a name="540">540</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="541">541</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # newpage might alter currentfont! </td> </tr> <tr> <td class="h" > <a name="542">542</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Showline sets vspace: $self->{vspace} || 0 </td> </tr> <tr> <td class="h" > <a name="543">543</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="544">544</a> </td> <td class="c0" > <a href="#549"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{ypos} -= $self->{pointsize}; </td> </tr> <tr> <td class="h" > <a name="545">545</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #### Showline/Newpage x: $self->{xpos} </td> </tr> <tr> <td class="h" > <a name="546">546</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #### Showline/Newpage y: $self->{ypos} </td> </tr> <tr> <td class="h" > <a name="547">547</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="548">548</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # must set current font again </td> </tr> <tr> <td class="h" > <a name="549">549</a> </td> <td class="c0" > <a href="#550"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $font = $self->{prev_currentfont}; </td> </tr> <tr> <td class="h" > <a name="550">550</a> </td> <td class="c0" > <a href="#551"> 0 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#550-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> if ($font) { </td> </tr> <tr> <td class="h" > <a name="551">551</a> </td> <td class="c0" > <a href="#563"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->collect("$self->{fonts}{$font} SF\n\n"); </td> </tr> <tr> <td class="h" > <a name="552">552</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="553">553</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="554">554</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### End of doing newpage... </td> </tr> <tr> <td class="h" > <a name="555">555</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="556">556</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="557">557</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 50 </td> <td class="s"> my $lm = $self->{lm}; </td> </tr> <tr> <td class="h" > <a name="558">558</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 33 </td> <td class="s"> my $x = $lm; </td> </tr> <tr> <td class="h" > <a name="559">559</a> </td> <td class="c3" > 38 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#559-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 100 </td> <td class="s"> if ( $self->{center} ) { </td> </tr> <tr> <td class="h" > <a name="560">560</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="561">561</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Unfortunately, the center attribute is gone when we get here, </td> </tr> <tr> <td class="h" > <a name="562">562</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # so this code is never activated </td> </tr> <tr> <td class="h" > <a name="563">563</a> </td> <td class="c0" > <a href="#564"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $linewidth = $self->{xpos} - $lm; </td> </tr> <tr> <td class="h" > <a name="564">564</a> </td> <td class="c0" > <a href="#643"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $x += ( $self->{rm} - $lm - $linewidth ) / 2; </td> </tr> <tr> <td class="h" > <a name="565">565</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="566">566</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="567">567</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 432 </td> <td class="s"> $self->collect( sprintf "%.1f %.1f M\n", $x, $self->{ypos} ); # moveto </td> </tr> <tr> <td class="h" > <a name="568">568</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 80 </td> <td class="s"> $line =~ s/\s\)S$/)S/; # many lines will end uselessly with space </td> </tr> <tr> <td class="h" > <a name="569">569</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 67 </td> <td class="s"> $self->collect($line); </td> </tr> <tr> <td class="h" > <a name="570">570</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> $self->{'out'}++; </td> </tr> <tr> <td class="h" > <a name="571">571</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="572">572</a> </td> <td class="c3" > 38 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#572-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 79 </td> <td class="s"> if ( $self->{bullet} ) { </td> </tr> <tr> <td class="h" > <a name="573">573</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="574">574</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Putting this behind the first line of the list item </td> </tr> <tr> <td class="h" > <a name="575">575</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # makes it more likely that we get the right font. We should </td> </tr> <tr> <td class="h" > <a name="576">576</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # really set the font that we want to use. </td> </tr> <tr> <td class="h" > <a name="577">577</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> my $bullet = $self->{bullet}; </td> </tr> <tr> <td class="h" > <a name="578">578</a> </td> <td class="c3" > 4 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#578-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> if ( $bullet eq '*' ) { </td> </tr> <tr> <td class="h" > <a name="579">579</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="580">580</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # There is no character that is really suitable. Let's make </td> </tr> <tr> <td class="h" > <a name="581">581</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # a medium-sized filled circle ourself. </td> </tr> <tr> <td class="h" > <a name="582">582</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> my $radius = $self->{pointsize} / 8; </td> </tr> <tr> <td class="h" > <a name="583">583</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Adding code for a '*' bullet for that line... </td> </tr> <tr> <td class="h" > <a name="584">584</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="585">585</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->collect( </td> </tr> <tr> <td class="h" > <a name="586">586</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sprintf "newpath %.1f %.1f %.1f 0 360 arc fill\n", </td> </tr> <tr> <td class="h" > <a name="587">587</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{bullet_pos} + $radius, </td> </tr> <tr> <td class="h" > <a name="588">588</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> $self->{ypos} + $radius * 2, $radius, </td> </tr> <tr> <td class="h" > <a name="589">589</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="590">590</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="591">591</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="592">592</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Adding code for other bullet for that line... </td> </tr> <tr> <td class="h" > <a name="593">593</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="594">594</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->collect( </td> </tr> <tr> <td class="h" > <a name="595">595</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sprintf "%.1f (%s) stringwidth pop sub %.1f add %.1f M\n", # moveto </td> </tr> <tr> <td class="h" > <a name="596">596</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{bullet_pos}, </td> </tr> <tr> <td class="h" > <a name="597">597</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $bullet, </td> </tr> <tr> <td class="h" > <a name="598">598</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{pointsize} * 0.62, </td> </tr> <tr> <td class="h" > <a name="599">599</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{ypos}, </td> </tr> <tr> <td class="h" > <a name="600">600</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 50 </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="601">601</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->collect("($bullet)S\n"); </td> </tr> <tr> <td class="h" > <a name="602">602</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="603">603</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{bullet} = ''; </td> </tr> <tr> <td class="h" > <a name="604">604</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="605">605</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="606">606</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="607">607</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 49 </td> <td class="s"> $self->{prev_currentfont} = $self->{currentfont}; </td> </tr> <tr> <td class="h" > <a name="608">608</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> $self->{largest_pointsize} = 0; </td> </tr> <tr> <td class="h" > <a name="609">609</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 35 </td> <td class="s"> $self->{line} = ""; </td> </tr> <tr> <td class="h" > <a name="610">610</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 35 </td> <td class="s"> $self->{xpos} = $lm; </td> </tr> <tr> <td class="h" > <a name="611">611</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="612">612</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Additional linespacing </td> </tr> <tr> <td class="h" > <a name="613">613</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="614">614</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> $self->{ypos} -= $self->{leading} * $self->{pointsize}; </td> </tr> <tr> <td class="h" > <a name="615">615</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #### Showline/end x: $self->{xpos} </td> </tr> <tr> <td class="h" > <a name="616">616</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #### Showline/end y: $self->{ypos} </td> </tr> <tr> <td class="h" > <a name="617">617</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="618">618</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 61 </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="619">619</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="620">620</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="621">621</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="622">622</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub endpage { </td> </tr> <tr> <td class="h" > <a name="623">623</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#623-1"> 6 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#623-1"> 0 </a> </td> <td > 5 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="624">624</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="625">625</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### End page: $self->{pageno} </td> </tr> <tr> <td class="h" > <a name="626">626</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # End previous page </td> </tr> <tr> <td class="h" > <a name="627">627</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> $self->collect("showpage\n"); </td> </tr> <tr> <td class="h" > <a name="628">628</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> $self->{visible_page_number}++; </td> </tr> <tr> <td class="h" > <a name="629">629</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> $self->{pageno}++; </td> </tr> <tr> <td class="h" > <a name="630">630</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="631">631</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="632">632</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="633">633</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub newpage { </td> </tr> <tr> <td class="h" > <a name="634">634</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#634-1"> 6 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#634-1"> 0 </a> </td> <td > 8 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="635">635</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="636">636</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> local $self->{'pointsize'} = $self->{'pointsize'}; </td> </tr> <tr> <td class="h" > <a name="637">637</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="638">638</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # That's needed for protecting against one bit of the </td> </tr> <tr> <td class="h" > <a name="639">639</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # potential side-effects from page-numbering code </td> </tr> <tr> <td class="h" > <a name="640">640</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="641">641</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#641-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> if ( $self->{'out'} ) { # whether we've sent anything to the current page so far. </td> </tr> <tr> <td class="h" > <a name="642">642</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Newpage calls endpage... </td> </tr> <tr> <td class="h" > <a name="643">643</a> </td> <td class="c0" > <a href="#644"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->endpage; </td> </tr> <tr> <td class="h" > <a name="644">644</a> </td> <td class="c0" > <a href="#662"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->collect( sprintf "%% %s has sent %s write-events to the above page.\n", ref($self), $self->{'out'}, ); </td> </tr> <tr> <td class="h" > <a name="645">645</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="646">646</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="647">647</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> $self->{'out'} = 0; </td> </tr> <tr> <td class="h" > <a name="648">648</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my $pageno = $self->{pageno}; </td> </tr> <tr> <td class="h" > <a name="649">649</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> my $visible_page_number = $self->{visible_page_number}; </td> </tr> <tr> <td class="h" > <a name="650">650</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="651">651</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 32 </td> <td class="s"> $self->collect("\n%%Page: $pageno $pageno\n"); </td> </tr> <tr> <td class="h" > <a name="652">652</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Starting page: $pageno </td> </tr> <tr> <td class="h" > <a name="653">653</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="654">654</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Print page number </td> </tr> <tr> <td class="h" > <a name="655">655</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#655-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> if ( $self->{printpageno} ) { </td> </tr> <tr> <td class="h" > <a name="656">656</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Printing page number: $visible_page_number </td> </tr> <tr> <td class="h" > <a name="657">657</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> $self->collect("%% Title and pageno\n"); </td> </tr> <tr> <td class="h" > <a name="658">658</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> my $f = $self->findfont(8); </td> </tr> <tr> <td class="h" > <a name="659">659</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#659-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 36 </td> <td class="s"> $self->collect("$f\n") if $f; </td> </tr> <tr> <td class="h" > <a name="660">660</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> my $x = $self->{paperwidth}; </td> </tr> <tr> <td class="h" > <a name="661">661</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#661-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> if ($x) { $x -= 30; } </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="662">662</a> </td> <td class="c0" > <a href="#834"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> else { $x = 30; } </td> </tr> <tr> <td class="h" > <a name="663">663</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 51 </td> <td class="s"> $self->collect( sprintf "%.1f 30.0 M($visible_page_number)S\n", $x ); </td> </tr> <tr> <td class="h" > <a name="664">664</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $x = $self->{lm}; </td> </tr> <tr> <td class="h" > <a name="665">665</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> $self->{title} =~ tr/\x01//d; </td> </tr> <tr> <td class="h" > <a name="666">666</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 57 </td> <td class="s"> $self->collect( sprintf "%.1f 30.0 M($self->{title})S\n", $x ); </td> </tr> <tr> <td class="h" > <a name="667">667</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="668">668</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="669">669</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Pointedly not printing page number... </td> </tr> <tr> <td class="h" > <a name="670">670</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="671">671</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> $self->collect("\n"); </td> </tr> <tr> <td class="h" > <a name="672">672</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="673">673</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> $self->{xpos} = $self->{lm}; </td> </tr> <tr> <td class="h" > <a name="674">674</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> $self->{ypos} = $self->{tm}; </td> </tr> <tr> <td class="h" > <a name="675">675</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #### Newpage/end x: $self->{xpos} </td> </tr> <tr> <td class="h" > <a name="676">676</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #### Newpage/end y: $self->{ypos} </td> </tr> <tr> <td class="h" > <a name="677">677</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="678">678</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="679">679</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="680">680</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub encode_string { # converts string into latin1 charset </td> </tr> <tr> <td class="h" > <a name="681">681</a> </td> <td class="c3" > 854 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#681-1"> 854 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#681-1"> 0 </a> </td> <td > 815 </td> <td class="s"> my ( $self, $str ) = @_; </td> </tr> <tr> <td class="h" > <a name="682">682</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="683">683</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # the string from the parser is normally unicode, and may contain </td> </tr> <tr> <td class="h" > <a name="684">684</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # some punctuation characters in the 'General Punctuation' block </td> </tr> <tr> <td class="h" > <a name="685">685</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # which can be expressed in latin1, but Encode module fails on them </td> </tr> <tr> <td class="h" > <a name="686">686</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # so we will manually hack these... </td> </tr> <tr> <td class="h" > <a name="687">687</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Theres no usable latin1 for the double quote chars so map to " </td> </tr> <tr> <td class="h" > <a name="688">688</a> </td> <td class="c3" > 854 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#688-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1583 </td> <td class="s"> if ( utf8::is_utf8($str) ) { </td> </tr> <tr> <td class="h" > <a name="689">689</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#689-1"> 2 </a> </td> <td >   </td> <td > 13 </td> <td class="s"> $str =~ tr/\x{2018}\x{2019}\x{201A}\x{201C}\x{201D}\x{201F}\x{2033}\x{2036}/`',"""""/; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 32 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 64 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 110 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="690">690</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="691">691</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="692">692</a> </td> <td class="c3" > 854 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2760 </td> <td class="s"> return $self->{encoder}->encode($str); </td> </tr> <tr> <td class="h" > <a name="693">693</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="694">694</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="695">695</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="696">696</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub out { # Output a word </td> </tr> <tr> <td class="h" > <a name="697">697</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#697-1"> 823 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#697-1"> 0 </a> </td> <td > 821 </td> <td class="s"> my ( $self, $text ) = @_; </td> </tr> <tr> <td class="h" > <a name="698">698</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="699">699</a> </td> <td class="c3" > 823 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 901 </td> <td class="s"> $text =~ tr/\xA0\xAD/ /d; </td> </tr> <tr> <td class="h" > <a name="700">700</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ### Trapping new word: $text </td> </tr> <tr> <td class="h" > <a name="701">701</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="702">702</a> </td> <td class="c3" > 823 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#702-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1345 </td> <td class="s"> if ( $self->{collectingTheTitle} ) { </td> </tr> <tr> <td class="h" > <a name="703">703</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="704">704</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Both collect and print the title </td> </tr> <tr> <td class="h" > <a name="705">705</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> $text =~ s/([\(\)\\])/\\$1/g; # Escape parens and the backslash </td> </tr> <tr> <td class="h" > <a name="706">706</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->{title} .= $text; </td> </tr> <tr> <td class="h" > <a name="707">707</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="708">708</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="709">709</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="710">710</a> </td> <td class="c3" > 816 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1011 </td> <td class="s"> my $fontid = $self->setfont(); </td> </tr> <tr> <td class="h" > <a name="711">711</a> </td> <td class="c3" > 816 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1123 </td> <td class="s"> my $w = $self->width($text); </td> </tr> <tr> <td class="h" > <a name="712">712</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="713">713</a> </td> <td class="c3" > 816 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#713-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 2224 </td> <td class="s"> if ( $text =~ /^\s*$/ ) { </td> </tr> <tr> <td class="h" > <a name="714">714</a> </td> <td class="c3" > 409 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 718 </td> <td class="s"> $self->{hspace} = [ " ", $fontid, $w ]; </td> </tr> <tr> <td class="h" > <a name="715">715</a> </td> <td class="c3" > 409 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 789 </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="716">716</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="717">717</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="718">718</a> </td> <td class="c3" > 407 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 644 </td> <td class="s"> $self->skip_vspace; </td> </tr> <tr> <td class="h" > <a name="719">719</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="720">720</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # determine spacing / line breaks needed before text </td> </tr> <tr> <td class="h" > <a name="721">721</a> </td> <td class="c3" > 407 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#721-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 656 </td> <td class="s"> if ( $self->{hspace} ) { </td> </tr> <tr> <td class="h" > <a name="722">722</a> </td> <td class="c3" > 384 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 293 </td> <td class="s"> my ( $stext, $sfont, $swidth ) = @{ $self->{hspace} }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 384 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 584 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="723">723</a> </td> <td class="c3" > 384 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#723-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 667 </td> <td class="s"> if ( $self->{xpos} + $swidth + $w > $self->{rm} ) { </td> </tr> <tr> <td class="h" > <a name="724">724</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="725">725</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # line break </td> </tr> <tr> <td class="h" > <a name="726">726</a> </td> <td class="c3" > 11 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s"> $self->showline; </td> </tr> <tr> <td class="h" > <a name="727">727</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="728">728</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="729">729</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="730">730</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # no line break; output a space </td> </tr> <tr> <td class="h" > <a name="731">731</a> </td> <td class="c3" > 373 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 511 </td> <td class="s"> $self->show_with_font( $stext, $sfont, $swidth ); </td> </tr> <tr> <td class="h" > <a name="732">732</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="733">733</a> </td> <td class="c3" > 384 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 424 </td> <td class="s"> $self->{hspace} = undef; </td> </tr> <tr> <td class="h" > <a name="734">734</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="735">735</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="736">736</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # output the text </td> </tr> <tr> <td class="h" > <a name="737">737</a> </td> <td class="c3" > 407 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 671 </td> <td class="s"> $self->show_with_font( $text, $fontid, $w ); </td> </tr> <tr> <td class="h" > <a name="738">738</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="739">739</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="740">740</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="741">741</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub show_with_font { </td> </tr> <tr> <td class="h" > <a name="742">742</a> </td> <td class="c3" > 780 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#742-1"> 780 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#742-1"> 0 </a> </td> <td > 864 </td> <td class="s"> my ( $self, $text, $fontid, $w ) = @_; </td> </tr> <tr> <td class="h" > <a name="743">743</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="744">744</a> </td> <td class="c3" > 780 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 937 </td> <td class="s"> my $fontps = $self->switchfont($fontid); </td> </tr> <tr> <td class="h" > <a name="745">745</a> </td> <td class="c3" > 780 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#745-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1187 </td> <td class="s"> if ( length $fontps ) { </td> </tr> <tr> <td class="h" > <a name="746">746</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> $self->show; </td> </tr> <tr> <td class="h" > <a name="747">747</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> $self->{line} .= "$fontps\n"; </td> </tr> <tr> <td class="h" > <a name="748">748</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="749">749</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="750">750</a> </td> <td class="c3" > 780 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 691 </td> <td class="s"> $self->{xpos} += $w; </td> </tr> <tr> <td class="h" > <a name="751">751</a> </td> <td class="c3" > 780 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 702 </td> <td class="s"> $self->{showstring} .= $text; </td> </tr> <tr> <td class="h" > <a name="752">752</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="753">753</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #### Append to string buffer: $text </td> </tr> <tr> <td class="h" > <a name="754">754</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #### with font: $fontid </td> </tr> <tr> <td class="h" > <a name="755">755</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #### with xpos: $self->{xpos} </td> </tr> <tr> <td class="h" > <a name="756">756</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="757">757</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{largest_pointsize} = $self->{pointsize} </td> </tr> <tr> <td class="h" > <a name="758">758</a> </td> <td class="c3" > 780 </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#758-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1186 </td> <td class="s"> if $self->{largest_pointsize} < $self->{pointsize}; </td> </tr> <tr> <td class="h" > <a name="759">759</a> </td> <td class="c3" > 780 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1302 </td> <td class="s"> $self->{'out'}++; </td> </tr> <tr> <td class="h" > <a name="760">760</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="761">761</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="762">762</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="763">763</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pre_out { </td> </tr> <tr> <td class="h" > <a name="764">764</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#764-1"> 1 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#764-1"> 0 </a> </td> <td > 3 </td> <td class="s"> my ( $self, $text ) = @_; </td> </tr> <tr> <td class="h" > <a name="765">765</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="766">766</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->skip_vspace; </td> </tr> <tr> <td class="h" > <a name="767">767</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->tt_start; </td> </tr> <tr> <td class="h" > <a name="768">768</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> my $font = $self->findfont(); </td> </tr> <tr> <td class="h" > <a name="769">769</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#769-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> if ( length $font ) { </td> </tr> <tr> <td class="h" > <a name="770">770</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->show; </td> </tr> <tr> <td class="h" > <a name="771">771</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{line} .= "$font\n"; </td> </tr> <tr> <td class="h" > <a name="772">772</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="773">773</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> while ( $text =~ s/(.*)\n// ) { </td> </tr> <tr> <td class="h" > <a name="774">774</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'out'}++; </td> </tr> <tr> <td class="h" > <a name="775">775</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->{showstring} .= $1; </td> </tr> <tr> <td class="h" > <a name="776">776</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->showline; </td> </tr> <tr> <td class="h" > <a name="777">777</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="778">778</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> $self->{showstring} .= $text; </td> </tr> <tr> <td class="h" > <a name="779">779</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->tt_end; </td> </tr> <tr> <td class="h" > <a name="780">780</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="781">781</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="782">782</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="783">783</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="784">784</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub bullet { </td> </tr> <tr> <td class="h" > <a name="785">785</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#785-1"> 4 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#785-1"> 0 </a> </td> <td > 49 </td> <td class="s"> my ( $self, $bullet ) = @_; </td> </tr> <tr> <td class="h" > <a name="786">786</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="787">787</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{bullet} = $bullet; </td> </tr> <tr> <td class="h" > <a name="788">788</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> $self->{bullet_pos} = $self->{lm}; </td> </tr> <tr> <td class="h" > <a name="789">789</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="790">790</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="791">791</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="792">792</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub adjust_lm { </td> </tr> <tr> <td class="h" > <a name="793">793</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#793-1"> 14 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#793-1"> 0 </a> </td> <td > 17 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="794">794</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="795">795</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> $self->showline; </td> </tr> <tr> <td class="h" > <a name="796">796</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="797">797</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> $self->{lm} += $_[0] * $self->{en}; </td> </tr> <tr> <td class="h" > <a name="798">798</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 24 </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="799">799</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="800">800</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="801">801</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="802">802</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub adjust_rm { </td> </tr> <tr> <td class="h" > <a name="803">803</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#803-1"> 2 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#803-1"> 0 </a> </td> <td > 4 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="804">804</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="805">805</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->showline; </td> </tr> <tr> <td class="h" > <a name="806">806</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="807">807</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> $self->{rm} += $_[0] * $self->{en}; </td> </tr> <tr> <td class="h" > <a name="808">808</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="809">809</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="810">810</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="811">811</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#811-1"> 6 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#811-1"> 0 </a> </td> <td > 11 </td> <td class="s"> sub head_start { 1; } </td> </tr> <tr> <td class="h" > <a name="812">812</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#812-1"> 6 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#812-1"> 0 </a> </td> <td > 12 </td> <td class="s"> sub head_end { 1; } </td> </tr> <tr> <td class="h" > <a name="813">813</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="814">814</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub title_start { </td> </tr> <tr> <td class="h" > <a name="815">815</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#815-1"> 1 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#815-1"> 0 </a> </td> <td > 2 </td> <td class="s"> my ($self) = @_; </td> </tr> <tr> <td class="h" > <a name="816">816</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="817">817</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1 </td> <td class="s"> $self->{collectingTheTitle} = 1; </td> </tr> <tr> <td class="h" > <a name="818">818</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="819">819</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="820">820</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="821">821</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub title_end { </td> </tr> <tr> <td class="h" > <a name="822">822</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#822-1"> 1 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#822-1"> 0 </a> </td> <td > 2 </td> <td class="s"> my ($self) = @_; </td> </tr> <tr> <td class="h" > <a name="823">823</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="824">824</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1 </td> <td class="s"> $self->{collectingTheTitle} = 0; </td> </tr> <tr> <td class="h" > <a name="825">825</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="826">826</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="827">827</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="828">828</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="829">829</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ( $counter, $last_state_filename ); </td> </tr> <tr> <td class="h" > <a name="830">830</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="831">831</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # For use in circumstances of total desperation: </td> </tr> <tr> <td class="h" > <a name="832">832</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="833">833</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub dump_state { </td> </tr> <tr> <td class="h" > <a name="834">834</a> </td> <td class="c0" > <a href="#835"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#834-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--subroutine.html#834-1"> 0 </a> </td> <td >   </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="835">835</a> </td> <td class="c0" > <a href="#837"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> require Data::Dumper; </td> </tr> <tr> <td class="h" > <a name="836">836</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="837">837</a> </td> <td class="c0" > <a href="#838"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ++$counter; </td> </tr> <tr> <td class="h" > <a name="838">838</a> </td> <td class="c0" > <a href="#839"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $filename = sprintf( "state%04d.txt", $counter ); </td> </tr> <tr> <td class="h" > <a name="839">839</a> </td> <td class="c0" > <a href="#840"> 0 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#839-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $state = IO::File->new( $filename, 'w' ) or die "Can't write-open $filename: $!"; </td> </tr> <tr> <td class="h" > <a name="840">840</a> </td> <td class="c0" > <a href="#842"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $state->printf( "%s line %s\n", ( caller(1) )[ 3, 2 ] ); </td> </tr> <tr> <td class="h" > <a name="841">841</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> { </td> </tr> <tr> <td class="h" > <a name="842">842</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> local ( $self->{'wx'} ) = '<SUPPRESSED>'; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#843"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="843">843</a> </td> <td class="c0" > <a href="#844"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> local ( $self->{'output'} ) = '<SUPPRESSED>'; </td> </tr> <tr> <td class="h" > <a name="844">844</a> </td> <td class="c0" > <a href="#846"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $state->print( Data::Dumper::Dumper($self) ); </td> </tr> <tr> <td class="h" > <a name="845">845</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="846">846</a> </td> <td class="c0" > <a href="#847"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $state->close; </td> </tr> <tr> <td class="h" > <a name="847">847</a> </td> <td class="c0" > <a href="#849"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sleep 0; </td> </tr> <tr> <td class="h" > <a name="848">848</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="849">849</a> </td> <td class="c0" > <a href="#850"> 0 </a> </td> <td class="c0" > <a href="blib-lib-HTML-FormatPS-pm--branch.html#849-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($last_state_filename) { </td> </tr> <tr> <td class="h" > <a name="850">850</a> </td> <td class="c0" > <a href="#853"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> system("perl -S diff.bat $last_state_filename $filename > $filename.diff"); </td> </tr> <tr> <td class="h" > <a name="851">851</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="852">852</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="853">853</a> </td> <td class="c0" > <a href="#854"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $last_state_filename = $filename; </td> </tr> <tr> <td class="h" > <a name="854">854</a> </td> <td class="c0" > 0 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return 1; </td> </tr> <tr> <td class="h" > <a name="855">855</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="856">856</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="857">857</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ------------------------------------------------------------------------ </td> </tr> <tr> <td class="h" > <a name="858">858</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="859">859</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="860">860</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="861">861</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="862">862</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> __END__ </td> </tr> </table> </body> </html>