3D Scatter Chart (2)

[Standalone Version] perldemo\threedscatter2.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;

# The XYZ data for the 3D scatter chart as 3 random data series
my $r = new RanSeries(3);
my $xData = $r->getSeries2(20, 100, -10, 10);
my $yData = $r->getSeries2(20, 100, -10, 10);
my $zData = $r->getSeries2(20, 100, -10, 10);

# Create a ThreeDScatterChart object of size 720 x 520 pixels
my $c = new ThreeDScatterChart(720, 520);

# Add a title to the chart using 20 points Times New Roman Italic font
$c->addTitle("3D Scatter Chart (2)  ", "timesi.ttf", 20);

# Set the center of the plot region at (350, 240), and set width x depth x height to 360 x 360 x 270
# pixels
$c->setPlotRegion(350, 240, 360, 360, 270);

# Set the elevation and rotation angles to 15 and 30 degrees
$c->setViewAngle(15, 30);

# Add a scatter group to the chart using 13 pixels glass sphere symbols, in which the color depends
# on the z value of the symbol
my $g = $c->addScatterGroup($xData, $yData, $zData, "", $perlchartdir::GlassSphere2Shape, 13,
    $perlchartdir::SameAsMainColor);

# Add grey (888888) drop lines to the symbols
$g->setDropLine(0x888888);

# Add a color axis (the legend) in which the left center is anchored at (645, 220). Set the length
# to 200 pixels and the labels on the right side. Use smooth gradient coloring.
$c->setColorAxis(645, 220, $perlchartdir::Left, 200, $perlchartdir::Right)->setColorGradient();

# Set the x, y and z axis titles using 10 points Arial Bold font
$c->xAxis()->setTitle("X-Axis Place Holder", "arialbd.ttf", 10);
$c->yAxis()->setTitle("Y-Axis Place Holder", "arialbd.ttf", 10);
$c->zAxis()->setTitle("Z-Axis Place Holder", "arialbd.ttf", 10);

# Output the chart
$c->makeChart("threedscatter2.png")

[CGI Version] perldemo_cgi\threedscatter2.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;

# The XYZ data for the 3D scatter chart as 3 random data series
my $r = new RanSeries(3);
my $xData = $r->getSeries2(20, 100, -10, 10);
my $yData = $r->getSeries2(20, 100, -10, 10);
my $zData = $r->getSeries2(20, 100, -10, 10);

# Create a ThreeDScatterChart object of size 720 x 520 pixels
my $c = new ThreeDScatterChart(720, 520);

# Add a title to the chart using 20 points Times New Roman Italic font
$c->addTitle("3D Scatter Chart (2)  ", "timesi.ttf", 20);

# Set the center of the plot region at (350, 240), and set width x depth x height to 360 x 360 x 270
# pixels
$c->setPlotRegion(350, 240, 360, 360, 270);

# Set the elevation and rotation angles to 15 and 30 degrees
$c->setViewAngle(15, 30);

# Add a scatter group to the chart using 13 pixels glass sphere symbols, in which the color depends
# on the z value of the symbol
my $g = $c->addScatterGroup($xData, $yData, $zData, "", $perlchartdir::GlassSphere2Shape, 13,
    $perlchartdir::SameAsMainColor);

# Add grey (888888) drop lines to the symbols
$g->setDropLine(0x888888);

# Add a color axis (the legend) in which the left center is anchored at (645, 220). Set the length
# to 200 pixels and the labels on the right side. Use smooth gradient coloring.
$c->setColorAxis(645, 220, $perlchartdir::Left, 200, $perlchartdir::Right)->setColorGradient();

# Set the x, y and z axis titles using 10 points Arial Bold font
$c->xAxis()->setTitle("X-Axis Place Holder", "arialbd.ttf", 10);
$c->yAxis()->setTitle("Y-Axis Place Holder", "arialbd.ttf", 10);
$c->zAxis()->setTitle("Z-Axis Place Holder", "arialbd.ttf", 10);

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