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 the
PieChart.setStartAngle method is to facilitate layout of pie charts containing many small sectors. Please refer to
Pie with Small Sectors.
[File: perldemo/anglepie.pl] (The CGI version is available as "perldemo_cgi/anglepie.pl".)
#!/usr/bin/perl
use perlchartdir;
sub createChart
{
my $img = shift;
#query string to determine the starting angle and direction
my $angle = 0;
my $clockwise = 1;
if ($img != "0") {
$angle = 90;
$clockwise = 0;
}
#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 ($clockwise) {
$c->addTitle("Start Angle = $angle degrees\nDirection = Clockwise");
} else {
$c->addTitle("Start Angle = $angle degrees\nDirection = AntiClockwise");
}
#Set the pie start angle and direction
$c->setStartAngle($angle, $clockwise);
#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$img.png")
}
createChart(0);
createChart(1);
|
© 2003 Advanced Software Engineering Limited. All rights reserved.