Donut Width

perldemo\donutwidth.pl
#!/usr/bin/perl

# The ChartDirector for Perl module is assumed to be in "../lib"
use File::Basename;
use lib (dirname($0)."/../lib") =~ /(.*)/;

use perlchartdir;

sub createChart
{
    my $chartIndex = shift;

    # Determine the donut inner radius (as percentage of outer radius) based on input parameter
    my $donutRadius = $chartIndex * 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", 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$chartIndex.png");
}

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