Surface Projection

perldemo\surfaceprojection.pl
#!/usr/bin/perl

# The ChartDirector for Perl module is assumed to be in "../lib"
use File::Basename;
use lib (dirname($0)."/../lib") =~ /(.*)/;

use perlchartdir;

# The x and y coordinates of the grid
my $dataX = [0, 1, 2, 3, 4, 5, 6, 7, 8];
my $dataY = [0, 1, 2, 3, 4, 5, 6, 7, 8];

# Use random numbers for the z values on the XY grid
my $r = new RanSeries(11);
my $dataZ = $r->get2DSeries(scalar(@$dataX), scalar(@$dataY), 0.1, 1.9);

# Create a SurfaceChart object of size 680 x 580 pixels
my $c = new SurfaceChart(680, 580);

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

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

# Set the data to use to plot the chart
$c->setData($dataX, $dataY, $dataZ);

# Spline interpolate data to a 80 x 80 grid for a smooth surface
$c->setInterpolation(80, 80);

# Use semi-transparent black (c0000000) for x and y major surface grid lines. Use dotted style for x
# and y minor surface grid lines.
my $majorGridColor = 0xc0000000;
my $minorGridColor = $c->dashLineColor($majorGridColor, $perlchartdir::DotLine);
$c->setSurfaceAxisGrid($majorGridColor, $majorGridColor, $minorGridColor, $minorGridColor);

# Add XY projection
$c->addXYProjection();

# Set contour lines to semi-transparent white (0x7fffffff)
$c->setContourColor(0x7fffffff);

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

# Set the x, y and z axis titles using 12 pt Arial Bold font
$c->xAxis()->setTitle("X Title<*br*>Placeholder", "Arial Bold", 12);
$c->yAxis()->setTitle("Y Title<*br*>Placeholder", "Arial Bold", 12);
$c->zAxis()->setTitle("Z Title Placeholder", "Arial Bold", 12);

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