Icon Pie Chart (1)

This example demonstrates using CDML and Parameter Substitution and Formatting to include icons in sector labels. It also demonstrates gradient background color, glass shading effect for the title and rounded corners for the chart frame.

The gradient background color is created using perlchartdir::metalColor, with blue as the base color, and in vertical orientation.
The rounded frame is configured using BaseChart.setRoundedFrame.
The glass shading effect of the title is defined using perlchartdir::glassEffect, then applied to the title using Box.setBackground of the title TextBox object.
The icons file names are added to the chart as an extra field using BaseChart.addExtraField.
The sector label format string is specified using CDML and Parameter Substitution and Formatting as:

<*block,valign=absmiddle*><*img={field0}*> <*block*>{label}<*br*>{percent}%<*/*><*/*>

This means that the sector label is a block, which contains an image followed by another text block. The image file is taken from the extra field. The text block contains two lines showing the sector name and percentage.
The format string is applied to the chart using PieChart.setLabelFormat.

[Standalone Version] perldemo\iconpie.pl

#!/usr/bin/perl

# In the sample code, 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 = [72, 18, 15, 12];

# The depths for the sectors
my $depths = [30, 20, 10, 10];

# The labels for the pie chart
my $labels = ["Sunny", "Cloudy", "Rainy", "Snowy"];

# The icons for the sectors
my $icons = ["sun.png", "cloud.png", "rain.png", "snowy.png"];

# Create a PieChart object of size 400 x 310 pixels, with a blue (CCCCFF) vertical metal gradient
# background, black border, 1 pixel 3D border effect and rounded corners
my $c = new PieChart(400, 310, perlchartdir::metalColor(0xccccff, 0), 0x000000, 1);
$c->setRoundedFrame();

# Set the center of the pie at (200, 180) and the radius to 100 pixels
$c->setPieSize(200, 180, 100);

# Add a title box using 15pt Times Bold Italic font, on a blue (CCCCFF) background with glass effect
$c->addTitle("Weather Profile in Wonderland", "timesbi.ttf", 15)->setBackground(0xccccff, 0x000000,
    perlchartdir::glassEffect());

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

# Add icons to the chart as a custom field
$c->addExtraField($icons);

# Configure the sector labels using CDML to include the icon images
$c->setLabelFormat(
    "<*block,valign=absmiddle*><*img={field0}*> <*block*>{label}\n{percent}%<*/*><*/*>");

# Draw the pie in 3D with variable 3D depths
$c->set3D2($depths);

# Set the start angle to 225 degrees may improve layout when the depths of the sector are sorted in
# descending order, because it ensures the tallest sector is at the back.
$c->setStartAngle(225);

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

[CGI Version] perldemo_cgi\iconpie.pl

#!/usr/bin/perl

# In the sample code, 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 = [72, 18, 15, 12];

# The depths for the sectors
my $depths = [30, 20, 10, 10];

# The labels for the pie chart
my $labels = ["Sunny", "Cloudy", "Rainy", "Snowy"];

# The icons for the sectors
my $icons = ["sun.png", "cloud.png", "rain.png", "snowy.png"];

# Create a PieChart object of size 400 x 310 pixels, with a blue (CCCCFF) vertical metal gradient
# background, black border, 1 pixel 3D border effect and rounded corners
my $c = new PieChart(400, 310, perlchartdir::metalColor(0xccccff, 0), 0x000000, 1);
$c->setRoundedFrame();

#Set directory for loading images to current script directory
#Need when running under Microsoft IIS
$c->setSearchPath(dirname($0));

# Set the center of the pie at (200, 180) and the radius to 100 pixels
$c->setPieSize(200, 180, 100);

# Add a title box using 15pt Times Bold Italic font, on a blue (CCCCFF) background with glass effect
$c->addTitle("Weather Profile in Wonderland", "timesbi.ttf", 15)->setBackground(0xccccff, 0x000000,
    perlchartdir::glassEffect());

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

# Add icons to the chart as a custom field
$c->addExtraField($icons);

# Configure the sector labels using CDML to include the icon images
$c->setLabelFormat(
    "<*block,valign=absmiddle*><*img={field0}*> <*block*>{label}\n{percent}%<*/*><*/*>");

# Draw the pie in 3D with variable 3D depths
$c->set3D2($depths);

# Set the start angle to 225 degrees may improve layout when the depths of the sector are sorted in
# descending order, because it ensures the tallest sector is at the back.
$c->setStartAngle(225);

# Output the chart
binmode(STDOUT);
print "Content-type: image/png\n\n";
print $c->makeChart2($perlchartdir::PNG);