#!/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 = [28, 45, 5, 1, 12];

# The labels for the pie chart
my $labels = ["Excellent", "Good", "Bad", "Very Bad", "Neutral"];

# The icons for the sectors
my $icons = ["laugh.png", "smile.png", "sad.png", "angry.png", "nocomment.png"];

# Create a PieChart object of size 560 x 300 pixels, with a silver background, black
# border, 1 pxiel 3D border effect and rounded corners
my $c = new PieChart(560, 300, perlchartdir::silverColor(), 0x000000, 1);
$c->setRoundedFrame();

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

# Set the center of the pie at (280, 150) and the radius to 120 pixels
$c->setPieSize(280, 150, 120);

# Add a title box with title written in CDML, on a sky blue (A0C8FF) background with
# glass effect
$c->addTitle(
    "<*block,valign=absmiddle*><*img=doc.png*> Customer Survey: ".
    "<*font=timesi.ttf,color=000000*>Do you like our <*font,color=dd0000*>Hyper".
    "<*super*>TM<*/font*> molecules?", "timesbi.ttf", 15, 0x000080)->setBackground(
    0xa0c8ff, 0x000000, perlchartdir::glassEffect());

# Add a logo to the chart written in CDML as the bottom title aligned to the bottom
# right
$c->addTitle2($perlchartdir::BottomRight,
    "<*block,valign=absmiddle*><*img=molecule.png*> <*block*><*color=FF*>".
    "<*font=timesbi.ttf,size=12*>Molecular Engineering\n<*font=arial.ttf,size=10*>".
    "Creating better molecules");

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

# Set 3D style
$c->set3D();

# Use the side label layout method
$c->setLabelLayout($perlchartdir::SideLayout);

# Set the label background color to transparent
$c->setLabelStyle()->setBackground($perlchartdir::Transparent);

# Add icons to the chart as a custom field
$c->addExtraField($icons);

# Configure the sector labels using CDML to include the icon images
$c->setLabelFormat(
    "<*block,valign=absmiddle*><*img={field0}*> {label} ({percent|0}%)");

# Explode the 3rd and 4th sectors as a group (index = 2 and 3)
$c->setExplodeGroup(2, 3);

# Set the start angle to 135 degrees may improve layout when there are many small
# sectors at the end of the data array (that is, data sorted in descending order). It
# is because this makes the small sectors position near the horizontal axis, where
# the text label has the least tendency to overlap. For data sorted in ascending
# order, a start angle of 45 degrees can be used instead.
$c->setStartAngle(135);

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