#!/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 = 50;
# The main color of the four meters in this example. The other colors and gradients are derived
# from the main color.
my $colorList = [0x007700, 0x770077, 0x0033dd, 0x880000];
my $mainColor = $colorList->[$chartIndex];
#
# In this example, we demonstrate how to parameterized by size, so that the chart size can be
# changed by changing just one variable.
#
my $size = 300;
# The radius of the entire meter, which is size / 2, minus 2 pixels for margin
my $outerRadius = int($size / 2 - 2);
# The radius of the meter scale
my $scaleRadius = int($outerRadius * 92 / 100);
# The radius of the inner decorative circle
my $innerRadius = int($scaleRadius * 40 / 100);
# The width of the color scale
my $colorScaleWidth = int($scaleRadius * 10 / 100);
# Major tick length
my $tickLength = int($scaleRadius * 10 / 100);
# Major tick width
my $tickWidth = int($scaleRadius * 1 / 100 + 1);
# Label font size
my $fontSize = int($scaleRadius * 13 / 100);
#
# Create an angular meter based on the above parameters
#
# Create an AngularMeter object of the specified size. In this demo, we use black (0x000000) as
# the background color. You can also use transparent or other colors.
my $m = new AngularMeter($size, $size, 0x000000);
# Set the default text and line colors to white (0xffffff)
$m->setColor($perlchartdir::TextColor, 0xffffff);
$m->setColor($perlchartdir::LineColor, 0xffffff);
# Set meter center and scale radius, and set the scale angle from -180 to +90 degrees
$m->setMeter($size / 2, $size / 2, $scaleRadius, -180, 90);
# Background gradient with the mainColor at the center and become darker near the border
my $bgGradient = [0, $mainColor, 0.5, $m->adjustBrightness($mainColor, 0.75), 1,
$m->adjustBrightness($mainColor, 0.15)];
# Fill the meter background with the background gradient
$m->addRing(0, $outerRadius, $m->relativeRadialGradient($bgGradient, $outerRadius * 0.66));
# Fill the inner circle with the same background gradient for decoration
$m->addRing(0, $innerRadius, $m->relativeRadialGradient($bgGradient, $innerRadius * 0.8));
# Gradient for the neon backlight, with the main color at the scale radius fading to transparent
my $neonGradient = [0.89, $perlchartdir::Transparent, 1, $mainColor, 1.07,
$perlchartdir::Transparent];
$m->addRing(int($scaleRadius * 85 / 100), $outerRadius, $m->relativeRadialGradient($neonGradient
));
# The neon ring at the scale radius with width equal to 1/80 of the scale radius, creating using
# a brighter version of the main color
$m->addRing($scaleRadius, int($scaleRadius + $scaleRadius / 80), $m->adjustBrightness(
$mainColor, 2));
# Meter scale is 0 - 100, with major/minor/micro ticks every 10/5/1 units
$m->setScale(0, 100, 10, 5, 1);
# Set the scale label style, tick length and tick width. The minor and micro tick lengths are
# 80% and 60% of the major tick length, and their widths are around half of the major tick
# width.
$m->setLabelStyle("ariali.ttf", $fontSize);
$m->setTickLength(-$tickLength, -int($tickLength * 80 / 100), -int($tickLength * 60 / 100));
$m->setLineWidth(0, $tickWidth, int(($tickWidth + 1) / 2), int(($tickWidth + 1) / 2));
# Demostrate different types of color scales and glare effects and putting them at different
# positions.
my $smoothColorScale = [0, 0x0000ff, 25, 0x0088ff, 50, 0x00ff00, 75, 0xdddd00, 100, 0xff0000];
my $stepColorScale = [0, 0x00dd00, 60, 0xddaa00, 80, 0xdd0000, 100];
my $highColorScale = [70, $perlchartdir::Transparent, 100, 0xff0000];
if ($chartIndex == 1) {
# Add the smooth color scale just outside the inner circle
$m->addColorScale($smoothColorScale, $innerRadius + 1, $colorScaleWidth);
# Add glare up to the scale radius, concave and spanning 190 degrees
$m->addGlare($scaleRadius, -190);
} elsif ($chartIndex == 2) {
# Add the high color scale at the default position
$m->addColorScale($highColorScale);
# Add glare up to the scale radius
$m->addGlare($scaleRadius);
} else {
# Add the step color scale just outside the inner circle
$m->addColorScale($stepColorScale, $innerRadius + 1, $colorScaleWidth);
# Add glare up to the scale radius, concave and spanning 190 degrees and rotated by -45
# degrees
$m->addGlare($scaleRadius, -190, -45);
}
# Add a red (0xff0000) pointer at the specified value
$m->addPointer2($value, 0xff0000);
# Set the cap background to a brighter version of the mainColor, and using black (0x000000) for
# the cap and grey (0x999999) for the cap border
$m->setCap2($m->adjustBrightness($mainColor, 1.1), 0x000000, 0x999999);
# Output the chart
$m->makeChart("neonroundmeter$chartIndex.png")
}
createChart(0);
createChart(1);
createChart(2);
createChart(3); |
