ChartDirector 7.0 (Perl Edition)

Bar Labels




This example extends the Simple Bar Chart (1) example by including bar labels on the bars, and decorating the bars with rounded corners and gradient shading.

Source Code Listing

perldemo\barlabel.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"]; # 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 blue (0x6699bb) bar chart layer using the given data my $layer = $c->addBarLayer($data, 0x6699bb); # Use bar gradient lighting with the light intensity from 0.8 to 1.3 $layer->setBorderColor($perlchartdir::Transparent, perlchartdir::barLighting(0.8, 1.3)); # Set rounded corners for bars $layer->setRoundedCorners(); # Display labela on top of bars using 12pt Arial font $layer->setAggregateLabelStyle("Arial", 12); # 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 Bold font $c->yAxis()->setTitle("Y-Axis Title Placeholder", "Arial Bold", 14, 0x555555); # Output the chart $c->makeChart("barlabel.png");