ChartDirector Ver 3.0 (Perl Edition)

Simple Bar Chart




This example demonstrates the following basic steps in creating a bar chart:

Source Code Listing

[File: perldemo/simplebar.pl] (The CGI version is available as "perldemo_cgi/simplebar.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"]; #Create a XYChart object of size 250 x 250 pixels my $c = new XYChart(250, 250); #Set the plotarea at (30, 20) and of size 200 x 200 pixels $c->setPlotArea(30, 20, 200, 200); #Add a bar chart layer using the given data $c->addBarLayer($data); #Set the x axis labels using the given labels $c->xAxis()->setLabels($labels); #output the chart $c->makeChart("simplebar.png")