This example demonstrates the effects of different 3D angles.
ChartDirector allows the 3D depth and angles to be configured using
PieChart.set3D and
PieChart.set3D2.
This example also demonstrates how to disable sector labels. This is setting their colors to
Transparent using
PieChart.setLabelStyle.
[Standalone Version] perldemo\threedanglepie.pl
#!/usr/bin/perl
# In the sample code, 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 tilt angle of the pie
my $angle = $chartIndex * 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$chartIndex.png")
}
createChart(0);
createChart(1);
createChart(2);
createChart(3);
createChart(4);
createChart(5);
createChart(6); |
[CGI Version] perldemo_cgi\threedanglepie.pl
#!/usr/bin/perl
# In the sample code, the ChartDirector for Perl module is assumed to be in "../lib"
use File::Basename;
use lib (dirname($0)."/../lib") =~ /(.*)/;
use perlchartdir;
# Get HTTP query parameters
use CGI;
my $query = new CGI;
# This script can draw different charts depending on the chartIndex
$chartIndex = int($query->param("img"));
# the tilt angle of the pie
my $angle = $chartIndex * 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
binmode(STDOUT);
print "Content-type: image/png\n\n";
print $c->makeChart2($perlchartdir::PNG); |
© 2017 Advanced Software Engineering Limited. All rights reserved.