#!/usr/bin/perl -w

use strict;
use PDL;

use PDL::Graphics::TriD;


my        $size = 25;
my        $x = (xvals zeroes $size+1,$size+1) / $size;
my        $y = (yvals zeroes $size+1,$size+1) / $size;
my        $z = 0.5 + 0.5 * (sin($x*6.3) * sin($y*6.3)) ** 3;   # Bumps

my        $r = $x;
my        $g = $y;
my        $b = $z;


nokeeptwiddling3d();

for (1..50){

        points3d [$x,$y,$z], [$r,$g,$b];  # Draw several colored dots
        $x+=$y*$z;
}

keeptwiddling3d();
        points3d [$x,$y,$z], [$r,$g,$b];