#!/usr/bin/perl

use PDL;
use PDL::Graphics::TriD;

$size = 40;

$r = $x = (xvals zeroes $size+1,$size+1) / $size;
$g = $y = (yvals zeroes $size+1,$size+1) / $size;
$b = $z = 0.5 + 0.5 * (sin($x*6.3) * sin($y*6.3)) ** 3;

lattice3d [$x,$y,$z], [$r,$g,$b];

print cat $x, $y, $z;