GD::Graphic

Hi, Everybody. I'm trying to set a graphic with two axes and
two data
sets for each axis. I'm using GD::Graph. The trouble is:
when I load
the graphic (.png), the y2 axis (right) disappear. I don't
know what's
happening. Somebody could help? bellow is the code.

#!/usr/bin/perl -w

use GD::Graph::mixed;
data
= (
   
["1st","2nd","3rd","4th&q
uot;,"5th","6th","7th",
"8th", "9th"],
    [    3,   4,   14,   30,   12,    8,    7,    20,   
15],
    [    2,   8,    2,    5,    3,  1,    3,     4,     1],
    [    5,   12,   24,   33,   19,    8,    6,    15,   
21],
    [    1,    2,    5,    6,    3,  1.5,    1,     3,    
4],
);

$my_graph = new GD::Graph::mixed( );
$my_graph->set(
        x_label => 'X Label',
        y1_label => 'Y1 label',
        y2_label => 'Y2 label',
        title => 'Using two axes',
        y1_max_value => 40,
        y2_max_value => 8,
        y_tick_number => 8,
        y_label_skip => 2,
        long_ticks => 1,
        two_axes => 1,
		use_axis => [1,2,1,2],
        legend_placement => 'BR',
        x_labels_vertical => 1,
        x_label_position => 1/2,
);

$my_graph->set_legend( 'X', 'XY', 'diff-X/XY', '95%XY');
my $gd = $my_graph->plot(data) or die
$my_graph->error;
open(IMG, '>graphTest.gif') or die "Não posso abrir
arquivo$!n";
binmode IMG;
print IMG $gd->gif;
close IMG;


--~--~---------~--~----~------------~-------~--~----~
 You received this message because you are subscribed to the
Google Groups "Perl Programming" group.
To post to this group, send email to perl-programminggooglegroups.com
To unsubscribe from this group, send email to
perl-programming-unsubscribegooglegroups.com
For more options, visit this group at 
http://groups-beta.google.com/group/perl-programming
-~----------~----~----~----~------~----~------~--~---