#!/usr/bin/perl
use perlchartdir;

sub createChart
{
    my $img = shift;

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

    # Create an AugularMeter object of size 200 x 100 pixels with rounded corners
    my $m = new AngularMeter(200, 100);
    $m->setRoundedFrame();

    # Set meter background according to a parameter
    if ($img eq "0") {
        # Use gold background color
        $m->setBackground(perlchartdir::goldColor(), 0x000000, -2);
    } elsif ($img eq "1") {
        # Use silver background color
        $m->setBackground(perlchartdir::silverColor(), 0x000000, -2);
    } elsif ($img eq "2") {
        # Use metallic blue (9898E0) background color
        $m->setBackground(perlchartdir::metalColor(0x9898e0), 0x000000, -2);
    } elsif ($img eq "3") {
        # Use a wood pattern as background color
        $m->setBackground($m->patternColor2("wood.png"), 0x000000, -2);
    } elsif ($img eq "4") {
        # Use a marble pattern as background color
        $m->setBackground($m->patternColor2("marble.png"), 0x000000, -2);
    } else {
        # Use a solid light purple (EEBBEE) background color
        $m->setBackground(0xeebbee, 0x000000, -2);
    }

    # Set the meter center at (100, 235), with radius 210 pixels, and span from -24
    # to +24 degress
    $m->setMeter(100, 235, 210, -24, 24);

    # Meter scale is 0 - 100, with a tick every 1 unit
    $m->setScale(0, 10, 1);

    # Set 0 - 6 as green (99ff99) zone, 6 - 8 as yellow (ffff00) zone, and 8 - 10 as
    # red (ff3333) zone
    $m->addZone(0, 6, 0x99ff99, 0x808080);
    $m->addZone(6, 8, 0xffff00, 0x808080);
    $m->addZone(8, 10, 0xff3333, 0x808080);

    # Add a title at the bottom of the meter using 10 pts Arial Bold font
    $m->addTitle2($perlchartdir::Bottom, "OUTPUT POWER LEVEL\n", "arialbd.ttf", 10);

    # Add a semi-transparent black (80000000) pointer at the specified value
    $m->addPointer($value, 0x80000000);

    # Output the chart
    $m->makeChart("wideameter$img.png")
}

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