Surface Lighting

perldemo\surfacelighting.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;

sub createChart
{
    my $chartIndex = shift;

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

    # The values at the grid points. In this example, we will compute the values using the formula z
    # = x * sin(y) + y * sin(x).
    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] = $x * sin($y) + $y * sin($x);
        }
    }

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

    # Demonstrate various lighting parameters
    if ($chartIndex == 0) {
        $c->addTitle(
            "Default Lighting<*br*><*size=10*>Ambient = 0.5, Diffuse = 0.5, Specular = 1, ".
            "Shininess = 8");
    } elsif ($chartIndex == 1) {
        $c->addTitle(
            "Matte (Non-Glossy) Lighting<*br*><*size=10*>Ambient = 0.5, Diffuse = 0.5, Specular = ".
            "0, Shininess = 0");
        $c->setLighting(0.5, 0.5, 0, 0);
    } elsif ($chartIndex == 2) {
        $c->addTitle(
            "Flat Lighting<*br*><*size=10*>Ambient = 1, Diffuse = 0, Specular = 0, Shininess = 0");
        $c->setLighting(1, 0, 0, 0);
    } else {
        $c->addTitle(
            "Strong Glossy Lighting<*br*><*size=10*>Ambient = 0.5, Diffuse = 0.5, Specular = 4, ".
            "Shininess = 32");
        $c->setLighting(0.5, 0.5, 4, 32);
    }

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

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

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

    # Set the perspective level to 35
    $c->setPerspective(35);

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

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

    # Set contour lines to semi-transparent black (c0000000)
    $c->setContourColor(0xc0000000);

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

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