1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| my $graph = GD::Graph::lines->new(400, 300);
$graph->set_title_font('/fonts/verdana.ttf', 18);
my $nb = 10;
#my $gd;
$graph->set(labelclr => lred);
$graph->set(
x_label => $datas->{XLABEL},
y_label => $datas->{YLABEL},
title => $titleGraph,
y_max_value => 8,
y_tick_number => 10,
y_label_skip => 0
) or die $graph->error;
for ($i=0;$i<$nbProf;$i++){
for ($m=0;$m<$#{$datas->{XXXX_CORRECTED}[$i]};$m++){
$donnees[0][$m] = $datas->{XXXX_CORRECTED}[$m];
$donnees[1][$m] = -$datas->{PRES_CORRECTED}[$m];
}
my $gd = $graph->plot(\@donnees) or die $graph->error;
}
}
$essai = ">".$pathFileName;
print "nom fichier : $essai\n";
open(IMG, $essai) or die $!;
binmode IMG;
print IMG $gd->png;
close IMG |
Partager