Texture Donut Chart

This example demonstrates wooden, rocky and marble texture effects by using pattern colors to load image patterns.

In ChartDirector, metallic and pattern colors are just like normal ARGB colors, and are represented as a 32-bit integer. They can be applied to anything that can be colored. In this example, metallic colors are applied to the background, while pattern colors are applied to the donut slices to create texture effects.

BaseChart.patternColor2 is used to load the texture images. It returns an array of integers representing the pattern colors created from the images.
The pattern colors are then set into the DataColor positions of the default palette using BaseChart.setColor. These colors will be used for the sectors.

[Standalone Version] perldemo\texturedonut.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;

# 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 donut center at (200, 160), and outer/inner radii as 120/60 pixels
$c->setDonutSize(200, 160, 120, 60);

# Add a title box using 15pt 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 12pt Arial Bold Italic as the sector label font
$c->setLabelStyle("arialbi.ttf", 12);

# Output the chart
$c->makeChart("texturedonut.png")

[CGI Version] perldemo_cgi\texturedonut.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;

# 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 15pt 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 12pt 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);