Text Styles and Colors

This example demonstrates various text styles, text colors, background colors and text box border effects.

In the chart above, 3 different pattern colors (wallpapers) are used for the chart background, legend box background and chart title background. In addition, the chart title, sector labels, and legends all have different fonts, text colors, background colors, and border styles.

BaseChart.patternColor2 is used to load the wallpaper images and return integers that represent the pattern colors created from the images.
The pattern colors are then used in BaseChart.setBackground, and also the Box.setBackground methods of the LegendBox object and title TextBox object to set the various background colors.
The title text and font are specified using BaseChart.addTitle.
The legend box font is specified using BaseChart.addLegend. It returns a LegendBox object to support further legend box configuration. In this example, the Box.setBackground method of this object is used to set the background color and 3D border effects of the legend box.
The default sector label font is specified using PieChart.setLabelStyle.
The sector label font of individual sector is specified using Sector.setLabelStyle.
The sector label's background color, border color and 3D border effects are specified by first obtaining the TextBox object that represents the sector label using Sector.setLabelStyle, then calling its Box.setBackground method.

[Standalone Version] perldemo\fontpie.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 = [25, 18, 15, 12, 8, 30, 35];

# The labels for the pie chart
my $labels = ["Labor", "Licenses", "Taxes", "Legal", "Insurance", "Facilities", "Production"];

# Create a PieChart object of size 480 x 300 pixels
my $c = new PieChart(480, 300);

# Use a blue marble pattern as the background wallpaper, with a black border, and 1 pixel 3D border
# effect
$c->setBackground($c->patternColor("marble.png"), 0x000000, 1);

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

# Add a title to the pie chart using Times Bold Italic/15 points/deep blue (0x000080) as font, with
# a wood pattern as the title background
$c->addTitle("Project Cost Breakdown", "timesbi.ttf", 15, 0x000080)->setBackground($c->patternColor(
    "wood.png"));

# Draw the pie in 3D
$c->set3D();

# Add a legend box using Arial Bold Italic/11 points font. Use a pink marble pattern as the
# background wallpaper, with a 1 pixel 3D border. The legend box is top-right aligned relative to
# the point (465, 70)
my $b = $c->addLegend(465, 70, 1, "arialbi.ttf", 11);
$b->setBackground($c->patternColor("marble2.png"), $perlchartdir::Transparent, 1);
$b->setAlignment($perlchartdir::TopRight);

# Set the default font for all sector labels to Arial Bold/8pt/dark green (0x008000).
$c->setLabelStyle("arialbd.ttf", 8, 0x008000);

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

# Explode the 3rd sector
$c->setExplode(2, 40);

# Use Arial Bold/12pt/red as label font for the 3rd sector
$c->sector(2)->setLabelStyle("arialbd.ttf", 12, 0xff0000);

# Use Arial/8pt/deep blue as label font for the 5th sector. Add a background box using the sector
# fill color (SameAsMainColor), with a black (0x000000) edge and 2 pixel 3D border.
$c->sector(4)->setLabelStyle("arial.ttf", 8, 0x000080)->setBackground(
    $perlchartdir::SameAsMainColor, 0x000000, 2);

# Use Arial Italic/8pt/light red (0xff9999) as label font for the 6th sector. Add a dark blue
# (0x000080) background box with a 2 pixel 3D border.
$c->sector(0)->setLabelStyle("ariali.ttf", 8, 0xff9999)->setBackground(0x000080,
    $perlchartdir::Transparent, 2);

# Use Times Bold Italic/8pt/deep green (0x008000) as label font for 7th sector. Add a yellow
# (0xFFFF00) background box with a black (0x000000) edge.
$c->sector(6)->setLabelStyle("timesbi.ttf", 8, 0x008000)->setBackground(0xffff00, 0x000000);

# Output the chart
$c->makeChart("fontpie.jpg")

[CGI Version] perldemo_cgi\fontpie.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 = [25, 18, 15, 12, 8, 30, 35];

# The labels for the pie chart
my $labels = ["Labor", "Licenses", "Taxes", "Legal", "Insurance", "Facilities", "Production"];

# Create a PieChart object of size 480 x 300 pixels
my $c = new PieChart(480, 300);

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

# Use a blue marble pattern as the background wallpaper, with a black border, and 1 pixel 3D border
# effect
$c->setBackground($c->patternColor("marble.png"), 0x000000, 1);

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

# Add a title to the pie chart using Times Bold Italic/15 points/deep blue (0x000080) as font, with
# a wood pattern as the title background
$c->addTitle("Project Cost Breakdown", "timesbi.ttf", 15, 0x000080)->setBackground($c->patternColor(
    "wood.png"));

# Draw the pie in 3D
$c->set3D();

# Add a legend box using Arial Bold Italic/11 points font. Use a pink marble pattern as the
# background wallpaper, with a 1 pixel 3D border. The legend box is top-right aligned relative to
# the point (465, 70)
my $b = $c->addLegend(465, 70, 1, "arialbi.ttf", 11);
$b->setBackground($c->patternColor("marble2.png"), $perlchartdir::Transparent, 1);
$b->setAlignment($perlchartdir::TopRight);

# Set the default font for all sector labels to Arial Bold/8pt/dark green (0x008000).
$c->setLabelStyle("arialbd.ttf", 8, 0x008000);

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

# Explode the 3rd sector
$c->setExplode(2, 40);

# Use Arial Bold/12pt/red as label font for the 3rd sector
$c->sector(2)->setLabelStyle("arialbd.ttf", 12, 0xff0000);

# Use Arial/8pt/deep blue as label font for the 5th sector. Add a background box using the sector
# fill color (SameAsMainColor), with a black (0x000000) edge and 2 pixel 3D border.
$c->sector(4)->setLabelStyle("arial.ttf", 8, 0x000080)->setBackground(
    $perlchartdir::SameAsMainColor, 0x000000, 2);

# Use Arial Italic/8pt/light red (0xff9999) as label font for the 6th sector. Add a dark blue
# (0x000080) background box with a 2 pixel 3D border.
$c->sector(0)->setLabelStyle("ariali.ttf", 8, 0xff9999)->setBackground(0x000080,
    $perlchartdir::Transparent, 2);

# Use Times Bold Italic/8pt/deep green (0x008000) as label font for 7th sector. Add a yellow
# (0xFFFF00) background box with a black (0x000000) edge.
$c->sector(6)->setLabelStyle("timesbi.ttf", 8, 0x008000)->setBackground(0xffff00, 0x000000);

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