view release on metacpan or  search on metacpan

examples/3d_bar_ttf_1.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use GD::Chart;

## Needs truetype support compiled in to work...

## Data on Oceans
## - Need to add legend afterwards

my(@data) = (
[180, 106, 75],
[724, 355, 292]
);
my(@labels) = ("Pacific Ocean", "Atlantic Ocean", "Indian Ocean");
my(@colours) = (hex 'bbccdd', hex 'aaffcc', hex 'ddaabb');

my(%opts) = (
	data	=> \@data,
	labels	=> \@labels,
	colours	=> \@colours,
	chart_type	=> $GD::Chart::GDC_3DBAR,
	image_type	=> $GD::Chart::GDC_PNG,
	title		=> "Area and Volume Of Oceans",
	bgcolour	=> hex 'ffffff',
	ytitle		=> "millions km^2/km^3",
	ytitle2		=> "millions km^3",
        xaxis_font      => "/usr/X/lib/X11/fonts/TrueType/Vera.ttf",
	xaxis_ptsize	=> 12,
        xaxis_angle     => 45,
);

my $chart = new GD::Chart(350, 350);

my $note = new GD::Chart::note("Also Artic Ocean", hex '00bbff', 1, $GD::Chart::GDC_TINY);

$chart->note($note);
$chart->options(\%opts);

$chart->filename("3d_bar_ttf_1.png");

$chart->draw();

exit;