ChartDirector Ver 4.1 (Perl Edition)

Donut Chart




This example demonstrates a donut chart. It also demonstrates other chart effects, such as using CDML to nicely format sector labels, silver background color, rounded corners, and glass shading effect for title and sector labels.

Source Code Listing

[Standalone Version] perldemo\donut.pl
#!/usr/bin/perl
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"];

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

# Add a title box using 15 pts Times Bold Italic font in white color, on a deep blue
# (0000CC) background with reduced-glare glass effect
$c->addTitle("Donut Chart Demonstration", "timesbi.ttf", 15, 0xffffff
    )->setBackground(0x0000cc, 0x000000, perlchartdir::glassEffect(
    $perlchartdir::ReducedGlare));

# Set donut center at (280, 140), and outer/inner radii as 110/55 pixels
$c->setDonutSize(280, 140, 110, 55);

# Set 3D effect with 3D depth of 20 pixels
$c->set3D(20);

# Set the label box background color the same as the sector color, with reduced-glare
# glass effect and rounded corners
my $t = $c->setLabelStyle();
$t->setBackground($perlchartdir::SameAsMainColor, $perlchartdir::Transparent,
    perlchartdir::glassEffect($perlchartdir::ReducedGlare));
$t->setRoundedCorners();

# 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 pie data and the pie labels
$c->setData($data, $labels);

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

# output the chart
$c->makeChart("donut.png")

[CGI Version] perldemo_cgi\donut.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 pie chart
my $data = [20, 10, 15, 12];

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

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

# Add a title box using 15 pts Times Bold Italic font in white color, on a deep blue
# (0000CC) background with reduced-glare glass effect
$c->addTitle("Donut Chart Demonstration", "timesbi.ttf", 15, 0xffffff
    )->setBackground(0x0000cc, 0x000000, perlchartdir::glassEffect(
    $perlchartdir::ReducedGlare));

# Set donut center at (280, 140), and outer/inner radii as 110/55 pixels
$c->setDonutSize(280, 140, 110, 55);

# Set 3D effect with 3D depth of 20 pixels
$c->set3D(20);

# Set the label box background color the same as the sector color, with reduced-glare
# glass effect and rounded corners
my $t = $c->setLabelStyle();
$t->setBackground($perlchartdir::SameAsMainColor, $perlchartdir::Transparent,
    perlchartdir::glassEffect($perlchartdir::ReducedGlare));
$t->setRoundedCorners();

# 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 pie data and the pie labels
$c->setData($data, $labels);

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

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