#!/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;
In reply to Re: GD::Graph Problems: Missing "built-in" font & AUTOLOAD deprecation
by Khen1950fx
in thread GD::Graph Problems: Missing "built-in" font & AUTOLOAD deprecation
by kurta
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |