ChartDirector Ver 5.0 (Perl Edition)

Icon Angular Meter




This example demonstrates a fuel-tank like meters, in which the meter is labelled by an icon and the scale shows text abbreviations.

The scale labels on the meter is created by using BaseMeter.setScale2. The icon is created by adding a custom text box with BaseChart.addText and using CDML to specify an icon.

Source Code Listing

[Standalone Version] perldemo\iconameter.pl
#!/usr/bin/perl
use perlchartdir;

# The value to display on the meter
my $value = 85;

# Create an AugularMeter object of size 70 x 90 pixels, using black background with a
# 2 pixel 3D depressed border.
my $m = new AngularMeter(70, 90, 0, 0, -2);

# Use white on black color palette for default text and line colors
$m->setColors($perlchartdir::whiteOnBlackPalette);

# Set the meter center at (10, 45), with radius 50 pixels, and span from 135 to 45
# degress
$m->setMeter(10, 45, 50, 135, 45);

# Set meter scale from 0 - 100, with the specified labels
$m->setScale2(0, 100, ["E", " ", " ", " ", "F"]);

# Set the angular arc and major tick width to 2 pixels
$m->setLineWidth(2, 2);

# Add a red zone at 0 - 15
$m->addZone(0, 15, 0xff3333);

# Add an icon at (25, 35)
$m->addText(25, 35, "<*img=gas.gif*>");

# Add a yellow (ffff00) pointer at the specified value
$m->addPointer($value, 0xffff00);

# Output the chart
$m->makeChart("iconameter.png")

[CGI Version] perldemo_cgi\iconameter.pl
#!/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 value to display on the meter
my $value = 85;

# Create an AugularMeter object of size 70 x 90 pixels, using black background with a
# 2 pixel 3D depressed border.
my $m = new AngularMeter(70, 90, 0, 0, -2);

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

# Use white on black color palette for default text and line colors
$m->setColors($perlchartdir::whiteOnBlackPalette);

# Set the meter center at (10, 45), with radius 50 pixels, and span from 135 to 45
# degress
$m->setMeter(10, 45, 50, 135, 45);

# Set meter scale from 0 - 100, with the specified labels
$m->setScale2(0, 100, ["E", " ", " ", " ", "F"]);

# Set the angular arc and major tick width to 2 pixels
$m->setLineWidth(2, 2);

# Add a red zone at 0 - 15
$m->addZone(0, 15, 0xff3333);

# Add an icon at (25, 35)
$m->addText(25, 35, "<*img=gas.gif*>");

# Add a yellow (ffff00) pointer at the specified value
$m->addPointer($value, 0xffff00);

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