* changed t31tic_color.t to check against different images based on the presence...
[imager-graph.git] / lib / Imager / Graph / Bar.pm
CommitLineData
f0b01a81 1package Imager::Graph::Bar;
2
3=head1 NAME
4
5 Imager::Graph::Bar - a tool for drawing bar charts on Imager images
6
7=head1 SYNOPSIS
8
267997be 9 use Imager::Graph::Bar;
10 use Imager::Font;
11
12 my $font = Imager::Font->new(file => '/path/to/font.ttf') || die "Error: $!";
13
14 my $graph = Imager::Graph::Bar->new();
15 $graph->set_image_width(900);
16 $graph->set_image_height(600);
17 $graph->set_font($font);
18 $graph->use_automatic_axis();
19 $graph->show_legend();
20
21 my @data = (1, 2, 3, 5, 7, 11);
22 my @labels = qw(one two three five seven eleven);
23
24 $graph->add_data_series(\@data, 'Primes');
25 $graph->set_labels(\@labels);
26
27 my $img = $graph->draw() || die $graph->error;
28
29 $img->write(file => 'bars.png');
30
31
f0b01a81 32
33=cut
34
35use strict;
36use vars qw(@ISA);
37use Imager::Graph::Horizontal;
38@ISA = qw(Imager::Graph::Horizontal);
39
40sub _get_default_series_type {
41 return 'bar';
42}
43
441;
45