Start Angle and Direction

This example demonstrates different sector layout angles and directions.

By default, ChartDirector positions sectors starting from the upward pointing position, and in clockwise direction.

The start angle and layout direction can be changed using PieChart.setStartAngle.

One common application for PieChart.setStartAngle is to facilitate layout of pie charts containing many small sectors. Please refer to Side Label Layout for an example.

perldemo\anglepie.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;

    # The data for the pie chart
    my $data = [25, 18, 15, 12, 8, 30, 35];

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

    # Create a PieChart object of size 280 x 240 pixels
    my $c = new PieChart(280, 240);

    # Set the center of the pie at (140, 130) and the radius to 80 pixels
    $c->setPieSize(140, 130, 80);

    # Add a title to the pie to show the start angle and direction
    if ($chartIndex == 0) {
        $c->addTitle("Start Angle = 0 degrees\nDirection = Clockwise");
    } else {
        $c->addTitle("Start Angle = 90 degrees\nDirection = AntiClockwise");
        $c->setStartAngle(90, 0);
    }

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

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

    # Explode the 1st sector (index = 0)
    $c->setExplode(0);

    # Output the chart
    $c->makeChart("anglepie$chartIndex.png");
}

createChart(0);
createChart(1);