#!/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 = 74.25;

    # Bar colors of the meters
    my $barColor = [0x2299ff, 0x00ee00, 0xaa66ee, 0xff7711];

    # Create a LinearMeter object of size 70 x 240 pixels with very light grey (0xeeeeee) backgruond
    # and a grey (0xaaaaaa) 3-pixel thick rounded frame
    my $m = new LinearMeter(70, 240, 0xeeeeee, 0xaaaaaa);
    $m->setRoundedFrame($perlchartdir::Transparent);
    $m->setThickFrame(3);

    # This example demonstrates putting the text labels at the left or right side of the meter
    # scale, and putting the color scale on the same side as the labels or on opposite side.
    my $alignment = [$perlchartdir::Left, $perlchartdir::Left, $perlchartdir::Right,
        $perlchartdir::Right];
    my $meterXPos = [28, 38, 12, 21];
    my $labelGap = [2, 12, 10, 2];
    my $colorScalePos = [53, 28, 36, 10];

    # Configure the position of the meter scale and which side to put the text labels
    $m->setMeter($meterXPos->[$chartIndex], 18, 20, 205, $alignment->[$chartIndex]);

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

    # To put the color scale on the same side as the text labels, we need to increase the gap
    # between the labels and the meter scale to make room for the color scale
    $m->setLabelPos(0, $labelGap->[$chartIndex]);

    # Add a smooth color scale to the meter
    my $smoothColorScale = [0, 0x0000ff, 25, 0x0088ff, 50, 0x00ff00, 75, 0xdddd00, 100, 0xff0000];
    $m->addColorScale($smoothColorScale, $colorScalePos->[$chartIndex], 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);

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

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

#!/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 = 74.25;

# Bar colors of the meters
my $barColor = [0x2299ff, 0x00ee00, 0xaa66ee, 0xff7711];

# Create a LinearMeter object of size 70 x 240 pixels with very light grey (0xeeeeee) backgruond and
# a grey (0xaaaaaa) 3-pixel thick rounded frame
my $m = new LinearMeter(70, 240, 0xeeeeee, 0xaaaaaa);
$m->setRoundedFrame($perlchartdir::Transparent);
$m->setThickFrame(3);

# This example demonstrates putting the text labels at the left or right side of the meter scale,
# and putting the color scale on the same side as the labels or on opposite side.
my $alignment = [$perlchartdir::Left, $perlchartdir::Left, $perlchartdir::Right,
    $perlchartdir::Right];
my $meterXPos = [28, 38, 12, 21];
my $labelGap = [2, 12, 10, 2];
my $colorScalePos = [53, 28, 36, 10];

# Configure the position of the meter scale and which side to put the text labels
$m->setMeter($meterXPos->[$chartIndex], 18, 20, 205, $alignment->[$chartIndex]);

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

# To put the color scale on the same side as the text labels, we need to increase the gap between
# the labels and the meter scale to make room for the color scale
$m->setLabelPos(0, $labelGap->[$chartIndex]);

# Add a smooth color scale to the meter
my $smoothColorScale = [0, 0x0000ff, 25, 0x0088ff, 50, 0x00ff00, 75, 0xdddd00, 100, 0xff0000];
$m->addColorScale($smoothColorScale, $colorScalePos->[$chartIndex], 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);

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