GIFgraph

 view release on metacpan or  search on metacpan

samples/sample12.pl  view on Meta::CPAN

	x_label => 'X Label',
	y_label => 'Y label',
	title => 'Two data sets',
	long_ticks => 1,
	y_max_value => 40,
	y_tick_number => 8,
	y_label_skip => 2,
	bar_spacing => 4,
);

$my_graph->set_legend( 'Data set 1', 'Data set 2' );

$my_graph->plot_to_gif( "sample12.gif", \@data );

exit;

samples/sample15.pl  view on Meta::CPAN

$my_graph->set( 
	x_label => 'X Label',
	y_label => 'Y label',
	title => 'Stacked Bars (incremental)',
	y_max_value => 50,
	y_tick_number => 10,
	y_label_skip => 2,
	overwrite => 2,
);

$my_graph->set_legend( qw(offset increment more));

$my_graph->plot_to_gif( "sample15.gif", \@data );

exit;

samples/sample16.pl  view on Meta::CPAN

	x_label => 'Day',
	y_label => 'AUD',
	title => 'Credits and Debits',
	y_max_value => 35,
	y_min_value => -15,
	y_tick_number => 10,
	y_label_skip => 2,
	overwrite => 1, 
	dclrs => [ qw( green lred ) ],
	axislabelclr => 'black',
	legend_placement => 'RB',
	zero_axis_only => 0,
	x_number_format => \&x_format,
	y_number_format => \&y_format,
	x_label_position => 1/2,
);

$my_graph->set_legend( 'credits', 'debets' );

$my_graph->plot_to_gif( "sample16.gif", \@data );

exit;

# Just to prove that it can be done
sub x_format
{
	print "$_[0]\n";
	reverse shift;

samples/sample21.pl  view on Meta::CPAN

$my_graph->set( 
	x_label => 'X Label',
	y_label => 'Y label',
	title => 'An Area Graph',
	y_max_value => 40,
	y_tick_number => 8,
	y_label_skip => 2,
);

$my_graph->set_legend( 'one', 'two' );

$my_graph->plot_to_gif( "sample21.gif", \@data );

exit;

samples/sample22.pl  view on Meta::CPAN

my $my_graph = new GIFgraph::area();

$my_graph->set(
        x_label => 'X',
        y_label => 'Y',
		y_tick_number => 'auto',
        title => 'Incremental Area graph trick',
);

$my_graph->set_legend( 'base + set1 + set2', 'base + set 1', 'base' );

$my_graph->plot_to_gif( "sample22.gif", \@data );

exit;

sub make_data
{
	my @data;

	# Foreach data row

samples/sample31.pl  view on Meta::CPAN

my $my_graph = new GIFgraph::points();

$my_graph->set( 
	x_label => 'X Label',
	y_label => 'Y label',
	title => 'A Points Graph',
	y_max_value => 40,
	y_tick_number => 8,
	y_label_skip => 2, 
	legend_placement => 'RC',
	long_ticks => 1,
	marker_size => 6,
	markers => [ 1, 7, 5 ],
);

$my_graph->set_legend( qw( one two ) );

$my_graph->plot_to_gif( "sample31.gif", \@data );

exit;

samples/sample41.pl  view on Meta::CPAN

	title => 'A Lines and Points Graph',
	y_max_value => 80,
	y_tick_number => 6,
	y_label_skip => 2,
	markers => [ 1, 5 ],

	logo => 'logo.gif',
	logo_position => 'LL',
);

$my_graph->set_legend( 'data set 1', 'data set 2' );

$my_graph->plot_to_gif( "sample41.gif", \@data );

exit;

samples/sample42.pl  view on Meta::CPAN

$my_graph->set( 
	x_label => 'X Label',
	y_label => 'Y label',
	title => 'A Lines and Points Graph, reading a CSV file',
	y_max_value => 80,
	y_tick_number => 6,
	y_label_skip => 2,
	markers => [ 1, 5 ],
);

$my_graph->set_legend( 'data set 1', 'data set 2' );

$my_graph->plot_to_gif( "sample42.gif", \@data );

exit;

sub read_data_from_csv
{
	my $fn = shift;
	my @d = ();

samples/sample53.pl  view on Meta::CPAN

	y_max_value => 10,
	y_min_value => -5,
	y_tick_number => 3,
	y_label_skip => 1,
	zero_axis_only => 0,
	long_ticks => 1,
	x_ticks => 0,
	dclrs => [ qw( darkorchid2 mediumvioletred deeppink darkturquoise ) ],
	line_types => [ 1, 2, 3, 4 ],
	line_type_scale => 8,
	legend_marker_width => 24,
	line_width => 3,
);

$my_graph->set_legend( 'one', 'two', undef, 'four' );

$my_graph->plot_to_gif( "sample53.gif", \@data );

exit;

samples/sample54.pl  view on Meta::CPAN

	y_label_skip => 4,

	x_tick_number => 'auto',

	box_axis => 0,
	line_width => 2,
	x_label_position => 1/2,
	r_margin => 15,
);

$my_graph->set_legend('Thanks to Scott Prahl');

$my_graph->plot_to_gif( "sample54.gif", \@data );

exit;

sub read_data
{
	my $fn = shift;
	my @d = ();

samples/sample55.pl  view on Meta::CPAN

	x_label				=> 'Angle (Radians)',
	y_label				=> 'Trig Function Value',
	x_tick_number		=> 'auto',
	y_tick_number		=> 'auto',
	title				=> 'Sine and Cosine',
	line_width			=> 1,
	x_label_position	=> 1/2,
	r_margin			=> 15,
);

$my_graph->set_legend('Thanks to Scott Prahl');

$my_graph->plot_to_gif( "sample55.gif", \@data );

exit;

sub read_data
{
	my $fn = shift;
	my @d = ();

samples/sample61.pl  view on Meta::CPAN

	y_max_value => 10,
	y_min_value => -5,
	y_tick_number => 3,
	y_label_skip => 1,
	x_plot_values => 0,
	y_plot_values => 0,

	long_ticks => 1,
	x_ticks => 0,

	legend_marker_width => 24,
	line_width => 3,
	marker_size => 5,

	bar_spacing => 8,
);

$my_graph->set_legend( qw( one two three four five six ) );

$my_graph->plot_to_gif( "sample61.gif", \@data );

samples/sample62.pl  view on Meta::CPAN

	y1_label => 'Y1 label',
	y2_label => 'Y2 label',
	title => 'A Mixed Type Graph with Two Axes',
	two_axes => 1,
	y1_max_value => 10,
	y2_max_value => 2.5,
	y_min_value => 0,
	y_tick_number => 5,
	long_ticks => 1,
	x_ticks => 0,
	legend_marker_width => 24,
	line_width => 5,

	bar_spacing => 4,

	types => [ qw( bars lines ) ],
);

$my_graph->set_legend( qw( one two three four five six ) );

$my_graph->plot_to_gif( "sample62.gif", \@data );

exit;