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

    # The bar colors for the meters
    my $barColor = [0x0088ff, 0x00cc00, 0x8833dd, 0xff8800];

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

    # This example demonstrates putting the text labels at the top or bottom. This is by setting the
    # label alignment, as well as the scale, color scale and label positions.
    my $alignment = [$perlchartdir::Top, $perlchartdir::Top, $perlchartdir::Bottom,
        $perlchartdir::Bottom];
    my $meterYPos = [24, 24, 36, 36];
    my $labelYPos = [65, 65, 16, 16];
    my $colorScalePos = [48, 48, 27, 27];

    # Set the scale region
    $m->setMeter(18, $meterYPos->[$chartIndex], 222, 20, $alignment->[$chartIndex]);

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

    # Add a 5-pixel thick smooth color scale
    my $smoothColorScale = [0, 0x0000ff, 25, 0x0088ff, 50, 0x00ff00, 75, 0xdddd00, 100, 0xff0000];
    $m->addColorScale($smoothColorScale, $colorScalePos->[$chartIndex], 5);

    # 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::Top), 4);

    #
    # In this example, some charts have the "Temperauture" label on the left side and the value
    # readout on the right side, and some charts have the reverse
    #

    if ($chartIndex % 2 == 0) {
        # Add a label on the left side using 8pt Arial Bold font
        $m->addText(15, $labelYPos->[$chartIndex], "Temperature C", "arialbd.ttf", 8,
            $perlchartdir::TextColor, $perlchartdir::Left);

        # Add a text box on the right side. Display the value using white (0xffffff) 8pt Arial Bold
        # font on a black (0x000000) background with depressed rounded border.
        my $t = $m->addText(240, $labelYPos->[$chartIndex], $m->formatValue($value, "2"),
            "arial.ttf", 8, 0xffffff, $perlchartdir::Right);
        $t->setBackground(0x000000, 0x000000, -1);
        $t->setRoundedCorners(3);
    } else {
        # Add a label on the right side using 8pt Arial Bold font
        $m->addText(243, $labelYPos->[$chartIndex], "Temperature C", "arialbd.ttf", 8,
            $perlchartdir::TextColor, $perlchartdir::Right);

        # Add a text box on the left side. Display the value using white (0xffffff) 8pt Arial Bold
        # font on a black (0x000000) background with depressed rounded border.
        my $t = $m->addText(18, $labelYPos->[$chartIndex], $m->formatValue($value, "2"),
            "arial.ttf", 8, 0xffffff, $perlchartdir::Left);
        $t->setBackground(0x000000, 0x000000, -1);
        $t->setRoundedCorners(3);
    }

    # Output the chart
    $m->makeChart("hbarmeterorientation$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 = 75.35;

# The bar colors for the meters
my $barColor = [0x0088ff, 0x00cc00, 0x8833dd, 0xff8800];

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

# This example demonstrates putting the text labels at the top or bottom. This is by setting the
# label alignment, as well as the scale, color scale and label positions.
my $alignment = [$perlchartdir::Top, $perlchartdir::Top, $perlchartdir::Bottom,
    $perlchartdir::Bottom];
my $meterYPos = [24, 24, 36, 36];
my $labelYPos = [65, 65, 16, 16];
my $colorScalePos = [48, 48, 27, 27];

# Set the scale region
$m->setMeter(18, $meterYPos->[$chartIndex], 222, 20, $alignment->[$chartIndex]);

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

# Add a 5-pixel thick smooth color scale
my $smoothColorScale = [0, 0x0000ff, 25, 0x0088ff, 50, 0x00ff00, 75, 0xdddd00, 100, 0xff0000];
$m->addColorScale($smoothColorScale, $colorScalePos->[$chartIndex], 5);

# 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::Top), 4);

#
# In this example, some charts have the "Temperauture" label on the left side and the value readout
# on the right side, and some charts have the reverse
#

if ($chartIndex % 2 == 0) {
    # Add a label on the left side using 8pt Arial Bold font
    $m->addText(15, $labelYPos->[$chartIndex], "Temperature C", "arialbd.ttf", 8,
        $perlchartdir::TextColor, $perlchartdir::Left);

    # Add a text box on the right side. Display the value using white (0xffffff) 8pt Arial Bold font
    # on a black (0x000000) background with depressed rounded border.
    my $t = $m->addText(240, $labelYPos->[$chartIndex], $m->formatValue($value, "2"), "arial.ttf",
        8, 0xffffff, $perlchartdir::Right);
    $t->setBackground(0x000000, 0x000000, -1);
    $t->setRoundedCorners(3);
} else {
    # Add a label on the right side using 8pt Arial Bold font
    $m->addText(243, $labelYPos->[$chartIndex], "Temperature C", "arialbd.ttf", 8,
        $perlchartdir::TextColor, $perlchartdir::Right);

    # Add a text box on the left side. Display the value using white (0xffffff) 8pt Arial Bold font
    # on a black (0x000000) background with depressed rounded border.
    my $t = $m->addText(18, $labelYPos->[$chartIndex], $m->formatValue($value, "2"), "arial.ttf", 8,
        0xffffff, $perlchartdir::Left);
    $t->setBackground(0x000000, 0x000000, -1);
    $t->setRoundedCorners(3);
}

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