ChartDirector 5.1 (Perl Edition)

Donut Width


        

This example demonstrates the effects of different donut widths.

Donut widths are configured by using different inner and outer radii when calling PieChart.setDonutSize.

Source Code Listing

[Standalone Version] perldemo\donutwidth.pl
#!/usr/bin/perl
use perlchartdir;

sub createChart
{
    my $img = shift;

    # Determine the donut inner radius (as percentage of outer radius) based on input
    # parameter
    my $donutRadius = int($img) * 25;

    # The data for the pie chart
    my $data = [10, 10, 10, 10, 10];

    # The labels for the pie chart
    my $labels = ["Marble", "Wood", "Granite", "Plastic", "Metal"];

    # Create a PieChart object of size 150 x 120 pixels, with a grey (EEEEEE)
    # background, black border and 1 pixel 3D border effect
    my $c = new PieChart(150, 120, 0xeeeeee, 0x000000, 1);

    # Set donut center at (75, 65) and the outer radius to 50 pixels. Inner radius is
    # computed according donutWidth
    $c->setDonutSize(75, 60, 50, int(50 * $donutRadius / 100));

    # Add a title to show the donut width
    $c->addTitle("Inner Radius = $donutRadius %", "arial.ttf", 10)->setBackground(
        0xcccccc, 0);

    # Draw the pie in 3D
    $c->set3D(12);

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

    # Disable the sector labels by setting the color to Transparent
    $c->setLabelStyle("", 8, $perlchartdir::Transparent);

    # Output the chart
    $c->makeChart("donutwidth$img.png")
}

createChart(0);
createChart(1);
createChart(2);
createChart(3);
createChart(4);

[CGI Version] perldemo_cgi\donutwidth.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;

# Get HTTP query parameters
use CGI;
my $query = new CGI;

# Determine the donut inner radius (as percentage of outer radius) based on input
# parameter
my $donutRadius = int($query->param("img")) * 25;

# The data for the pie chart
my $data = [10, 10, 10, 10, 10];

# The labels for the pie chart
my $labels = ["Marble", "Wood", "Granite", "Plastic", "Metal"];

# Create a PieChart object of size 150 x 120 pixels, with a grey (EEEEEE) background,
# black border and 1 pixel 3D border effect
my $c = new PieChart(150, 120, 0xeeeeee, 0x000000, 1);

# Set donut center at (75, 65) and the outer radius to 50 pixels. Inner radius is
# computed according donutWidth
$c->setDonutSize(75, 60, 50, int(50 * $donutRadius / 100));

# Add a title to show the donut width
$c->addTitle("Inner Radius = $donutRadius %", "arial.ttf", 10)->setBackground(
    0xcccccc, 0);

# Draw the pie in 3D
$c->set3D(12);

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

# Disable the sector labels by setting the color to Transparent
$c->setLabelStyle("", 8, $perlchartdir::Transparent);

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