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

    # Create a LinearMeter object of size 70 x 260 pixels with black background and rounded corners
    my $m = new LinearMeter(70, 260, 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 (36, 30), with size of 20 x 196 pixels. The scale
    # labels are located on the left (default - implies vertical meter).
    $m->setMeter(36, 30, 20, 196);

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

    # Add the chart title at the top center
    my $title = $m->addText($m->getWidth() / 2, 5, "Temp C", "arialbd.ttf", 8,
        $perlchartdir::TextColor, $perlchartdir::TopCenter);

    # Move the scale labels 8 pixels from the meter scale to make room for the color scale
    $m->setLabelPos(0, 8);

    # 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, 0xff0000, 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::Left), 4);
        # Add a 4-pixel thick smooth color scale at x = 29 (left of meter scale)
        $m->addColorScale($smoothColorScale, 29, 4);
    } elsif ($chartIndex == 1) {
         # Add a yellow (0xCC9922) bar from 0 to value with bar lighting effect
        $m->addBar(0, $value, 0xcc9922, perlchartdir::barLighting());
        # Add a 4-pixel thick smooth color scale at x = 29 (left of meter scale)
        $m->addColorScale($smoothColorScale, 29, 4);

        # Set the title style to black text on a yellow (0xcc9922) background with rounded corners
        $title->setFontColor(0x000000);
        $title->setBackground(0xcc9922);
        $title->setRoundedCorners(2);
    } elsif ($chartIndex == 2) {
         # Add a grey (0xaaaaaa) bar from 0 to value with bar lighting effect
        $m->addBar(0, $value, 0xaaaaaa, perlchartdir::barLighting());
        # Add a 4-pixel high/low color scale at x = 29 (left of meter scale)
        $m->addColorScale($highLowColorScale, 29, 4);
    } elsif ($chartIndex == 3) {
         # Add a brown (0xbb6622) bar from 0 to value with cylinder lighting effect
        $m->addBar(0, $value, 0xbb6622, perlchartdir::cylinderEffect());
        # Add a 4 pixel thick brown (0xbb6622) frame
        $m->setThickFrame(4, 0xbb6622);
        # Add a high only color scale at x = 29 (left of meter scale)
        $m->addColorScale($highColorScale, 29, 4);
    } elsif ($chartIndex == 4) {
        # Add a purple (0x7755ee) bar from 0 to value
        $m->addBar(0, $value, 0x7755ee);
        # Add a 4 pixel thick purple (0x880088) frame
        $m->setThickFrame(4, 0x880088);
        # Add a 4-pixel high/low color scale at x = 29 (left of meter scale)
        $m->addColorScale($highLowColorScale, 29, 4);
    } else {
         # Add a green (0x00bb00) bar from 0 to value with soft lighting effect and 4 pixel rounded
         # corners
        $m->addBar(0, $value, 0x00bb00, perlchartdir::softLighting(), 4);
        # Add a 4-pixel step color scale at x = 29 (left of meter scale)
        $m->addColorScale($stepColorScale, 29, 4);
    }

    # Add a text box at the bottom-center. Display the value using white (0xffffff) 8pt Arial Bold
    # font on a black (0x000000) background with depressed grey (0x333333) rounded border.
    my $t = $m->addText($m->getWidth() / 2, $m->getHeight() - 7, $m->formatValue($value, "2"),
        "arialbd.ttf", 8, 0xffffff, $perlchartdir::BottomCenter);
    $t->setBackground(0x000000, 0x333333, -1);
    $t->setRoundedCorners(3);

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

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

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

# Create a LinearMeter object of size 70 x 260 pixels with black background and rounded corners
my $m = new LinearMeter(70, 260, 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 (36, 30), with size of 20 x 196 pixels. The scale labels
# are located on the left (default - implies vertical meter).
$m->setMeter(36, 30, 20, 196);

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

# Add the chart title at the top center
my $title = $m->addText($m->getWidth() / 2, 5, "Temp C", "arialbd.ttf", 8, $perlchartdir::TextColor,
    $perlchartdir::TopCenter);

# Move the scale labels 8 pixels from the meter scale to make room for the color scale
$m->setLabelPos(0, 8);

# 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, 0xff0000, 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::Left), 4);
    # Add a 4-pixel thick smooth color scale at x = 29 (left of meter scale)
    $m->addColorScale($smoothColorScale, 29, 4);
} elsif ($chartIndex == 1) {
     # Add a yellow (0xCC9922) bar from 0 to value with bar lighting effect
    $m->addBar(0, $value, 0xcc9922, perlchartdir::barLighting());
    # Add a 4-pixel thick smooth color scale at x = 29 (left of meter scale)
    $m->addColorScale($smoothColorScale, 29, 4);

    # Set the title style to black text on a yellow (0xcc9922) background with rounded corners
    $title->setFontColor(0x000000);
    $title->setBackground(0xcc9922);
    $title->setRoundedCorners(2);
} elsif ($chartIndex == 2) {
     # Add a grey (0xaaaaaa) bar from 0 to value with bar lighting effect
    $m->addBar(0, $value, 0xaaaaaa, perlchartdir::barLighting());
    # Add a 4-pixel high/low color scale at x = 29 (left of meter scale)
    $m->addColorScale($highLowColorScale, 29, 4);
} elsif ($chartIndex == 3) {
     # Add a brown (0xbb6622) bar from 0 to value with cylinder lighting effect
    $m->addBar(0, $value, 0xbb6622, perlchartdir::cylinderEffect());
    # Add a 4 pixel thick brown (0xbb6622) frame
    $m->setThickFrame(4, 0xbb6622);
    # Add a high only color scale at x = 29 (left of meter scale)
    $m->addColorScale($highColorScale, 29, 4);
} elsif ($chartIndex == 4) {
    # Add a purple (0x7755ee) bar from 0 to value
    $m->addBar(0, $value, 0x7755ee);
    # Add a 4 pixel thick purple (0x880088) frame
    $m->setThickFrame(4, 0x880088);
    # Add a 4-pixel high/low color scale at x = 29 (left of meter scale)
    $m->addColorScale($highLowColorScale, 29, 4);
} else {
     # Add a green (0x00bb00) bar from 0 to value with soft lighting effect and 4 pixel rounded
     # corners
    $m->addBar(0, $value, 0x00bb00, perlchartdir::softLighting(), 4);
    # Add a 4-pixel step color scale at x = 29 (left of meter scale)
    $m->addColorScale($stepColorScale, 29, 4);
}

# Add a text box at the bottom-center. Display the value using white (0xffffff) 8pt Arial Bold font
# on a black (0x000000) background with depressed grey (0x333333) rounded border.
my $t = $m->addText($m->getWidth() / 2, $m->getHeight() - 7, $m->formatValue($value, "2"),
    "arialbd.ttf", 8, 0xffffff, $perlchartdir::BottomCenter);
$t->setBackground(0x000000, 0x333333, -1);
$t->setRoundedCorners(3);

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