Simple Pie Chart

This example demonstrates the basic steps in creating pie charts.

Create a pie chart object using PieChart.PieChart.
Specify the center and size of the pyramid using PieChart.setPieSize.
Specify the data used to draw the pie using PieChart.setData.
Generate the chart using BaseChart.makeChart.
Generate tool tips for the chart using BaseChart.getHTMLImageMap.

perldemo\simplepie.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 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");