#!/usr/bin/perl

# Include current script directory in the module path (needed on Microsoft IIS).
# This allows this script to work by copying ChartDirector to the same directory
# as the script (as an alternative to installation in Perl module directory)
use File::Basename;
use lib dirname($0) =~ /(.*)/;

use perlchartdir;

# The data for the pie chart
my $data = [18, 45, 28];

# The labels for the pie chart
my $labels = ["Marble", "Wood", "Granite"];

# The icons for the sectors
my $texture = ["marble3.png", "wood.png", "rock.png"];

# Create a PieChart object of size 400 x 330 pixels, with a metallic green (88EE88)
# background, black border and 1 pixel 3D border effect
my $c = new PieChart(400, 330, perlchartdir::metalColor(0x88ee88), 0x000000, 1);

#Set directory for loading images to current script directory
#Need when running under Microsoft IIS
$c->setSearchPath(dirname($0));

# Set donut center at (200, 160), and outer/inner radii as 120/60 pixels
$c->setDonutSize(200, 160, 120, 60);

# Add a title box using 15 pts Times Bold Italic font and metallic deep green
# (008000) background color
$c->addTitle("Material Composition", "timesbi.ttf", 15)->setBackground(
    perlchartdir::metalColor(0x008000));

# Set the pie data and the pie labels
$c->setData($data, $labels);

# Set the colors of the sectors to the 3 texture patterns
$c->setColor($perlchartdir::DataColor + 0, $c->patternColor2($texture->[0]));
$c->setColor($perlchartdir::DataColor + 1, $c->patternColor2($texture->[1]));
$c->setColor($perlchartdir::DataColor + 2, $c->patternColor2($texture->[2]));

# Draw the pie in 3D with a 3D depth of 30 pixels
$c->set3D(30);

# Use 12 pts Arial Bold Italic as the sector label font
$c->setLabelStyle("arialbi.ttf", 12);

# Output the chart
binmode(STDOUT);
print "Content-type: image/png\n\n";
print $c->makeChart2($perlchartdir::PNG);