::Lattice points must be 3,x,y

Author: mohawk2

lib/PDL/Graphics/TriD/Objects.pm

@@ -254,7 +254,8 @@ sub new {
   $colors = $this->normalise_as("COLOR",$colors,$points);
   $options = $this->{Options};
   my $shading = $options->{Shading};
-  my (undef, $x, $y, @extradims) = $points->dims;
+  my ($tri, $x, $y, @extradims) = $points->dims;
+  PDL::barf "Lattice: points must be 3,x,y: got ($x $y @extradims)" if @extradims or $tri != 3;
   if ($shading) {
     my $inds = PDL::ulong(0,1,$x,$x+1,$x,1)->slice(',*'.($x-1).',*'.($y-1));
     $inds = $inds->dupN(1,1,@extradims) if @extradims;