#!/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 $dataY = [1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1];
my $dataX = [perlchartdir::chartTime(2008, 7, 1, 0, 0, 0), perlchartdir::chartTime(2008, 7, 1, 2,
17, 2), perlchartdir::chartTime(2008, 7, 1, 8, 5, 30), perlchartdir::chartTime(2008, 7, 1, 10,
54, 10), perlchartdir::chartTime(2008, 7, 1, 15, 40, 0), perlchartdir::chartTime(2008, 7, 1, 18,
22, 20), perlchartdir::chartTime(2008, 7, 1, 22, 17, 14), perlchartdir::chartTime(2008, 7, 2, 2,
55, 50), perlchartdir::chartTime(2008, 7, 2, 8, 17, 14), perlchartdir::chartTime(2008, 7, 2, 11,
55, 50), perlchartdir::chartTime(2008, 7, 2, 13, 17, 14), perlchartdir::chartTime(2008, 7, 2,
17, 55, 50), perlchartdir::chartTime(2008, 7, 2, 20, 17, 14), perlchartdir::chartTime(2008, 7,
3, 0, 0, 0)];
# In this example, we only use position 1, 3, 5 for the data series. Positions 0, 2, 4, 6 are empty
# and serve as gaps.
my $labels = ["", "ON Only Filling", "",
"<*font,color=cc2200*>ON<*/font*> / <*font,color=00aa22*>OFF<*/font*> Filling", "",
"Logic Line", ""];
# Create a XYChart object of size 600 x 180 pixels
my $c = new XYChart(600, 180);
# Add a title to the chart using 10 points Arial Bold font. Set top/bottom margins to 12 pixels.
my $title = $c->addTitle("Binary Data Series Demonstration", "arialbd.ttf", 10);
# Tentatively set the plotarea at (100, 30) and of size 470 x 120 pixels. Use transparent border.
# Use grey (888888) solid line and light grey (ccccc) dotted line as major and minor vertical grid
# lines.
$c->setPlotArea(100, 30, 470, 120, -1, -1, $perlchartdir::Transparent)->setGridColor(
$perlchartdir::Transparent, 0x888888, $perlchartdir::Transparent, $c->dashLineColor(0xcccccc,
$perlchartdir::DotLine));
# Set axes to transparent
$c->xAxis()->setColors($perlchartdir::Transparent);
$c->yAxis()->setColors($perlchartdir::Transparent);
# Set the y axis labels
$c->yAxis()->setLabels($labels);
# Set y-axis label style to 8pt Arial Bold
$c->yAxis()->setLabelStyle("arialbd.ttf", 8);
# Set x-axis major and minor tick density to 50 and 5 pixels. ChartDirector auto-scaling will use
# this as the guideline when putting ticks on the x-axis.
$c->xAxis()->setTickDensity(50, 5);
# Use "<*font=Arial Bold*>{value|mmm dd}" for the first label of an hour, and "{value|hh:nn}" for
# all other labels.
$c->xAxis()->setMultiFormat(perlchartdir::StartOfDayFilter(), "<*font=arialbd.ttf*>{value|mmm dd}",
perlchartdir::AllPassFilter(), "{value|hh:nn}");
#
# A Logic Line can be achieved using a StepLineLayer in ChartDirector
#
# Shift the data by 4.5, so instead of 0 - 1, it is now 4.5 to 5.5, or fluctuate around the y = 5
# (Logic Line label) position.
my $shiftedLine0 = new ArrayMath($dataY)->add(4.5)->result();
# Add step lines using the original and the reversed data
my $layer0 = $c->addStepLineLayer($shiftedLine0, 0x0000ff);
$layer0->setXData($dataX);
#
# To perform ON/OFF filling, we draw the logic line, and its reverse, and fill the region in between
#
# Shift the data by 2.5, so instead of 0 - 1, it is now 2.5 to 3.5, or fluctuate around the y = 3
# (ON/OFF Filing label) position.
my $shiftedLine1 = new ArrayMath($dataY)->add(2.5)->result();
# Reverse the data, so the 0 becomes 1 and 1 becomes 0, and shift it as well.
my $reverseShiftedLine1 = new ArrayMath($dataY)->mul(-1)->add(3.5)->result();
# Add step lines using the original and the reversed data
my $layer1 = $c->addStepLineLayer($shiftedLine1, $perlchartdir::Transparent);
$layer1->addDataSet($reverseShiftedLine1, $perlchartdir::Transparent);
$layer1->setXData($dataX);
# Fill the region between the two step lines with green (00aa22) or red (cc2200), depending on
# whether the original or the reserve is higher.
$c->addInterLineLayer($layer1->getLine(0), $layer1->getLine(1), 0x00aa22, 0xcc2200);
#
# The ON Only filling is the same as ON/OFF filling, except the OFF filling color is transparent
#
# Shift the data by 0.5, so instead of 0 - 1, it is now 0.5 to 1.5, or fluctuate around the y = 1
# (ON Only Filing label) position.
my $shiftedLine2 = new ArrayMath($dataY)->add(0.5)->result();
# Reverse the data, so the 0 becomes 1 and 1 becomes 0, and shift it as well.
my $reverseShiftedLine2 = new ArrayMath($dataY)->mul(-1)->add(1.5)->result();
# Add step lines using the original and the reversed data
my $layer2 = $c->addStepLineLayer($shiftedLine2, $perlchartdir::Transparent);
$layer2->addDataSet($reverseShiftedLine2, $perlchartdir::Transparent);
$layer2->setXData($dataX);
# Fill the region between the two step lines with green (00aa22) or transparent, depending on
# whether the original or the reserve is higher.
$c->addInterLineLayer($layer2->getLine(0), $layer2->getLine(1), 0x00aa22, $perlchartdir::Transparent
);
# Adjust the plot area size, such that the bounding box (inclusive of axes) is 10 pixels from the
# left edge, 10 pixels below the title, 30 pixels from the right edge, and 10 pixels above the
# bottom edge.
$c->packPlotArea(10, $title->getHeight() + 10, $c->getWidth() - 30, $c->getHeight() - 10);
# Output the chart
$c->makeChart("binaryseries.png") |
