Errata

PNGs for which file sizes are given are 24-bit images; they
would be comparable to or smaller than the GIFs if saved as
8-bit indexed images (e.g., use gif2png to convert and
optionally pngcrush to optimize)

the upper left and lower right (not left)

Integration Project should be http://perl.apache.org

If you are working on a platform that makes a distinction
between text and binary files (such as Windows 95/NT), be
sure that you are writing in binary mode by calling the
binmode() method first."

But on page 96 it reads

On Unix systems, you can pipe the image data to an image
viewer, such as xv or the display utility that comes with
ImageMagick.

Yet in the example that soon follows is the binmode statement advised
for Windows 95/NT systems.

On a UNIX system it doesn't matter whether the filehandle is in
binary mode or not. It won't hurt anything, but it doesn't do anything
either. Remove from future printings.

twice, in 2. and 3. of the "setBrush()" section

($whitest)

to

($mostestwhitest)

corresponds with the set of default Ghostscript fonts with
have AFM files:

Should say


corresponds with the set of default Ghostscript fonts
with AFM files:

The first line reads:


currently fonts currently supported by PostScript::Metrics

Should be

fonts currently supported by PostScript::Metrics

the Write() subroutine of the TextBlock module that required
a patch. They both have to do with proper word wrapping. One
problem was that words would not always line up against the
left margin due to white space that remained attached to the
font of a word when we'd gone over the limit and the word had
to be pushed back for later processing. In this case, we would
want to remove the leading white space. Below is the updated
version of the code section that covers this.

# If we've gone over, push the word back on
# for later processing.
#
if ( ($wcount>$w) || ($word =~ s/
//) ) {
if ($word =~ /^ /) { $word =~ s/^[ ]+//; }
# This line is the patch
unshift @words, $word;
last LINE;
}

The other problem had to do with the section of code that determined
if there were any remaining words that needed to be put back for later
processing. The existing code does the logical check:

if ($#words) {
$element->{text} = join '', @words;
}

but "$#words" returns the subscript of the last element in @words, NOT
the number of elements. Instead, use the code:

my $numWords = @words;
if ($numWords) {
$element->{text} = join '', @words;
}

Under linetint and filltint it reads:


with 1 as black and 0 as white.

It should be

with 1 as white and 0 as black