[Octave-cvsupdate] SF.net SVN: octave:[10251] trunk/octave-forge/main/vrml/inst/vmesh.m

[<et...@us...>]

Revision: 10251
          http://octave.svn.sourceforge.net/octave/?rev=10251&view=rev
Author:   etienne
Date:     2012-04-17 03:08:54 +0000 (Tue, 17 Apr 2012)
Log Message:
-----------
More checks

Modified Paths:
--------------
    trunk/octave-forge/main/vrml/inst/vmesh.m

Modified: trunk/octave-forge/main/vrml/inst/vmesh.m
===================================================================
--- trunk/octave-forge/main/vrml/inst/vmesh.m	2012-04-16 16:28:17 UTC (rev 10250)
+++ trunk/octave-forge/main/vrml/inst/vmesh.m	2012-04-17 03:08:54 UTC (rev 10251)
@@ -162,9 +162,13 @@
 
 if numel (x) == columns (z)
   x = ones(rows(z),1) * x(:)';
+else
+  assert (numel (x) == numel (z));
 end
-if numel (y) == columns (z)
-  y = y(:) * ones(1,rows(z));
+if numel (y) == rows (z)
+  y = y(:) * ones(1,columns(z));
+else
+  assert (numel (y) == numel (z));
 end
 
 pts = [x(:)';y(:)';z(:)'];

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.