Display GD graph on the screen.

[Funny Perl]

I just start to learn perl on GD graph. My OS is Linux.

I got a example, but how can I display the graph on the screen ? use
Gtk2 or something else?

Hereis is the code:

#!/usr/bin/perl  -w
use GD;

my $gd = GD::Image->new(400,300);

my $white  = $gd->colorAllocate(255, 255, 255);
my $black  = $gd->colorAllocate(  0,   0,   0);
my $red    = $gd->colorAllocate(255,   0,   0);
my $green  = $gd->colorAllocate(  0, 255,   0);
my $blue   = $gd->colorAllocate(  0,   0, 255);
my $yellow = $gd->colorAllocate(255, 255,   0);

$gd->filledRectangle(0, 129, 199, 169, $blue);

my $poly = GD::Polygon->new();
$poly->addPt(199, 149);
$poly->addPt(399,  74);
$poly->addPt(324, 149);
$poly->addPt(399, 224);
$gd->filledPolygon($poly, $yellow);
$gd->polygon      ($poly, $black);
$gd->arc(199, 149, 250, 250, 0, 360, $red);


Thanks in advance.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/