ChartDirector 6.0 (Perl Edition)

Color Vertical Bar Meters


          

This example demonstrates horizontal bar meters in various colors, with different color scales, and with title and value readout.

BaseMeter.addColorScale is used to create the color scales in the meters. The color scales are created with various colors, end point positions and widths at the end points.

The title and value readout are created as TextBox objects using BaseChart.addTitle and BaseChart.addTitle2, with the text box background set to the same color as that of the chart border.

Source Code Listing

[Standalone Version] perldemo\colorvbarmeter.pl
#!/usr/bin/perl

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

use perlchartdir;

sub createChart
{
    my $chartIndex = shift;

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

    # The background, border and bar colors of the meters
    my $bgColor = [0xcce4ff, 0xccffcc, 0xffdddd, 0xffffaa, 0xffccff, 0xeeeeee];
    my $borderColor = [0x000088, 0x006600, 0x880000, 0xee6600, 0x6600aa, 0x666666];
    my $barColor = [0x2299ff, 0x00ee00, 0xee4455, 0xff8800, 0x8833dd, 0x888888];

    # Create a LinearMeter object of size 70 x 260 pixels with a 3-pixel thick rounded frame
    my $m = new LinearMeter(70, 260, $bgColor->[$chartIndex], $borderColor->[$chartIndex]);
    $m->setRoundedFrame($perlchartdir::Transparent);
    $m->setThickFrame(3);

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

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

    # Demostrate different types of color scales
    my $smoothColorScale = [0, 0x0000ff, 25, 0x0088ff, 50, 0x00ff00, 75, 0xdddd00, 100, 0xff0000];
    my $stepColorScale = [0, 0x33ff33, 50, 0xffff00, 80, 0xff3333, 100];
    my $highLowColorScale = [0, 0x0000ff, 40, $perlchartdir::Transparent, 60,
        $perlchartdir::Transparent, 100, 0xff0000];
    my $highColorScale = [70, $perlchartdir::Transparent, 100, 0xff0000];
    my $lowColorScale = [0, 0x0000ff, 30, $perlchartdir::Transparent];

    if ($chartIndex == 0) {
        # Add a 6-pixel thick smooth color scale at x = 53 (right of meter scale)
        $m->addColorScale($smoothColorScale, 53, 6);
    } elsif ($chartIndex == 1) {
        # Add a high only color scale at x = 52 (right of meter scale) with thickness varying from 0
        # to 8
        $m->addColorScale($highColorScale, 52, 0, 52, 8);
        # Add a low only color scale at x = 52 (right of meter scale) with thickness varying from 8
        # to 0
        $m->addColorScale($lowColorScale, 52, 8, 52, 0);
    } elsif ($chartIndex == 2) {
        # Add a high only color scale at x = 52 (right of meter scale) with thickness varying from 0
        # to 8
        $m->addColorScale($highColorScale, 52, 0, 52, 8);
    } elsif ($chartIndex == 3) {
        # Add a smooth color scale at x = 52 (right of meter scale) with thickness varying from 0 to
        # 8
        $m->addColorScale($smoothColorScale, 52, 0, 52, 8);
    } elsif ($chartIndex == 4) {
        # Add a 6-pixel thick high/low color scale at x = 53 (right of meter scale)
        $m->addColorScale($highLowColorScale, 53, 6);
    } else {
        # Add a 6-pixel thick step color scale at x = 53 (right of meter scale)
        $m->addColorScale($stepColorScale, 53, 6);
    }

    # Add a bar from 0 to value with glass effect and 4 pixel rounded corners
    $m->addBar(0, $value, $barColor->[$chartIndex], perlchartdir::glassEffect(
        $perlchartdir::NormalGlare, $perlchartdir::Left), 4);

    # Add a title using white (0xffffff) 8pt Arial Bold font with a border color background
    $m->addTitle("Temp C", "arialbd.ttf", 8, 0xffffff)->setBackground($borderColor->[$chartIndex]);

    # Add a bottom title using white (0xffffff) 8pt Arial Bold font with a border color background
    # to display the value
    $m->addTitle2($perlchartdir::Bottom, $m->formatValue($value, "2"), "arialbd.ttf", 8, 0xffffff
        )->setBackground($borderColor->[$chartIndex]);

    # Output the chart
    $m->makeChart("colorvbarmeter$chartIndex.png")
}

createChart(0);
createChart(1);
createChart(2);
createChart(3);
createChart(4);
createChart(5);

[CGI Version] perldemo_cgi\colorvbarmeter.pl
#!/usr/bin/perl

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

use perlchartdir;

# Get HTTP query parameters
use CGI;
my $query = new CGI;

# This script can draw different charts depending on the chartIndex
$chartIndex = int($query->param("img"));

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

# The background, border and bar colors of the meters
my $bgColor = [0xcce4ff, 0xccffcc, 0xffdddd, 0xffffaa, 0xffccff, 0xeeeeee];
my $borderColor = [0x000088, 0x006600, 0x880000, 0xee6600, 0x6600aa, 0x666666];
my $barColor = [0x2299ff, 0x00ee00, 0xee4455, 0xff8800, 0x8833dd, 0x888888];

# Create a LinearMeter object of size 70 x 260 pixels with a 3-pixel thick rounded frame
my $m = new LinearMeter(70, 260, $bgColor->[$chartIndex], $borderColor->[$chartIndex]);
$m->setRoundedFrame($perlchartdir::Transparent);
$m->setThickFrame(3);

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

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

# Demostrate different types of color scales
my $smoothColorScale = [0, 0x0000ff, 25, 0x0088ff, 50, 0x00ff00, 75, 0xdddd00, 100, 0xff0000];
my $stepColorScale = [0, 0x33ff33, 50, 0xffff00, 80, 0xff3333, 100];
my $highLowColorScale = [0, 0x0000ff, 40, $perlchartdir::Transparent, 60,
    $perlchartdir::Transparent, 100, 0xff0000];
my $highColorScale = [70, $perlchartdir::Transparent, 100, 0xff0000];
my $lowColorScale = [0, 0x0000ff, 30, $perlchartdir::Transparent];

if ($chartIndex == 0) {
    # Add a 6-pixel thick smooth color scale at x = 53 (right of meter scale)
    $m->addColorScale($smoothColorScale, 53, 6);
} elsif ($chartIndex == 1) {
    # Add a high only color scale at x = 52 (right of meter scale) with thickness varying from 0 to
    # 8
    $m->addColorScale($highColorScale, 52, 0, 52, 8);
    # Add a low only color scale at x = 52 (right of meter scale) with thickness varying from 8 to 0
    $m->addColorScale($lowColorScale, 52, 8, 52, 0);
} elsif ($chartIndex == 2) {
    # Add a high only color scale at x = 52 (right of meter scale) with thickness varying from 0 to
    # 8
    $m->addColorScale($highColorScale, 52, 0, 52, 8);
} elsif ($chartIndex == 3) {
    # Add a smooth color scale at x = 52 (right of meter scale) with thickness varying from 0 to 8
    $m->addColorScale($smoothColorScale, 52, 0, 52, 8);
} elsif ($chartIndex == 4) {
    # Add a 6-pixel thick high/low color scale at x = 53 (right of meter scale)
    $m->addColorScale($highLowColorScale, 53, 6);
} else {
    # Add a 6-pixel thick step color scale at x = 53 (right of meter scale)
    $m->addColorScale($stepColorScale, 53, 6);
}

# Add a bar from 0 to value with glass effect and 4 pixel rounded corners
$m->addBar(0, $value, $barColor->[$chartIndex], perlchartdir::glassEffect(
    $perlchartdir::NormalGlare, $perlchartdir::Left), 4);

# Add a title using white (0xffffff) 8pt Arial Bold font with a border color background
$m->addTitle("Temp C", "arialbd.ttf", 8, 0xffffff)->setBackground($borderColor->[$chartIndex]);

# Add a bottom title using white (0xffffff) 8pt Arial Bold font with a border color background to
# display the value
$m->addTitle2($perlchartdir::Bottom, $m->formatValue($value, "2"), "arialbd.ttf", 8, 0xffffff
    )->setBackground($borderColor->[$chartIndex]);

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