ChartDirector Ver 4.1 (Perl Edition)

Built-In Symbols




This example demonstrates the built-in symbols supported by ChartDirector.

Source Code Listing

[Standalone Version] perldemo\builtinsymbols.pl
#!/usr/bin/perl
use perlchartdir;

# Some ChartDirector built-in symbols
my $symbols = [$perlchartdir::SquareSymbol, $perlchartdir::DiamondSymbol,
    $perlchartdir::TriangleSymbol, $perlchartdir::RightTriangleSymbol,
    $perlchartdir::LeftTriangleSymbol, $perlchartdir::InvertedTriangleSymbol,
    $perlchartdir::CircleSymbol, perlchartdir::StarShape(3), perlchartdir::StarShape(
    4), perlchartdir::StarShape(5), perlchartdir::StarShape(6),
    perlchartdir::StarShape(7), perlchartdir::StarShape(8), perlchartdir::StarShape(9
    ), perlchartdir::StarShape(10), perlchartdir::PolygonShape(5),
    perlchartdir::Polygon2Shape(5), perlchartdir::PolygonShape(6),
    perlchartdir::Polygon2Shape(6), perlchartdir::PolygonShape(7),
    perlchartdir::PolygonShape(8), perlchartdir::CrossShape(0.1),
    perlchartdir::CrossShape(0.2), perlchartdir::CrossShape(0.3),
    perlchartdir::CrossShape(0.4), perlchartdir::CrossShape(0.5),
    perlchartdir::CrossShape(0.6), perlchartdir::CrossShape(0.7),
    perlchartdir::Cross2Shape(0.1), perlchartdir::Cross2Shape(0.2),
    perlchartdir::Cross2Shape(0.3), perlchartdir::Cross2Shape(0.4),
    perlchartdir::Cross2Shape(0.5), perlchartdir::Cross2Shape(0.6),
    perlchartdir::Cross2Shape(0.7)];

# Create a XYChart object of size 450 x 400 pixels
my $c = new XYChart(450, 400);

# Set the plotarea at (55, 40) and of size 350 x 300 pixels, with a light grey border
# (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color
# (0xc0c0c0)
$c->setPlotArea(55, 40, 350, 300, -1, -1, 0xc0c0c0, 0xc0c0c0, -1);

# Add a title to the chart using 18 pts Times Bold Itatic font.
$c->addTitle("Built-in Symbols", "timesbi.ttf", 18);

# Set the axes line width to 3 pixels
$c->xAxis()->setWidth(3);
$c->yAxis()->setWidth(3);

# Add each symbol as a separate scatter layer.
for(my $i = 0; $i < scalar(@$symbols); ++$i) {
    $c->addScatterLayer([$i % 5 + 1], [int($i / 5 + 1)], "", $symbols->[$i], 15);
}

# output the chart
$c->makeChart("builtinsymbols.png")

[CGI Version] perldemo_cgi\builtinsymbols.pl
#!/usr/bin/perl

# Include current script directory in the module path (needed on Microsoft IIS).
# This allows this script to work by copying ChartDirector to the same directory
# as the script (as an alternative to installation in Perl module directory)
use File::Basename;
use lib dirname($0);

use perlchartdir;

# Some ChartDirector built-in symbols
my $symbols = [$perlchartdir::SquareSymbol, $perlchartdir::DiamondSymbol,
    $perlchartdir::TriangleSymbol, $perlchartdir::RightTriangleSymbol,
    $perlchartdir::LeftTriangleSymbol, $perlchartdir::InvertedTriangleSymbol,
    $perlchartdir::CircleSymbol, perlchartdir::StarShape(3), perlchartdir::StarShape(
    4), perlchartdir::StarShape(5), perlchartdir::StarShape(6),
    perlchartdir::StarShape(7), perlchartdir::StarShape(8), perlchartdir::StarShape(9
    ), perlchartdir::StarShape(10), perlchartdir::PolygonShape(5),
    perlchartdir::Polygon2Shape(5), perlchartdir::PolygonShape(6),
    perlchartdir::Polygon2Shape(6), perlchartdir::PolygonShape(7),
    perlchartdir::PolygonShape(8), perlchartdir::CrossShape(0.1),
    perlchartdir::CrossShape(0.2), perlchartdir::CrossShape(0.3),
    perlchartdir::CrossShape(0.4), perlchartdir::CrossShape(0.5),
    perlchartdir::CrossShape(0.6), perlchartdir::CrossShape(0.7),
    perlchartdir::Cross2Shape(0.1), perlchartdir::Cross2Shape(0.2),
    perlchartdir::Cross2Shape(0.3), perlchartdir::Cross2Shape(0.4),
    perlchartdir::Cross2Shape(0.5), perlchartdir::Cross2Shape(0.6),
    perlchartdir::Cross2Shape(0.7)];

# Create a XYChart object of size 450 x 400 pixels
my $c = new XYChart(450, 400);

# Set the plotarea at (55, 40) and of size 350 x 300 pixels, with a light grey border
# (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color
# (0xc0c0c0)
$c->setPlotArea(55, 40, 350, 300, -1, -1, 0xc0c0c0, 0xc0c0c0, -1);

# Add a title to the chart using 18 pts Times Bold Itatic font.
$c->addTitle("Built-in Symbols", "timesbi.ttf", 18);

# Set the axes line width to 3 pixels
$c->xAxis()->setWidth(3);
$c->yAxis()->setWidth(3);

# Add each symbol as a separate scatter layer.
for(my $i = 0; $i < scalar(@$symbols); ++$i) {
    $c->addScatterLayer([$i % 5 + 1], [int($i / 5 + 1)], "", $symbols->[$i], 15);
}

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