add test of some Objects, fix Lattice with Shading but no Smooth

Author: mohawk2

MANIFEST

@@ -40,4 +40,5 @@ Makefile.PL
 MANIFEST			This list of files
 MANIFEST.SKIP
 t/arcball.t
+t/objects.t
 t/quaternion.t

lib/PDL/Graphics/TriD/Objects.pm

@@ -215,7 +215,8 @@ sub new {
         $this->{Normals} = $vn;
       } else {
         $this->{Points} = $this->{Points}->dice_axis(1,$idxflat);
-        $this->{Colors} = $this->{Colors}->dice_axis(1,$idxflat);
+        my ($cols) = grep defined $this->{$_}, qw(Colors TexCoord);
+        $this->{$cols} = $this->{$cols}->dice_axis(1,$idxflat);
         $this->{Normals} = $fn->dummy(1,$idx0)->clump(1,2);
         $this->{Faceidx} = PDL->sequence(PDL::ulong,$idx0,@idxdims);
       }

t/objects.t

@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+use Test::More;
+use PDL;
+use PDL::Graphics::TriD;
+
+my $size = 5;
+my $y = PDL->zeroes(3,$size,$size);
+axisvalues($y->slice("(0)")->inplace);
+axisvalues($y->slice("(1)")->transpose->inplace);
+srandom(5);
+random((my $ysl2 = $y->slice("(2)"))->inplace);
+$ysl2 /= 5;
+my $c = PDL->random(3,$size,$size);
+
+for (
+  ['LineStrip'],
+  ['Lattice', {Shading=>0}],
+  ['Lattice', {Shading=>1}],
+  ['Lattice', {Shading=>2}],
+  ['Lattice', {Shading=>3, Lighting => 1, ShowNormals => 1}],
+  ['Lattice', {Shading=>3, Lighting => 1, ShowNormals => 1, Smooth=>1}],
+) {
+  my ($class, $opts) = @$_;
+  eval { "PDL::Graphics::TriD::$class"->new($y,$c,$opts) };
+  is $@, '' or diag 'Spec was: ', explain $opts;
+}
+
+done_testing;