3D Scatter Chart (1)

This example demonstrates the basic steps in creating 3D scatter charts.

Create a ThreeDScatterChart object using ThreeDScatterChart.ThreeDScatterChart.
Specify the position and size of the plot region using ThreeDChart.setPlotRegion.
Add a scatter group to the chart using ThreeDScatterChart.addScatterGroup. In this example, the symbol color is set to SameAsMainColor, which means the color depends on the z-coordinate as according to the color axis (color legend). The color axis can be accessed using ThreeDChart.colorAxis.
Set the position of the color axis (the color legend) using ThreeDChart.setColorAxis.
Add chart and axis titles using BaseChart.addTitle and Axis.setTitle.
Generate the chart using BaseChart.makeChart.

[Standalone Version] perldemo\threedscatter.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(0);
my $xData = $r->getSeries2(100, 100, -10, 10);
my $yData = $r->getSeries2(100, 0, 0, 20);
my $zData = $r->getSeries2(100, 100, -10, 10);

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

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

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

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

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

# 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("threedscatter.png")

[CGI Version] perldemo_cgi\threedscatter.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(0);
my $xData = $r->getSeries2(100, 100, -10, 10);
my $yData = $r->getSeries2(100, 0, 0, 20);
my $zData = $r->getSeries2(100, 100, -10, 10);

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

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

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

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

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

# 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);