ChartDirector Ver 3.0 (Perl Edition)

Multi-Color Bar Chart




A multi-color bar chart is a bar chart in which each bar has a different color. This example creates a multi-color bar chart and demonstrates the following ChartDirector features:

Source Code Listing

[File: perldemo/colorbar.pl] (The CGI version is available as "perldemo_cgi/colorbar.pl".)
#!/usr/bin/perl use perlchartdir; #The data for the bar chart my $data = [85, 156, 179.5, 211, 123]; #The labels for the bar chart my $labels = ["Mon", "Tue", "Wed", "Thu", "Fri"]; #The colors for the bar chart my $colors = [0xb8bc9c, 0xa0bdc4, 0x999966, 0x333366, 0xc3c3e6]; #Create a XYChart object of size 260 x 220 pixels my $c = new XYChart(260, 220); #Set the background color of the chart to gold (goldGradient). Use a 2 pixel 3D #border. $c->setBackground($c->gradientColor($perlchartdir::goldGradient), -1, 2); #Add a title box using 10 point Arial Bold font. Set the background color to #blue metallic (blueMetalGradient). Use a 1 pixel 3D border. $c->addTitle("Daily Network Load", "arialbd.ttf", 10)->setBackground( $c->gradientColor($perlchartdir::blueMetalGradient), -1, 1); #Set the plotarea at (40, 40) and of 200 x 150 pixels in size $c->setPlotArea(40, 40, 200, 150); #Add a multi-color bar chart layer using the given data and colors. Use a 1 #pixel 3D border for the bars. $c->addBarLayer3($data, $colors)->setBorderColor(-1, 1); #Set the x axis labels using the given labels $c->xAxis()->setLabels($labels); #output the chart $c->makeChart("colorbar.png")