Simple Pyramid Chart

This example demonstrates the basic steps in creating pyramid charts.

Create a PyramidChart object using PyramidChart.PyramidChart.
Specify the center and radius of the pie using PyramidChart.setPyramidSize.
Specify the data used to draw the pie using PyramidChart.setData.
Add labels at the center of the pyramid layers using PyramidChart.setCenterLabel
Generate the chart using BaseChart.makeChart.
Generate tool tips for the chart using BaseChart.getHTMLImageMap.

perldemo\simplepyramid.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 pyramid chart
my $data = [156, 123, 211, 179];

# The labels for the pyramid chart
my $labels = ["Funds", "Bonds", "Stocks", "Cash"];

# Create a PyramidChart object of size 360 x 360 pixels
my $c = new PyramidChart(360, 360);

# Set the pyramid center at (180, 180), and width x height to 150 x 180 pixels
$c->setPyramidSize(180, 180, 150, 300);

# Set the pyramid data and labels
$c->setData($data, $labels);

# Add labels at the center of the pyramid layers using Arial Bold font. The labels will have two
# lines showing the layer name and percentage.
$c->setCenterLabel("{label}\n{percent}%", "Arial Bold");

# Output the chart
$c->makeChart("simplepyramid.png");