ChartDirector Ver 3.0 (Perl Edition)

Simple Pie Chart




In this example, a very simple pie chart is created demonstrating the basic steps in creating pie charts.

Source Code Listing

[File: perldemo/simplepie.pl] (The CGI version is available as "perldemo_cgi/simplepie.pl".)
#!/usr/bin/perl use perlchartdir; #The data for the pie chart my $data = [25, 18, 15, 12, 8, 30, 35]; #The labels for the pie chart my $labels = ["Labor", "Licenses", "Taxes", "Legal", "Insurance", "Facilities", "Production"]; #Create a PieChart object of size 360 x 300 pixels my $c = new PieChart(360, 300); #Set the center of the pie at (180, 140) and the radius to 100 pixels $c->setPieSize(180, 140, 100); #Set the pie data and the pie labels $c->setData($data, $labels); #output the chart $c->makeChart("simplepie.png")