Black Horizontal Bar Meters

perldemo\blackhbarmeter.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;

sub createChart
{
    my $chartIndex = shift;

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

    # Create a LinearMeter object of size 260 x 80 pixels with black background and rounded corners
    my $m = new LinearMeter(260, 80, 0x000000);
    $m->setRoundedFrame($perlchartdir::Transparent);

    # Set the default text and line colors to white (0xffffff)
    $m->setColor($perlchartdir::TextColor, 0xffffff);
    $m->setColor($perlchartdir::LineColor, 0xffffff);

    # Set the scale region top-left corner at (15, 24), with size of 228 x 20 pixels. The scale
    # labels are located on the top (implies horizontal meter)
    $m->setMeter(15, 24, 228, 20, $perlchartdir::Top);

    # 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, 0x00dd00, 50, 0xffff00, 80, 0xff3333, 100];
    my $highLowColorScale = [0, 0x0000ff, 40, $perlchartdir::Transparent, 60,
        $perlchartdir::Transparent, 100, 0xff0000];
    my $highColorScale = [70, $perlchartdir::Transparent, 100, 0xff0000];

    if ($chartIndex == 0) {
        # Add a blue (0x0088ff) bar from 0 to value with glass effect and 4 pixel rounded corners
        $m->addBar(0, $value, 0x0088ff, perlchartdir::glassEffect($perlchartdir::NormalGlare,
            $perlchartdir::Top), 4);
        # Add a 5-pixel thick smooth color scale at y = 48 (below the meter scale)
        $m->addColorScale($smoothColorScale, 48, 5);
    } elsif ($chartIndex == 1) {
        # Add a purple (0xaa66ff) bar from 0 to value
        $m->addBar(0, $value, 0xaa66ff);
        # Add a 4 pixel thick purple (0x880088) frame
        $m->setThickFrame(4, 0x880088);
        # Add a 5-pixel thick high/low color scale at y = 48 (below the meter scale)
        $m->addColorScale($highLowColorScale, 48, 5);
    } elsif ($chartIndex == 2) {
         # Add a green (0x00ee00) bar from 0 to value with right side soft lighting effect and 4
         # pixel rounded corners
        $m->addBar(0, $value, 0x00ee00, perlchartdir::softLighting($perlchartdir::Right), 4);
        # Add a 5-pixel thick step color scale at y = 48 (below the meter scale)
        $m->addColorScale($stepColorScale, 48, 5);
    } elsif ($chartIndex == 3) {
          # Add an orange (0xff8800) bar from 0 to value with cylinder lighting effect
        $m->addBar(0, $value, 0xff8800, perlchartdir::cylinderEffect());
        # Add a 4 pixel thick brown (0xbb5500) frame
        $m->setThickFrame(4, 0xbb5500);
        # Add a 5-pixel thick high only color scale at y = 48 (below the meter scale)
        $m->addColorScale($highColorScale, 48, 5);
    } elsif ($chartIndex == 4) {
         # Add a magneta (0xdd00dd) bar from 0 to value with top side soft lighting effect and 4
         # pixel rounded corners
        $m->addBar(0, $value, 0xdd00dd, perlchartdir::softLighting($perlchartdir::Top), 4);
        # Add a 5-pixel thick smooth color scale at y = 48 (below the meter scale)
        $m->addColorScale($smoothColorScale, 48, 5);
    } else {
         # Add a red (0xff0000) bar from 0 to value with bar lighting effect
        $m->addBar(0, $value, 0xff0000, perlchartdir::barLighting());
        # Add a 4 pixel thick red (0xaa0000) frame
        $m->setThickFrame(4, 0xaa0000);
           # Add a 5-pixel thick high/low color scale at y = 48 (below the meter scale)
        $m->addColorScale($highLowColorScale, 48, 5);
    }

    # Add a label left aligned to (12, 65) using 8pt Arial Bold font
    $m->addText(12, 65, "Temperature C", "Arial Bold", 8, $perlchartdir::TextColor,
        $perlchartdir::Left);

    # Add a text box right aligned to (243, 65). Display the value using white (0xffffff) 8pt Arial
    # Bold font on a black (0x000000) background with depressed dark grey (0x333333) rounded border.
    my $t = $m->addText(243, 65, $m->formatValue($value, "2"), "Arial", 8, 0xffffff,
        $perlchartdir::Right);
    $t->setBackground(0x000000, 0x333333, -1);
    $t->setRoundedCorners(3);

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

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