[File: perldemo/gapbar.pl] (The CGI version is available as "perldemo_cgi/gapbar.pl".)
#!/usr/bin/perl
use perlchartdir;
sub createChart
{
my $img = shift;
my $bargap = $img * 0.25 - 0.25;
#The data for the bar chart
my $data = [100, 125, 245, 147, 67];
#The labels for the bar chart
my $labels = ["Mon", "Tue", "Wed", "Thu", "Fri"];
#Create a XYChart object of size 150 x 150 pixels
my $c = new XYChart(150, 150);
#Set the plotarea at (27, 20) and of size 120 x 100 pixels
$c->setPlotArea(27, 20, 120, 100);
#Set the labels on the x axis
$c->xAxis()->setLabels($labels);
if ($bargap >= 0) {
#Add a title to display to bar gap using 8 pts Arial font
$c->addTitle(" Bar Gap = $bargap", "arial.ttf", 8);
} else {
#Use negative value to mean TouchBar
$c->addTitle(" Bar Gap = TouchBar", "arial.ttf", 8);
$bargap = $perlchartdir::TouchBar;
}
#Add a bar chart layer using the given data and set the bar gap
$c->addBarLayer($data)->setBarGap($bargap);
#output the chart
$c->makeChart("gapbar$img.png")
}
createChart(0);
createChart(1);
createChart(2);
createChart(3);
createChart(4);
createChart(5);
|
© 2003 Advanced Software Engineering Limited. All rights reserved.