Select Code to Download

#!/usr/bin/perl
use warnings;
...
imag3d_ns [ POLAR2D, $z ], [ $r, $g, $b ];    # Draw the familiar
# bumpy surface in polar
# coordinates

#!/usr/bin/perl
use warnings;
...
my $piddle = pdl( [ [1,1,1],[2,2,2],[3,3,3],[4,4,4],[5,5,5],[6,6,6],[7
+,7,7],[8,8,8], [1,0,1] ] );

spheres3d $piddle ;