#!/usr/bin/perl
use warnings;
use strict;
use PDL;
use PDL::Graphics::TriD;

keeptwiddling3d();

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 ;