ChartDirector Ver 3.0 (Perl Edition)

Bar Gap


          

This example demonstrates the effects of different bar gaps configured using BarLayer.setBarGap.

Source Code Listing

[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);