[Octave-cvsupdate] octave-forge/main/image padarray.m,1.2,1.3

[Josep M. i T. <jm...@us...>]

Update of /cvsroot/octave/octave-forge/main/image
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7841

Modified Files:
	padarray.m 
Log Message:
support column vector padsize

Index: padarray.m
===================================================================
RCS file: /cvsroot/octave/octave-forge/main/image/padarray.m,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- padarray.m	11 Aug 2004 15:04:59 -0000	1.2
+++ padarray.m	15 Aug 2004 19:21:50 -0000	1.3
@@ -81,6 +81,9 @@
     error("padarray: padsize must be a vector of positive integers.");
   endif
 
+  ## Assure padsize is a row vector
+  padsize=padsize(:).';
+
   # Check direction
   pre=false;
   post=false;
@@ -263,6 +266,9 @@
 %!assert(padarray([1,2],[0,1],i,'post'), [1,2,i]);
 %!assert(padarray([1,2],[0,1],i,'both'), [i,1,2,i]);
 
+% Test vertical padsize
+%!assert(padarray([1,2],[0;1],i,'both'), [i,1,2,i]);
+
 % Test circular padding
 %!test
 %! A=[1,2,3;4,5,6];
@@ -294,6 +300,9 @@
 
 %
 % $Log$
+% Revision 1.3  2004/08/15 19:21:50  jmones
+% support column vector padsize
+%
 % Revision 1.2  2004/08/11 15:04:59  pkienzle
 % Convert dos line endings to unix line endings
 %