ChartDirector 6.0 (Perl Edition)

Color Semicircle Meters

          

This example demonstrates semicircle meters in various gradient colors, as well as various color scales and pointer types.

The background color in this example changes from a specified color at the border, to a brighter version of the color at the center. The brighter color is derived from the specified color using BaseChart.adjustBrightness. To achieve the radial gradient effect, these two colors are passed to AngularMeter.relativeRadialGradient to create a radial gradient color. The gradient color is then passed to AngularMeter.addScaleBackground to fill the background.

BaseMeter.addColorScale is used to create the color scales in this example. The color scales are created by with different colors, different end point positions and different widths at the end points.

Two pointer types are shown in these meters - a sharp very thin triangular pointer, and a line pointer. They are created using AngularMeter.addPointer2 with TriangularPointer2 and LinePointer2 as parameters.

Source Code Listing

[Standalone Version] perldemo\colorsemicirclemeter.pl 
#!/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 = 72.55;

    # The background and border colors of the meters
    my $bgColor = [0x88ccff, 0xffdddd, 0xffddaa, 0xffccff, 0xdddddd, 0xccffcc];
    my $borderColor = [0x000077, 0x880000, 0xee6600, 0x440088, 0x000000, 0x006000];

    # Create an AngularMeter object of size 300 x 180 pixels with transparent background
    my $m = new AngularMeter(300, 180, $perlchartdir::Transparent);

    # Center at (150, 150), scale radius = 124 pixels, scale angle -90 to +90 degrees
    $m->setMeter(150, 150, 124, -90, 90);

    # Background gradient color with brighter color at the center
    my $bgGradient = [0, $m->adjustBrightness($bgColor->[$chartIndex], 3), 0.75, $bgColor->[
        $chartIndex]];

    # Add a scale background of 148 pixels radius using the background gradient, with a 13 pixel
    # thick border
    $m->addScaleBackground(148, $m->relativeRadialGradient($bgGradient), 13, $borderColor->[
        $chartIndex]);

    # Meter scale is 0 - 100, with major tick every 20 units, minor tick every 10 units, and micro
    # tick every 5 units
    $m->setScale(0, 100, 20, 10, 5);

    # Set the scale label style to 15pt Arial Italic. Set the major/minor/micro tick lengths to
    # 16/16/10 pixels pointing inwards, and their widths to 2/1/1 pixels.
    $m->setLabelStyle("ariali.ttf", 16);
    $m->setTickLength(-16, -16, -10);
    $m->setLineWidth(0, 2, 1, 1);

    # Demostrate different types of color scales and putting them at different positions
    my $smoothColorScale = [0, 0x3333ff, 25, 0x0088ff, 50, 0x00ff00, 75, 0xdddd00, 100, 0xff0000];
    my $stepColorScale = [0, 0x00cc00, 60, 0xffdd00, 80, 0xee0000, 100];
    my $highLowColorScale = [0, 0x00ff00, 70, $perlchartdir::Transparent, 100, 0xff0000];

    if ($chartIndex == 0) {
        # Add the smooth color scale at the default position
        $m->addColorScale($smoothColorScale);
    } elsif ($chartIndex == 1) {
        # Add the smooth color scale starting at radius 124 with zero width and ending at radius 124
        # with 16 pixels inner width
        $m->addColorScale($smoothColorScale, 124, 0, 124, -16);
    } elsif ($chartIndex == 2) {
        # Add the smooth color scale starting at radius 65 with zero width and ending at radius 55
        # with 20 pixels outer width
        $m->addColorScale($smoothColorScale, 65, 0, 55, 20);
    } elsif ($chartIndex == 3) {
        # Add the high/low color scale at the default position
        $m->addColorScale($highLowColorScale);
    } elsif ($chartIndex == 4) {
        # Add the step color scale at the default position
        $m->addColorScale($stepColorScale);
    } else {
        # Add the smooth color scale at radius 55 with 20 pixels outer width
        $m->addColorScale($smoothColorScale, 55, 20);
    }

    # Add a text label centered at (150, 125) with 15pt Arial Italic font
    $m->addText(150, 125, "CPU", "ariali.ttf", 15, $perlchartdir::TextColor,
        $perlchartdir::BottomCenter);

    # Demonstrate two different types of pointers - thin triangular pointer (the default) and line
    # pointer
    if ($chartIndex % 2 == 0) {
        $m->addPointer2($value, 0xff0000);
    } else {
        $m->addPointer2($value, 0xff0000, -1, $perlchartdir::LinePointer2);
    }

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

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

[CGI Version] perldemo_cgi\colorsemicirclemeter.pl 
#!/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 = 72.55;

# The background and border colors of the meters
my $bgColor = [0x88ccff, 0xffdddd, 0xffddaa, 0xffccff, 0xdddddd, 0xccffcc];
my $borderColor = [0x000077, 0x880000, 0xee6600, 0x440088, 0x000000, 0x006000];

# Create an AngularMeter object of size 300 x 180 pixels with transparent background
my $m = new AngularMeter(300, 180, $perlchartdir::Transparent);

# Center at (150, 150), scale radius = 124 pixels, scale angle -90 to +90 degrees
$m->setMeter(150, 150, 124, -90, 90);

# Background gradient color with brighter color at the center
my $bgGradient = [0, $m->adjustBrightness($bgColor->[$chartIndex], 3), 0.75, $bgColor->[$chartIndex]
    ];

# Add a scale background of 148 pixels radius using the background gradient, with a 13 pixel thick
# border
$m->addScaleBackground(148, $m->relativeRadialGradient($bgGradient), 13, $borderColor->[$chartIndex]
    );

# Meter scale is 0 - 100, with major tick every 20 units, minor tick every 10 units, and micro tick
# every 5 units
$m->setScale(0, 100, 20, 10, 5);

# Set the scale label style to 15pt Arial Italic. Set the major/minor/micro tick lengths to 16/16/10
# pixels pointing inwards, and their widths to 2/1/1 pixels.
$m->setLabelStyle("ariali.ttf", 16);
$m->setTickLength(-16, -16, -10);
$m->setLineWidth(0, 2, 1, 1);

# Demostrate different types of color scales and putting them at different positions
my $smoothColorScale = [0, 0x3333ff, 25, 0x0088ff, 50, 0x00ff00, 75, 0xdddd00, 100, 0xff0000];
my $stepColorScale = [0, 0x00cc00, 60, 0xffdd00, 80, 0xee0000, 100];
my $highLowColorScale = [0, 0x00ff00, 70, $perlchartdir::Transparent, 100, 0xff0000];

if ($chartIndex == 0) {
    # Add the smooth color scale at the default position
    $m->addColorScale($smoothColorScale);
} elsif ($chartIndex == 1) {
    # Add the smooth color scale starting at radius 124 with zero width and ending at radius 124
    # with 16 pixels inner width
    $m->addColorScale($smoothColorScale, 124, 0, 124, -16);
} elsif ($chartIndex == 2) {
    # Add the smooth color scale starting at radius 65 with zero width and ending at radius 55 with
    # 20 pixels outer width
    $m->addColorScale($smoothColorScale, 65, 0, 55, 20);
} elsif ($chartIndex == 3) {
    # Add the high/low color scale at the default position
    $m->addColorScale($highLowColorScale);
} elsif ($chartIndex == 4) {
    # Add the step color scale at the default position
    $m->addColorScale($stepColorScale);
} else {
    # Add the smooth color scale at radius 55 with 20 pixels outer width
    $m->addColorScale($smoothColorScale, 55, 20);
}

# Add a text label centered at (150, 125) with 15pt Arial Italic font
$m->addText(150, 125, "CPU", "ariali.ttf", 15, $perlchartdir::TextColor, $perlchartdir::BottomCenter
    );

# Demonstrate two different types of pointers - thin triangular pointer (the default) and line
# pointer
if ($chartIndex % 2 == 0) {
    $m->addPointer2($value, 0xff0000);
} else {
    $m->addPointer2($value, 0xff0000, -1, $perlchartdir::LinePointer2);
}

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

© 2017 Advanced Software Engineering Limited. All rights reserved.