3D Donut Chart

This example demonstrates a 3D donut chart with sector gradient shading. It also demonstrates gradient color background, rounded frame, custom sector colors, and using CDML and Parameter Substitution and Formatting to format sector labels

The gradient background is achieved by using BaseChart.linearGradientColor to define the gradient color, then use BaseChart.setBackground to set it as the chart background color.
The rounded frame is configured using BaseChart.setRoundedFrame.
The sector colors are set using BaseChart.setColors. The sector gradient shading and thick sector border is configured using PieChart.setSectorStyle.
The sector label style are configured using PieChart.setLabelStyle. It returns a TextBox object representing the sector label prototype. The gradient background color and rounded corners of the sector labels are configured using the Box.setBackground and Box.setRoundedCorners methods of the label prototype.
The sector label contents are configured using PieChart.setLabelFormat. The template is specified using CDML and Parameter Substitution and Formatting. It consists of two lines using different fonts. This first line shows the sector label, while the second line shows the sector value and percentage.

[Standalone Version] perldemo\threeddonut.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 = [20, 10, 15, 12];

# The labels for the pie chart
my $labels = ["Labor", "Licenses", "Facilities", "Production"];

# The colors to use for the sectors
my $colors = [0x66aaee, 0xeebb22, 0xcccccc, 0xcc88ff];

# Create a PieChart object of size 600 x 320 pixels. Use a vertical gradient color from deep blue
# (000066) to blue (0000cc) as background. Use rounded corners of 20 pixels radius.
my $c = new PieChart(600, 320);
$c->setBackground($c->linearGradientColor(0, 0, 0, $c->getHeight(), 0x000066, 0x0000cc));
$c->setRoundedFrame(0xffffff, 20);

# Add a title using 18pt Times New Roman Bold Italic font in white (ffffff) color. Set top/bottom
# margins to 8 pixels.
my $title = $c->addTitle("Donut Chart Demonstration", "timesbi.ttf", 18, 0xffffff);
$title->setMargin2(0, 0, 8, 8);

# Add a separator line in white color just under the title
$c->addLine(10, $title->getHeight(), $c->getWidth() - 11, $title->getHeight(), 0xffffff);

# Set donut center at (300, 170), and outer/inner radii as 120/60 pixels
$c->setDonutSize(300, 170, 120, 60);

# Draw the pie in 3D with a pie thickness of 25 pixels
$c->set3D(25);

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

# Set the sector colors
$c->setColors2($perlchartdir::DataColor, $colors);

# Use local gradient shading for the sectors
$c->setSectorStyle($perlchartdir::LocalGradientShading);

# Set sector border color to same as fill color. Set label join line color to white (ffffff)
$c->setLineColor($perlchartdir::SameAsMainColor, 0xffffff);

# Use the side label layout method, with the labels positioned 16 pixels from the donut bounding box
$c->setLabelLayout($perlchartdir::SideLayout, 16);

# Set the sector label format. The label consists of two lines. The first line is the sector name in
# Times Bold Italic font and is underlined. The second line shows the data value and percentage.
$c->setLabelFormat(
    "<*block,halign=left*><*font=timesbi.ttf,size=12,underline=1*>{label}<*/font*><*br*>US\$ ".
    "{value}K ({percent}%)");

# Set the label box background color the same as the sector color. Use soft lighting effect with
# light direction from right. Use rounded corners.
my $t = $c->setLabelStyle();
$t->setBackground($perlchartdir::SameAsMainColor, $perlchartdir::Transparent,
    perlchartdir::softLighting($perlchartdir::Right));
$t->setRoundedCorners();

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

[CGI Version] perldemo_cgi\threeddonut.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 = [20, 10, 15, 12];

# The labels for the pie chart
my $labels = ["Labor", "Licenses", "Facilities", "Production"];

# The colors to use for the sectors
my $colors = [0x66aaee, 0xeebb22, 0xcccccc, 0xcc88ff];

# Create a PieChart object of size 600 x 320 pixels. Use a vertical gradient color from deep blue
# (000066) to blue (0000cc) as background. Use rounded corners of 20 pixels radius.
my $c = new PieChart(600, 320);
$c->setBackground($c->linearGradientColor(0, 0, 0, $c->getHeight(), 0x000066, 0x0000cc));
$c->setRoundedFrame(0xffffff, 20);

# Add a title using 18pt Times New Roman Bold Italic font in white (ffffff) color. Set top/bottom
# margins to 8 pixels.
my $title = $c->addTitle("Donut Chart Demonstration", "timesbi.ttf", 18, 0xffffff);
$title->setMargin2(0, 0, 8, 8);

# Add a separator line in white color just under the title
$c->addLine(10, $title->getHeight(), $c->getWidth() - 11, $title->getHeight(), 0xffffff);

# Set donut center at (300, 170), and outer/inner radii as 120/60 pixels
$c->setDonutSize(300, 170, 120, 60);

# Draw the pie in 3D with a pie thickness of 25 pixels
$c->set3D(25);

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

# Set the sector colors
$c->setColors2($perlchartdir::DataColor, $colors);

# Use local gradient shading for the sectors
$c->setSectorStyle($perlchartdir::LocalGradientShading);

# Set sector border color to same as fill color. Set label join line color to white (ffffff)
$c->setLineColor($perlchartdir::SameAsMainColor, 0xffffff);

# Use the side label layout method, with the labels positioned 16 pixels from the donut bounding box
$c->setLabelLayout($perlchartdir::SideLayout, 16);

# Set the sector label format. The label consists of two lines. The first line is the sector name in
# Times Bold Italic font and is underlined. The second line shows the data value and percentage.
$c->setLabelFormat(
    "<*block,halign=left*><*font=timesbi.ttf,size=12,underline=1*>{label}<*/font*><*br*>US\$ ".
    "{value}K ({percent}%)");

# Set the label box background color the same as the sector color. Use soft lighting effect with
# light direction from right. Use rounded corners.
my $t = $c->setLabelStyle();
$t->setBackground($perlchartdir::SameAsMainColor, $perlchartdir::Transparent,
    perlchartdir::softLighting($perlchartdir::Right));
$t->setRoundedCorners();

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