This example illustrates the effects of different 3D angles. ChartDirector allows the 3D depth and angles to be configued using
PieChart.set3D and
PieChart.set3D2.
This example also demonstrates how to disable sector labels by setting their colors to
Transparent using
PieChart.setLabelStyle.
[File: perldemo/threedanglepie.pl] (The CGI version is available as "perldemo_cgi/threedanglepie.pl".)
#!/usr/bin/perl
use perlchartdir;
sub createChart
{
my $img = shift;
#the tilt angle of the pie
my $angle = $img * 15;
#The data for the pie chart
my $data = [25, 18, 15, 12, 8, 30, 35];
#Create a PieChart object of size 100 x 110 pixels
my $c = new PieChart(100, 110);
#Set the center of the pie at (50, 55) and the radius to 38 pixels
$c->setPieSize(50, 55, 38);
#Set the depth and tilt angle of the 3D pie (-1 means auto depth)
$c->set3D(-1, $angle);
#Add a title showing the tilt angle
$c->addTitle("Tilt = $angle deg", "arial.ttf", 8);
#Set the pie data
$c->setData($data);
#Disable the sector labels by setting the color to Transparent
$c->setLabelStyle("", 8, $perlchartdir::Transparent);
#output the chart
$c->makeChart("threedanglepie$img.png")
}
createChart(0);
createChart(1);
createChart(2);
createChart(3);
createChart(4);
createChart(5);
createChart(6);
|
© 2003 Advanced Software Engineering Limited. All rights reserved.