#!/usr/bin/perl
# In the sample code, the ChartDirector for Perl module is assumed to be in "../lib"
use File::Basename;
use lib (dirname($0)."/../lib") =~ /(.*)/;
use perlchartdir;
# The data for the area chart
my $data0 = [42, 49, 33, 38, 51, 46, 29, 41, 44, 57, 59, 52, 37, 34, 51, 56, 56, 60, 70, 76, 63, 67,
75, 64, 51];
my $data1 = [50, 55, 47, 34, 42, 49, 63, 62, 73, 59, 56, 50, 64, 60, 67, 67, 58, 59, 73, 77, 84, 82,
80, 84, 98];
my $data2 = [87, 89, 85, 66, 53, 39, 24, 21, 37, 56, 37, 23, 21, 33, 13, 17, 14, 23, 16, 25, 29, 30,
45, 47, 46];
# The timestamps on the x-axis
my $labels = [perlchartdir::chartTime(1996, 1, 1), perlchartdir::chartTime(1996, 4, 1),
perlchartdir::chartTime(1996, 7, 1), perlchartdir::chartTime(1996, 10, 1),
perlchartdir::chartTime(1997, 1, 1), perlchartdir::chartTime(1997, 4, 1),
perlchartdir::chartTime(1997, 7, 1), perlchartdir::chartTime(1997, 10, 1),
perlchartdir::chartTime(1998, 1, 1), perlchartdir::chartTime(1998, 4, 1),
perlchartdir::chartTime(1998, 7, 1), perlchartdir::chartTime(1998, 10, 1),
perlchartdir::chartTime(1999, 1, 1), perlchartdir::chartTime(1999, 4, 1),
perlchartdir::chartTime(1999, 7, 1), perlchartdir::chartTime(1999, 10, 1),
perlchartdir::chartTime(2000, 1, 1), perlchartdir::chartTime(2000, 4, 1),
perlchartdir::chartTime(2000, 7, 1), perlchartdir::chartTime(2000, 10, 1),
perlchartdir::chartTime(2001, 1, 1), perlchartdir::chartTime(2001, 4, 1),
perlchartdir::chartTime(2001, 7, 1), perlchartdir::chartTime(2001, 10, 1),
perlchartdir::chartTime(2002, 1, 1)];
# Create a XYChart object of size 500 x 280 pixels, using 0xffffcc as background color, with a black
# border, and 1 pixel 3D border effect
my $c = new XYChart(500, 280, 0xffffcc, 0, 1);
# Set the plotarea at (50, 45) and of size 320 x 200 pixels with white background. Enable horizontal
# and vertical grid lines using the grey (0xc0c0c0) color.
$c->setPlotArea(50, 45, 320, 200, 0xffffff)->setGridColor(0xc0c0c0, 0xc0c0c0);
# Add a legend box at (370, 45) using vertical layout and 8 points Arial Bold font.
my $legendBox = $c->addLegend(370, 45, 1, "arialbd.ttf", 8);
# Set the legend box background and border to transparent
$legendBox->setBackground($perlchartdir::Transparent, $perlchartdir::Transparent);
# Set the legend box icon size to 16 x 32 pixels to match with custom icon size
$legendBox->setKeySize(16, 32);
# Add a title to the chart using 14 points Times Bold Itatic font and white font color, and 0x804020
# as the background color
$c->addTitle("Quarterly Product Sales", "timesbi.ttf", 14, 0xffffff)->setBackground(0x804020);
# Set the labels on the x axis.
$c->xAxis()->setLabels2($labels);
# Set multi-style axis label formatting. Start of year labels are displayed as yyyy. For other
# labels, just show minor tick.
$c->xAxis()->setMultiFormat(perlchartdir::StartOfYearFilter(), "{value|yyyy}",
perlchartdir::AllPassFilter(), "-");
# Add a percentage area layer to the chart
my $layer = $c->addAreaLayer2($perlchartdir::Percentage);
# Add the three data sets to the area layer, using icons images with labels as data set names
$layer->addDataSet($data0, 0x40ddaa77, "<*block,valign=absmiddle*><*img=service.png*> Service<*/*>")
;
$layer->addDataSet($data1, 0x40aadd77,
"<*block,valign=absmiddle*><*img=software.png*> Software<*/*>");
$layer->addDataSet($data2, 0x40aa77dd,
"<*block,valign=absmiddle*><*img=computer.png*> Hardware<*/*>");
# For a vertical stacked chart with positive data only, the last data set is always on top. However,
# in a vertical legend box, the last data set is at the bottom. This can be reversed by using the
# setLegend method.
$layer->setLegend($perlchartdir::ReverseLegend);
# Output the chart
$c->makeChart("percentarea.png") |
