ChartDirector 7.0 (Perl Edition)

Linear Zone Meter




This example demonstrates a linear meter labelled with zones.

The meter in this example is achieved by using LinearMeter.addZone to add labelled zones. The black lines separating the zones are added by using BaseMeter.addLabel with empty spaces as labels.

Source Code Listing

perldemo\linearzonemeter.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 LinearMeter object of size 210 x 45 pixels, using silver background with a 2 pixel black # 3D depressed border. my $m = new LinearMeter(210, 45, perlchartdir::silverColor(), 0, -2); # Set the scale region top-left corner at (5, 5), with size of 200 x 20 pixels. The scale labels are # located on the bottom (implies horizontal meter) $m->setMeter(5, 5, 200, 20, $perlchartdir::Bottom); # Set meter scale from 0 - 100 $m->setScale(0, 100); # Add a title at the bottom of the meter with a 1 pixel raised 3D border $m->addTitle2($perlchartdir::Bottom, "Battery Level", "Arial Bold", 8)->setBackground( $perlchartdir::Transparent, -1, 1); # Set 3 zones of different colors to represent Good/Weak/Bad data ranges $m->addZone(50, 100, 0x99ff99, "Good"); $m->addZone(20, 50, 0xffff66, "Weak"); $m->addZone(0, 20, 0xffcccc, "Bad"); # Add empty labels (just need the ticks) at 0/20/50/80 as separators for zones $m->addLabel(0, " "); $m->addLabel(20, " "); $m->addLabel(50, " "); $m->addLabel(100, " "); # Add a semi-transparent blue (800000ff) pointer at the specified value, using triangular pointer # shape $m->addPointer($value, 0x800000ff)->setShape($perlchartdir::TriangularPointer); # Output the chart $m->makeChart("linearzonemeter.png");