Multi-Color Bar Chart (2)

perldemo\colorbar2.pl
#!/usr/bin/perl

# 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 bar chart
my $data = [85, 156, 179, 211, 123, 189, 166];

# The labels for the bar chart
my $labels = ["Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun"];

# The colors for the bars
my $colors = [0x5588bb, 0x66bbbb, 0xaa6644, 0x99bb55, 0xee9944, 0x444466, 0xbb5555];

# Create a XYChart object of size 600 x 360 pixels
my $c = new XYChart(600, 360);

# Set the plotarea at (70, 20) and of size 500 x 300 pixels, with transparent background and border
# and light grey (0xcccccc) horizontal grid lines
$c->setPlotArea(70, 20, 500, 300, $perlchartdir::Transparent, -1, $perlchartdir::Transparent,
    0xcccccc);

# Set the x and y axis stems to transparent and the label font to 12pt Arial
$c->xAxis()->setColors($perlchartdir::Transparent);
$c->yAxis()->setColors($perlchartdir::Transparent);
$c->xAxis()->setLabelStyle("Arial", 12);
$c->yAxis()->setLabelStyle("Arial", 12);

# Add a multi-color bar chart layer using the given data
my $layer = $c->addBarLayer3($data, $colors);

# Use bar gradient lighting with the light intensity from 0.8 to 1.15
$layer->setBorderColor($perlchartdir::Transparent, perlchartdir::barLighting(0.8, 1.15));

# Set rounded corners for bars
$layer->setRoundedCorners();

# Set the labels on the x axis.
$c->xAxis()->setLabels($labels);

# For the automatic y-axis labels, set the minimum spacing to 40 pixels.
$c->yAxis()->setTickDensity(40);

# Add a title to the y axis using dark grey (0x555555) 14pt Arial font
$c->yAxis()->setTitle("Y-Axis Title Placeholder", "Arial", 14, 0x555555);

# Output the chart
$c->makeChart("colorbar2.png");