ChartDirector 7.0 (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

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);