diff src/oct-stream.cc @ 2601:3723512a827a

[project @ 1997-01-06 05:43:16 by jwe]
author jwe
date Mon, 06 Jan 1997 05:44:24 +0000
parents c454cd888ada
children 12bc9d0a50b5
line wrap: on
line diff
--- a/src/oct-stream.cc
+++ b/src/oct-stream.cc
@@ -112,22 +112,30 @@
   double dnr = -1.0;
   double dnc = -1.0;
 
-  if (size.rows () == 1 && size.cols () > 0)
+  int sz_nr = size.rows ();
+  int sz_nc = size.cols ();
+
+  if (sz_nr == 1 && sz_nc == 1)
+    {
+      dnr = size (0, 0);
+      dnc = 1.0;
+    }
+  else if (sz_nr == 1 && sz_nc > 0)
     {
       dnr = size (0, 0);
 
-      if (size.cols () == 2)
+      if (sz_nc == 2)
 	dnc = size (0, 1);
-      else if (size.cols () > 2)
+      else if (sz_nc > 2)
 	::error ("%s: invalid size specification", warn_for);
     }
-  else if (size.cols () == 1 && size.rows () > 0)
+  else if (sz_nc == 1 && sz_nr > 0)
     {
       dnr = size (0, 0);
 
-      if (size.rows () == 2)
+      if (sz_nr == 2)
 	dnc = size (1, 0);
-      else if (size.rows () > 2)
+      else if (sz_nr > 2)
 	::error ("%s: invalid size specification", warn_for);
     }
   else