I was able to get it fixed. Here's what I did in case someone else runs into
the same problem:
Changed from these lines:
my $image = new GD::Image(401,201); (btw: this line is different than what
is found in the text)
$image->trueColor();
to these lines:
my $image = new GD::Image->new(401,201);
Clint
On Wednesday June 4 2003 10:51 pm, Clint wrote:
> I am new to Perl and trying to learn graphics by the examples given in
> Shaun Wallace's Perl Graphics Programming. I'm using Perl 5.8 and have
> installed GD and GD::Graph using CPAN. I've checked to verify both modules
> are installed using a "findmodules" script I found elsewhere, and here is a
> snippet with the versions:
>
> GD -- 1.41
> GD::Graph -- 1.35
>
> Next I copied the following example script from the author's supporting
> page at O'Reilly's site:
>
> ----------------------------------
> #!/usr/bin/perl -w
> # Example 2-1. Hello world in GD
>
> use strict;
> use GD;
>
> my $image = new GD::Image(401,201);
> $image->trueColor();
> my $gray = $image->colorAllocate(200, 200, 200);
> my $red = $image->colorAllocate(255, 0, 0);
> my $black = $image->colorAllocate(0, 0, 0);
>
> # Draw a field of polka dots with random diameters
>
> foreach my $i (0..10) {
> foreach my $j (0..5) {
> my $d = rand(50)+1;
> $image->arc($i*40, $j*40, $d, $d, 0, 360, $red);
> $image->fill($i*40, $j*40, $red);
> }
> }
>
> # Draw the text in black
>
> my ($x1, $y1, $x2, $y2,
> $x3, $y3, $x4, $y4) = $image->stringFT($black,
> "/home/shawn/arial.ttf", 48, 0, 40, 120, "Hello World");
>
> # Outline the text with a black box
>
> $image->rectangle($x1-10, $y1+10, $x3+10, $y3-10, $black);
>
> print $image->png;
> ----------------------------------
>
> After that, I chmod a+x, and then tried to execute it. Here is the error
> message that I'm getting:
>
> $ ./example2-1
> Can't locate object method "trueColor" via package "GD::Image" at
> ./example2-1 line 8.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
