# HG changeset patch
# User Rik <rik@octave.org>
# Date 1544489902 28800
# Node ID b8f23ab958e84620e2aac72556610f17c6892703
# Parent  a5094f65012c31cacdc074e3ed050bfcba6db27d
surfl.m: Fix input validation for 4x4 input matrices (bug #55180)

* surfl.m: Check that any material property input or light source location
input is a vector before presuming it to be one of those.

diff -r a5094f65012c -r b8f23ab958e8 scripts/plot/draw/surfl.m
--- a/scripts/plot/draw/surfl.m	Mon Dec 10 14:38:21 2018 -0800
+++ b/scripts/plot/draw/surfl.m	Mon Dec 10 16:58:22 2018 -0800
@@ -109,7 +109,8 @@
   ##      diffuse reflection strength,
   ##      specular reflection strength,
   ##      specular shine]
-  if (isnumeric (varargin{end}) && length (varargin{end}) == 4)
+  if (isnumeric (varargin{end}) && isvector (varargin{end})
+      && (numel (varargin{end}) == 4))
     r = varargin{end};
     varargin(end) = [];
   else
@@ -119,7 +120,7 @@
 
   ## Check for light vector (lv) argument.
   have_lv = false;
-  if (isnumeric (varargin{end}))
+  if (isnumeric (varargin{end}) && isvector (varargin{end}))
     len = numel (varargin{end});
     lastarg = varargin{end};
     if (len == 3)