RE: Making a line graph

[Ian Robertson]

Chuck,

This is fantastic, thanks so much for your efforts! 

I really appreciate the help.

Ian.

-----Original Message-----
From: Charbeneau, Chuck [mailto:[EMAIL PROTECTED]] 
Sent: 04 December 2002 14:32
To: 'Ian Robertson'; [EMAIL PROTECTED]
Subject: RE: Making a line graph

> From: Ian Robertson [mailto:[EMAIL PROTECTED]] 
> Subject: Making a line graph


> I need to write a script to produce a line graph 
> (quick and dirty to prove a point)!
 
>Can anybody recommend the best module to use?

The Chart module offers a quick interface.

C-.

<CODE>

use strict;
use Chart::Lines;     
my $outfile = '<PATH TO PNG>\graphoutput.png';

my @LEGENDS = qw (SetOne SetTwo SetThree SetFour) ;
my @plotdata = (
                ["First", "Second", "Third", "Fourth", "Fifth",
"Sixth"],
                [12, 9, 2, 23, 9, -2],
                [1, 3, 5, 7, 9, 11],                
                [3, 17, 7, 9, 11, 13],
                [0, 12, 0, 12, 0, 12],
                );
my $graph = Chart::Lines->new (640,480) or die $!;;
   $graph->set(
            grid_lines => 'true',
            title => 'Title of my Graph',
            dclrs => [qw(
                        lred lorange lyellow lgreen lblue lpurple
                        dred  orange dyellow dgreen dblue dpurple
                        )],
           );
$graph->set ('legend_labels' => \@LEGENDS);
$graph->png($outfile, \@plotdata);

</CODE>

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs