#!/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 x and y coordinates of the grid
    my $dataX = [0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0];
    my $dataY = [0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0];

    # The values at the grid points. In this example, we will compute the values using the formula z
    # = sin((x - 0.5) * 2 * pi) * sin((y - 0.5) * 2 * pi)
    my $dataZ = [(0) x (scalar(@$dataX) * scalar(@$dataY))];
    for(my $yIndex = 0; $yIndex < scalar(@$dataY); ++$yIndex) {
        my $y = ($dataY->[$yIndex] - 0.5) * 2 * 3.1416;
        for(my $xIndex = 0; $xIndex < scalar(@$dataX); ++$xIndex) {
            my $x = ($dataX->[$xIndex] - 0.5) * 2 * 3.1416;
            $dataZ->[$yIndex * scalar(@$dataX) + $xIndex] = sin($x) * sin($y);
        }
    }

    # the perspective level
    my $perspective = $chartIndex * 12;

    # Create a SurfaceChart object of size 360 x 360 pixels, with white (ffffff) background and grey
    # (888888) border.
    my $c = new SurfaceChart(360, 360, 0xffffff, 0x888888);

    # Set the perspective level
    $c->setPerspective($perspective);
    $c->addTitle("Perspective = $perspective");

    # Set the center of the plot region at (195, 165), and set width x depth x height to 200 x 200 x
    # 150 pixels
    $c->setPlotRegion(195, 165, 200, 200, 150);

    # Set the plot region wall thichness to 5 pixels
    $c->setWallThickness(5);

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

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

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

    # Use smooth gradient coloring.
    $c->colorAxis()->setColorGradient();

    # Output the chart
    $c->makeChart("surfaceperspective$chartIndex.jpg")
}

createChart(0);
createChart(1);
createChart(2);
createChart(3);
createChart(4);
createChart(5);

#!/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;

# Get HTTP query parameters
use CGI;
my $query = new CGI;

# This script can draw different charts depending on the chartIndex
$chartIndex = int($query->param("img"));

# The x and y coordinates of the grid
my $dataX = [0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0];
my $dataY = [0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0];

# The values at the grid points. In this example, we will compute the values using the formula z =
# sin((x - 0.5) * 2 * pi) * sin((y - 0.5) * 2 * pi)
my $dataZ = [(0) x (scalar(@$dataX) * scalar(@$dataY))];
for(my $yIndex = 0; $yIndex < scalar(@$dataY); ++$yIndex) {
    my $y = ($dataY->[$yIndex] - 0.5) * 2 * 3.1416;
    for(my $xIndex = 0; $xIndex < scalar(@$dataX); ++$xIndex) {
        my $x = ($dataX->[$xIndex] - 0.5) * 2 * 3.1416;
        $dataZ->[$yIndex * scalar(@$dataX) + $xIndex] = sin($x) * sin($y);
    }
}

# the perspective level
my $perspective = $chartIndex * 12;

# Create a SurfaceChart object of size 360 x 360 pixels, with white (ffffff) background and grey
# (888888) border.
my $c = new SurfaceChart(360, 360, 0xffffff, 0x888888);

# Set the perspective level
$c->setPerspective($perspective);
$c->addTitle("Perspective = $perspective");

# Set the center of the plot region at (195, 165), and set width x depth x height to 200 x 200 x 150
# pixels
$c->setPlotRegion(195, 165, 200, 200, 150);

# Set the plot region wall thichness to 5 pixels
$c->setWallThickness(5);

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

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

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

# Use smooth gradient coloring.
$c->colorAxis()->setColorGradient();

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