ChartDirector 7.0 (Perl Edition)

Horizontal Linear Meter




This example demonstrates the basic steps in creating a horizontal linear meter.

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

Source Code Listing

perldemo\hlinearmeter.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 = 74.25; # Create an LinearMeter object of size 250 x 65 pixels with a very light grey (0xeeeeee) background, # and a rounded 3-pixel thick light grey (0xcccccc) border my $m = new LinearMeter(250, 65, 0xeeeeee, 0xcccccc); $m->setRoundedFrame($perlchartdir::Transparent); $m->setThickFrame(3); # Set the scale region top-left corner at (14, 23), with size of 218 x 20 pixels. The scale labels # are located on the top (implies horizontal meter) $m->setMeter(14, 23, 218, 20, $perlchartdir::Top); # Set meter scale from 0 - 100, with a tick every 10 units $m->setScale(0, 100, 10); # Add a smooth color scale to the meter my $smoothColorScale = [0, 0x6666ff, 25, 0x00bbbb, 50, 0x00ff00, 75, 0xffff00, 100, 0xff0000]; $m->addColorScale($smoothColorScale); # Add a blue (0x0000cc) pointer at the specified value $m->addPointer($value, 0x0000cc); # Output the chart $m->makeChart("hlinearmeter.png");