Icon Pie Chart (2)

This example extends the Icon Pie Chart (1) example to demonstrate using CDML to include multiple fonts and colors in chart title, sector labels and to draw logo. It also demonstrates silver background color, rounded corners, and glass shading effect for title.

The silver background is achieved by using perlchartdir::silverColor to create the silver color, then use it in PieChart.PieChart as the chart background color.
The rounded frame is configured using BaseChart.setRoundedFrame.
The title containing multiple fonts and colors is written in CDML and added to the chart using BaseChart.addTitle.
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 logo designed using CDML is added to the chart as another title using BaseChart.addTitle2 with BottomRight alignment.
The icons file names for sector labels 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}*> {label} ({percent|0}%)

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

[Standalone Version] perldemo\iconpie2.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 = [28, 45, 5, 1, 12];

# The labels for the pie chart
my $labels = ["Excellent", "Good", "Bad", "Very Bad", "Neutral"];

# The icons for the sectors
my $icons = ["laugh.png", "smile.png", "sad.png", "angry.png", "nocomment.png"];

# Create a PieChart object of size 560 x 300 pixels, with a silver background, black border, 1 pxiel
# 3D border effect and rounded corners
my $c = new PieChart(560, 300, perlchartdir::silverColor(), 0x000000, 1);
$c->setRoundedFrame();

# Set the center of the pie at (280, 150) and the radius to 120 pixels
$c->setPieSize(280, 150, 120);

# Add a title box with title written in CDML, on a sky blue (A0C8FF) background with glass effect
$c->addTitle(
    "<*block,valign=absmiddle*><*img=doc.png*> Customer Survey: <*font=timesi.ttf,color=000000*>".
    "Do you like our <*font,color=dd0000*>Hyper<*super*>TM<*/font*> molecules?", "timesbi.ttf", 15,
    0x000080)->setBackground(0xa0c8ff, 0x000000, perlchartdir::glassEffect());

# Add a logo to the chart written in CDML as the bottom title aligned to the bottom right
$c->addTitle2($perlchartdir::BottomRight,
    "<*block,valign=absmiddle*><*img=molecule.png*> <*block*><*color=FF*>".
    "<*font=timesbi.ttf,size=12*>Molecular Engineering\n<*font=arial.ttf,size=10*>Creating better ".
    "molecules");

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

# Set 3D style
$c->set3D();

# Use the side label layout method
$c->setLabelLayout($perlchartdir::SideLayout);

# Set the label background color to transparent
$c->setLabelStyle()->setBackground($perlchartdir::Transparent);

# 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}*> {label} ({percent|0}%)");

# Explode the 3rd and 4th sectors as a group (index = 2 and 3)
$c->setExplodeGroup(2, 3);

# Set the start angle to 135 degrees may improve layout when there are many small sectors at the end
# of the data array (that is, data sorted in descending order). It is because this makes the small
# sectors position near the horizontal axis, where the text label has the least tendency to overlap.
# For data sorted in ascending order, a start angle of 45 degrees can be used instead.
$c->setStartAngle(135);

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

[CGI Version] perldemo_cgi\iconpie2.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 = [28, 45, 5, 1, 12];

# The labels for the pie chart
my $labels = ["Excellent", "Good", "Bad", "Very Bad", "Neutral"];

# The icons for the sectors
my $icons = ["laugh.png", "smile.png", "sad.png", "angry.png", "nocomment.png"];

# Create a PieChart object of size 560 x 300 pixels, with a silver background, black border, 1 pxiel
# 3D border effect and rounded corners
my $c = new PieChart(560, 300, perlchartdir::silverColor(), 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 (280, 150) and the radius to 120 pixels
$c->setPieSize(280, 150, 120);

# Add a title box with title written in CDML, on a sky blue (A0C8FF) background with glass effect
$c->addTitle(
    "<*block,valign=absmiddle*><*img=doc.png*> Customer Survey: <*font=timesi.ttf,color=000000*>".
    "Do you like our <*font,color=dd0000*>Hyper<*super*>TM<*/font*> molecules?", "timesbi.ttf", 15,
    0x000080)->setBackground(0xa0c8ff, 0x000000, perlchartdir::glassEffect());

# Add a logo to the chart written in CDML as the bottom title aligned to the bottom right
$c->addTitle2($perlchartdir::BottomRight,
    "<*block,valign=absmiddle*><*img=molecule.png*> <*block*><*color=FF*>".
    "<*font=timesbi.ttf,size=12*>Molecular Engineering\n<*font=arial.ttf,size=10*>Creating better ".
    "molecules");

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

# Set 3D style
$c->set3D();

# Use the side label layout method
$c->setLabelLayout($perlchartdir::SideLayout);

# Set the label background color to transparent
$c->setLabelStyle()->setBackground($perlchartdir::Transparent);

# 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}*> {label} ({percent|0}%)");

# Explode the 3rd and 4th sectors as a group (index = 2 and 3)
$c->setExplodeGroup(2, 3);

# Set the start angle to 135 degrees may improve layout when there are many small sectors at the end
# of the data array (that is, data sorted in descending order). It is because this makes the small
# sectors position near the horizontal axis, where the text label has the least tendency to overlap.
# For data sorted in ascending order, a start angle of 45 degrees can be used instead.
$c->setStartAngle(135);

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