::Lattice colors must be 3,x,y

mohawk2 · mohawk2 · commit 13be7501ef6a · 2026-02-17T11:51:33.000Z
diff --git a/lib/PDL/Graphics/TriD/Objects.pm b/lib/PDL/Graphics/TriD/Objects.pm
@@ -262,6 +262,8 @@ sub new {
     my $indadd = PDL->sequence($x,$y,@extradims)->slice('*1,:-2,:-2');
     my $faceidx = ($inds + $indadd)->splitdim(0,3)->clump(1..3+@extradims);
     my %less = %$options; delete @less{qw(Lines)};
+    my @colordims = $colors->dims;
+    PDL::barf "Colours must be 3,x,y: got (@colordims)" if @colordims != 3 or $colordims[0] != 3;
     $this->add_object(PDL::Graphics::TriD::Triangles->new($points->clump(1..2+@extradims), $faceidx, $colors->clump(1..$colors->ndims-1), \%less));
   }
   if ($shading == 0 or $options->{Lines}) {

Original file line number	Diff line number	Diff line change
`@@ -262,6 +262,8 @@ sub new {`
`262`	`262`	`my $indadd = PDL->sequence($x,$y,@extradims)->slice('*1,:-2,:-2');`
`263`	`263`	`my $faceidx = ($inds + $indadd)->splitdim(0,3)->clump(1..3+@extradims);`
`264`	`264`	`my %less = %$options; delete @less{qw(Lines)};`
	`265`	`+ my @colordims = $colors->dims;`
	`266`	`+ PDL::barf "Colours must be 3,x,y: got (@colordims)" if @colordims != 3 or $colordims[0] != 3;`
`265`	`267`	`$this->add_object(PDL::Graphics::TriD::Triangles->new($points->clump(1..2+@extradims), $faceidx, $colors->clump(1..$colors->ndims-1), \%less));`
`266`	`268`	`}`
`267`	`269`	`if ($shading == 0 or $options->{Lines}) {`