3D Angle

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.

perldemo\threedanglepie.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 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", 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);