#!/usr/bin/perl
use perlchartdir;
#The data for the chart
my $data0 = [600, 800, 1200, 1500, 1800, 1900, 2000, 1950];
my $data1 = [300, 450, 500, 1000, 1500, 1600, 1650, 1600];
#The labels for the chart
my $labels = ["1995", "1996", "1997", "1998", "1999", "2000", "2001", "2002"];
#Create a XYChart object of size 450 x 250 pixels, with a pale yellow (0xffffc0)
#background, a black border, and 1 pixel 3D border effect.
my $c = new XYChart(450, 250, 0xffffc0, 0, 1);
#Set the plotarea at (60, 45) and of size 360 x 170 pixels, using white
#(0xffffff) as the plot area background color. Turn on both horizontal and
#vertical grid lines with light grey color (0xc0c0c0)
$c->setPlotArea(60, 45, 360, 170, 0xffffff, -1, -1, 0xc0c0c0, -1);
#Add a legend box at (60, 20) (top of the chart) with horizontal layout. Use 8
#pts Arial Bold font. Set the background and border color to Transparent.
$c->addLegend(60, 20, 0, "arialbd.ttf", 8)->setBackground(
$perlchartdir::Transparent);
#Add a title to the chart using 12 pts Arial Bold/white font. Use a 1 x 2 bitmap
#pattern as the background.
$c->addTitle("Information Resource Usage", "arialbd.ttf", 12, 0xffffff
)->setBackground($c->patternColor([0x40, 0x80], 2));
#Set the labels on the x axis
$c->xAxis()->setLabels($labels);
#Reserve 8 pixels margins at both side of the x axis to avoid the first and last
#symbols drawing outside of the plot area
$c->xAxis()->setMargin(8, 8);
#Add a title to the y axis
$c->yAxis()->setTitle("Population");
#Add a line layer to the chart
my $layer = $c->addLineLayer2();
#Add the first line using small_user.png as the symbol.
$layer->addDataSet($data0, 0xcf4040, "Users")->setDataSymbol2("small_user.png");
#Add the first line using small_computer.png as the symbol.
$layer->addDataSet($data1, 0x40cf40, "Computers")->setDataSymbol2(
"small_computer.png");
#Set the line width to 3 pixels
$layer->setLineWidth(3);
#output the chart
$c->makeChart("customsymbolline.png")
|