ChartDirector Ver 3.0 (Perl Edition)

3D Angle


            

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.

Source Code Listing

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