This example demonstrates the basic steps in creating pyramid charts.
[Standalone Version] perldemo\simplepyramid.pl
#!/usr/bin/perl
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}%", "arialbd.ttf");
# Output the chart
$c->makeChart("simplepyramid.png") |
[CGI Version] perldemo_cgi\simplepyramid.pl
#!/usr/bin/perl
# Include current script directory in the module path (needed on Microsoft IIS).
# This allows this script to work by copying ChartDirector to the same directory
# as the script (as an alternative to installation in Perl module directory)
use File::Basename;
use lib dirname($0) =~ /(.*)/;
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}%", "arialbd.ttf");
# Output the chart
binmode(STDOUT);
print "Content-type: image/png\n\n";
print $c->makeChart2($perlchartdir::PNG); |
© 2012 Advanced Software Engineering Limited. All rights reserved.