#!/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 chart
my $dataY0 = [4, 4.5, 5, 5.25, 5.75, 5.25, 5, 4.5, 4, 3, 2.5, 2.5];
my $dataX0 = [perlchartdir::chartTime(1997, 1, 1), perlchartdir::chartTime(1998, 6, 25),
perlchartdir::chartTime(1999, 9, 6), perlchartdir::chartTime(2000, 2, 6),
perlchartdir::chartTime(2000, 9, 21), perlchartdir::chartTime(2001, 3, 4),
perlchartdir::chartTime(2001, 6, 8), perlchartdir::chartTime(2002, 2, 4),
perlchartdir::chartTime(2002, 5, 19), perlchartdir::chartTime(2002, 8, 16),
perlchartdir::chartTime(2002, 12, 1), perlchartdir::chartTime(2003, 1, 1)];
my $dataY1 = [7, 6.5, 6, 5, 6.5, 7, 6, 5.5, 5, 4, 3.5, 3.5];
my $dataX1 = [perlchartdir::chartTime(1997, 1, 1), perlchartdir::chartTime(1997, 7, 1),
perlchartdir::chartTime(1997, 12, 1), perlchartdir::chartTime(1999, 1, 15),
perlchartdir::chartTime(1999, 6, 9), perlchartdir::chartTime(2000, 3, 3),
perlchartdir::chartTime(2000, 8, 13), perlchartdir::chartTime(2001, 5, 5),
perlchartdir::chartTime(2001, 9, 16), perlchartdir::chartTime(2002, 3, 16),
perlchartdir::chartTime(2002, 6, 1), perlchartdir::chartTime(2003, 1, 1)];
# Create a XYChart object of size 500 x 270 pixels, with a pale blue (e0e0ff) background, black
# border, 1 pixel 3D border effect and rounded corners
my $c = new XYChart(600, 300, 0xe0e0ff, 0x000000, 1);
$c->setRoundedFrame();
# Set the plotarea at (55, 60) and of size 520 x 200 pixels, with white (ffffff) background. Set
# horizontal and vertical grid lines to grey (cccccc).
$c->setPlotArea(50, 60, 525, 200, 0xffffff, -1, -1, 0xcccccc, 0xcccccc);
# Add a legend box at (55, 32) (top of the chart) with horizontal layout. Use 9pt Arial Bold font.
# Set the background and border color to Transparent.
$c->addLegend(55, 32, 0, "arialbd.ttf", 9)->setBackground($perlchartdir::Transparent);
# Add a title box to the chart using 15pt Times Bold Italic font. The text is white (ffffff) on a
# deep blue (000088) background, with soft lighting effect from the right side.
$c->addTitle("Long Term Interest Rates", "timesbi.ttf", 15, 0xffffff)->setBackground(0x000088, -1,
perlchartdir::softLighting($perlchartdir::Right));
# Set the y axis label format to display a percentage sign
$c->yAxis()->setLabelFormat("{value}%");
# Add a red (ff0000) step line layer to the chart and set the line width to 2 pixels
my $layer0 = $c->addStepLineLayer($dataY0, 0xff0000, "Country AAA");
$layer0->setXData($dataX0);
$layer0->setLineWidth(2);
# Add a blue (0000ff) step line layer to the chart and set the line width to 2 pixels
my $layer1 = $c->addStepLineLayer($dataY1, 0x0000ff, "Country BBB");
$layer1->setXData($dataX1);
$layer1->setLineWidth(2);
# Output the chart
$c->makeChart("stepline.png") |
