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 text box with BaseChart.addText and using CDML to specify an icon.

perldemo\iconameter.pl

#!/usr/bin/perl

# The ChartDirector for Perl module is assumed to be in "../lib"
use File::Basename;
use lib (dirname($0)."/../lib") =~ /(.*)/;

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 degrees
$m->setMeter(10, 45, 50, 135, 45);

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

# 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.png*>");

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

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