::Lattice colours must match points x,y

mohawk2 · mohawk2 · commit 4b03644b93cb · 2026-02-17T13:32:21.000Z
diff --git a/lib/PDL/Graphics/TriD/Objects.pm b/lib/PDL/Graphics/TriD/Objects.pm
@@ -263,6 +263,7 @@ sub new {
     my %less = %$options; delete @less{qw(Lines)};
     my @colordims = $colors->dims;
     PDL::barf "Lattice: colours must be 3,x,y: got (@colordims)" if @colordims != 3 or $colordims[0] != 3;
+    PDL::barf "Lattice: colours' x,y must equal points: got colour=(@colordims) points=($x,$y)" if $colordims[1] != $x or $colordims[2] != $y;
     $this->add_object(PDL::Graphics::TriD::Triangles->new($points->clump(1..2), $faceidx, $colors->clump(1..$colors->ndims-1), \%less));
   }
   if ($shading == 0 or $options->{Lines}) {

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