Re: GD::Graph Problems: Missing "built-in" font & AUTOLOAD deprecation

[Khen1950fx]

in reply to GD::Graph Problems: Missing "built-in" font & AUTOLOAD deprecation

Your script didn't work for me, so I rearranged it. You had forgotten to include a few details. Give this a try:

#!/usr/bin/perl

use strict;
use warnings;
use GD;
use GD::Text;
use GD::Graph::lines;

my $graph = GD::Graph::lines->new();
$graph->set_x_label_font('/fonts/arial.ttf', 12);
$graph->set_y_label_font('/fonts/arial.ttf', 12);
$graph->set_x_axis_font( '/fonts/arial.ttf', 12);
$graph->set_y_axis_font( '/fonts/arial.ttf', 12);
$graph->set_values_font( '/fonts/arial.ttf', 12);
$graph->set_title_font ( '/fonts/arial.ttf', 12);
$graph->set_legend_font( '/fonts/arial.ttf', 12);

my  @data = ( 
    ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
    [    1,    2,    5,    6,    3,  1.5,    1,     3,     4],
    [ sort { $a <=> $b } (1, 2, 5, 6, 3, 1.5, 1, 3, 4) ]
  );

$graph->set( 
    x_label       => 'X Label',
    y_label       => 'Y label',
    title         => 'Some simple graph',
    y_max_value   => 8,
    y_min_value   => -6,
    y_tick_number => 14,
    y_label_skip  => 2,
    box_axis      => 0,
    line_width    => 3,
    transparent   => 0,   
) or die $graph->error;

my $gd = $graph->plot(\@data) or die $graph->error;
open(IMG, '>file.png') or die $!;
binmode IMG;
print IMG $gd->png;

[kurta]

If the "missing details" were the "use strict" and "warn" directives, I excluded them as irrelevant to the code sample. If there was some other element, could you be more specific?