#!/usr/bin/perl
use perlchartdir;
# Data for the chart
my $data0 = [1700, 3900, 2900, 3800, 4100, 4600, 2900, 4100, 4400, 5700, 5900, 5200,
3700, 3400, 5100, 5600, 5600, 6000, 7000, 7600, 6300, 6700, 7500, 6400, 8800];
my $data1 = [500, 550, 670, 990, 820, 730, 800, 720, 730, 790, 860, 800, 840, 680,
740, 890, 680, 790, 730, 770, 840, 820, 800, 840, 670];
my $data2 = [46, 68, 35, 33, 38, 20, 12, 18, 15, 23, 30, 24, 28, 15, 21, 26, 46, 42,
38, 25, 23, 32, 24, 20, 25];
my $data3 = [0.84, 0.82, 0.82, 0.38, 0.25, 0.52, 0.54, 0.52, 0.38, 0.51, 0.46, 0.29,
0.5, 0.55, 0.47, 0.34, 0.52, 0.33, 0.21, 0.3, 0.25, 0.15, 0.18, 0.22, 0.14];
# Labels for the chart
my $labels = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12",
"13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"];
# Create a XYChart object of size 600 x 300 pixels, with a grey (eeeeee) background,
# a black border, and 1 pixel 3D border effect
my $c = new XYChart(600, 300, 0xeeeeee, 0x000000, 1);
# Add a title box to the chart using 15 pts Arial Bold Italic font, with blue
# (aaaaff) background
$c->addTitle("Multiple Axes Demonstration", "arialbi.ttf", 15)->setBackground(
0xaaaaff);
# Set the plotarea at (100, 70) and of size 400 x 180 pixels, with white background.
# Turn on both horizontal and vertical grid lines with light grey color (cccccc)
$c->setPlotArea(100, 70, 400, 180, 0xffffff)->setGridColor(0xcccccc, 0xcccccc);
# Add a legend box at (300, 70) (top center of the chart) with horizontal layout. Use
# 8 pts Arial Bold font. Set the background and border color to Transparent.
my $legendBox = $c->addLegend(300, 70, 0, "arialbd.ttf", 8);
$legendBox->setAlignment($perlchartdir::BottomCenter);
$legendBox->setBackground($perlchartdir::Transparent, $perlchartdir::Transparent);
# Set the labels on the x axis.
$c->xAxis()->setLabels($labels);
# Display 1 out of 3 labels on the x-axis.
$c->xAxis()->setLabelStep(3);
# Add a title to the x-axis
$c->xAxis()->setTitle("Hour of Day");
# Add a title on top of the primary (left) y axis.
$c->yAxis()->setTitle("Power\n(Watt)")->setAlignment($perlchartdir::TopLeft2);
# Set the axis, label and title colors for the primary y axis to red (c00000) to
# match the first data set
$c->yAxis()->setColors(0xcc0000, 0xcc0000, 0xcc0000);
# Add a title on top of the secondary (right) y axis.
$c->yAxis2()->setTitle("Load\n(Mbps)")->setAlignment($perlchartdir::TopRight2);
# Set the axis, label and title colors for the secondary y axis to green (00800000)
# to match the second data set
$c->yAxis2()->setColors(0x008000, 0x008000, 0x008000);
# Add the third y-axis at 50 pixels to the left of the plot area
my $leftAxis = $c->addAxis($perlchartdir::Left, 50);
# Add a title on top of the third y axis.
$leftAxis->setTitle("Temp\n(C)")->setAlignment($perlchartdir::TopLeft2);
# Set the axis, label and title colors for the third y axis to blue (0000cc) to match
# the third data set
$leftAxis->setColors(0x0000cc, 0x0000cc, 0x0000cc);
# Add the fouth y-axis at 50 pixels to the right of the plot area
my $rightAxis = $c->addAxis($perlchartdir::Right, 50);
# Add a title on top of the fourth y axis.
$rightAxis->setTitle("Error\n(%)")->setAlignment($perlchartdir::TopRight2);
# Set the axis, label and title colors for the fourth y axis to purple (880088) to
# match the fourth data set
$rightAxis->setColors(0x880088, 0x880088, 0x880088);
# Add a line layer to for the first data set using red (c00000) color, with a line
# width of 2 pixels
my $layer0 = $c->addLineLayer($data0, 0xcc0000, "Power");
$layer0->setLineWidth(2);
# Add a line layer to for the second data set using green (00c0000) color, with a
# line width of 2 pixels. Bind the layer to the secondary y-axis.
my $layer1 = $c->addLineLayer($data1, 0x008000, "Load");
$layer1->setLineWidth(2);
$layer1->setUseYAxis2();
# Add a line layer to for the third data set using blue (0000cc) color, with a line
# width of 2 pixels. Bind the layer to the third y-axis.
my $layer2 = $c->addLineLayer($data2, 0x0000cc, "Temperature");
$layer2->setLineWidth(2);
$layer2->setUseYAxis($leftAxis);
# Add a line layer to for the fourth data set using purple (880088) color, with a
# line width of 2 pixels. Bind the layer to the fourth y-axis.
my $layer3 = $c->addLineLayer($data3, 0x880088, "Error Rate");
$layer3->setLineWidth(2);
$layer3->setUseYAxis($rightAxis);
# output the chart
$c->makeChart("multiaxes.png") |