realcoords allow ndarray of (2,...)

mohawk2 · mohawk2 · commit 1447b8ee96f4 · 2026-03-15T21:43:25.000Z
diff --git a/lib/PDL/Graphics/TriD.pm b/lib/PDL/Graphics/TriD.pm
@@ -807,7 +807,7 @@ sub realcoords {
   my($type,$c) = @_;
   if(ref $c ne "ARRAY") {
     my $dim0 = $c->getdim(0);
-    barf "If one ndarray given for coordinate, must be (3,...) or have default interpretation" if $dim0 != 3;
+    barf "If one ndarray given for coordinate, must be (2|3,...) or have default interpretation" if $dim0 != 2 and $dim0 != 3;
     return $c->float;
   }
   my @c = @$c;

Original file line number	Diff line number	Diff line change
`@@ -807,7 +807,7 @@ sub realcoords {`
`807`	`807`	`my($type,$c) = @_;`
`808`	`808`	`if(ref $c ne "ARRAY") {`
`809`	`809`	`my $dim0 = $c->getdim(0);`
`810`		`- barf "If one ndarray given for coordinate, must be (3,...) or have default interpretation" if $dim0 != 3;`
	`810`	`+ barf "If one ndarray given for coordinate, must be (2\|3,...) or have default interpretation" if $dim0 != 2 and $dim0 != 3;`
`811`	`811`	`return $c->float;`
`812`	`812`	`}`
`813`	`813`	`my @c = @$c;`