* changed t31tic_color.t to check against different images based on the presence...
[imager-graph.git] / lib / Imager / Graph / Column.pm
1 package Imager::Graph::Column;
2
3 =head1 NAME
4
5   Imager::Graph::Column - a tool for drawing column charts on Imager images
6
7 =head1 SYNOPSIS
8
9   use Imager::Graph::Column;
10   use Imager::Font;
11
12   my $font = Imager::Font->new(file => '/path/to/font.ttf') || die "Error: $!";
13
14   my $graph = Imager::Graph::Column->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 => 'columns.png');
30
31
32 =cut
33
34 use strict;
35 use vars qw(@ISA);
36 use Imager::Graph::Vertical;
37 @ISA = qw(Imager::Graph::Vertical);
38
39 sub _get_default_series_type {
40   return 'column';
41 }
42
43 1;
44