ChartDirector 5.1 (Perl Edition)

Vertical Linear Meter




This example demonstrates a simple vertical linear meter.

A basic linear meter can be created using the following steps:

In addition to the basic linear meter, this example demonstrates the following features:

Source Code Listing

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

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

# Create an LinearMeter object of size 60 x 265 pixels, using silver background with
# a 2 pixel black 3D depressed border.
my $m = new LinearMeter(60, 265, perlchartdir::silverColor(), 0, -2);

# Set the scale region top-left corner at (25, 30), with size of 20 x 200 pixels. The
# scale labels are located on the left (default - implies vertical meter)
$m->setMeter(25, 30, 20, 200);

# Set meter scale from 0 - 100, with a tick every 10 units
$m->setScale(0, 100, 10);

# Set 0 - 50 as green (99ff99) zone, 50 - 80 as yellow (ffff66) zone, and 80 - 100 as
# red (ffcccc) zone
$m->addZone(0, 50, 0x99ff99);
$m->addZone(50, 80, 0xffff66);
$m->addZone(80, 100, 0xffcccc);

# Add a deep blue (000080) pointer at the specified value
$m->addPointer($value, 0x000080);

# Add a text box label at top-center (30, 5) using Arial Bold/8 pts/deep blue
# (000088), with a light blue (9999ff) background
$m->addText(30, 5, "Temp C", "arialbd.ttf", 8, 0x000088, $perlchartdir::TopCenter
    )->setBackground(0x9999ff);

# Add a text box to show the value formatted to 2 decimal places at bottom center
# (30, 260). Use white text on black background with a 1 pixel depressed 3D border.
$m->addText(30, 260, $m->formatValue($value, "2"), "arial.ttf", 8, 0xffffff,
    $perlchartdir::BottomCenter)->setBackground(0, 0, -1);

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

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

# Create an LinearMeter object of size 60 x 265 pixels, using silver background with
# a 2 pixel black 3D depressed border.
my $m = new LinearMeter(60, 265, perlchartdir::silverColor(), 0, -2);

# Set the scale region top-left corner at (25, 30), with size of 20 x 200 pixels. The
# scale labels are located on the left (default - implies vertical meter)
$m->setMeter(25, 30, 20, 200);

# Set meter scale from 0 - 100, with a tick every 10 units
$m->setScale(0, 100, 10);

# Set 0 - 50 as green (99ff99) zone, 50 - 80 as yellow (ffff66) zone, and 80 - 100 as
# red (ffcccc) zone
$m->addZone(0, 50, 0x99ff99);
$m->addZone(50, 80, 0xffff66);
$m->addZone(80, 100, 0xffcccc);

# Add a deep blue (000080) pointer at the specified value
$m->addPointer($value, 0x000080);

# Add a text box label at top-center (30, 5) using Arial Bold/8 pts/deep blue
# (000088), with a light blue (9999ff) background
$m->addText(30, 5, "Temp C", "arialbd.ttf", 8, 0x000088, $perlchartdir::TopCenter
    )->setBackground(0x9999ff);

# Add a text box to show the value formatted to 2 decimal places at bottom center
# (30, 260). Use white text on black background with a 1 pixel depressed 3D border.
$m->addText(30, 260, $m->formatValue($value, "2"), "arial.ttf", 8, 0xffffff,
    $perlchartdir::BottomCenter)->setBackground(0, 0, -1);

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