ChartDirector 7.0 (Perl Edition)

Multi-Color Bar Chart (2)




This example extends the Multi-Color Bar Chart (1) example by decorating the the bars with rounded corners and gradient shading.

Source Code Listing

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