#!/usr/bin/perl
use perlchartdir;

sub createChart
{
    my $img = shift;

    # The x and y coordinates of the grid
    my $dataX = [-2, -1, 0, 1, 2];
    my $dataY = [-2, -1, 0, 1, 2];

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

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

    # Demonstrate various wireframes with and without interpolation
    if ($img eq "0") {
        # Original data without interpolation
        $c->addTitle("5 x 5 Data Points\nStandard Shading", "arialbd.ttf", 12);
        $c->setContourColor(0x80ffffff);
    } elsif ($img eq "1") {
        # Original data, spline interpolated to 40 x 40 for smoothness
        $c->addTitle("5 x 5 Points - Spline Fitted to 40 x 40\nStandard Shading",
            "arialbd.ttf", 12);
        $c->setContourColor(0x80ffffff);
        $c->setInterpolation(40, 40);
    } elsif ($img eq "2") {
        # Rectangular wireframe of original data
        $c->addTitle("5 x 5 Data Points\nRectangular Wireframe");
        $c->setShadingMode($perlchartdir::RectangularFrame);
    } elsif ($img eq "3") {
        # Rectangular wireframe of original data spline interpolated to 40 x 40
        $c->addTitle("5 x 5 Points - Spline Fitted to 40 x 40\nRectangular Wireframe"
            );
        $c->setShadingMode($perlchartdir::RectangularFrame);
        $c->setInterpolation(40, 40);
    } elsif ($img eq "4") {
        # Triangular wireframe of original data
        $c->addTitle("5 x 5 Data Points\nTriangular Wireframe");
        $c->setShadingMode($perlchartdir::TriangularFrame);
    } else {
        # Triangular wireframe of original data spline interpolated to 40 x 40
        $c->addTitle("5 x 5 Points - Spline Fitted to 40 x 40\nTriangular Wireframe")
            ;
        $c->setShadingMode($perlchartdir::TriangularFrame);
        $c->setInterpolation(40, 40);
    }

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

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

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

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

    # Output the chart
    $c->makeChart("surfacewireframe$img.jpg")
}

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