# HG changeset patch
# User Pantxo Diribarne <pantxo.diribarne@gmail.com>
# Date 1525279136 -7200
# Node ID d67d5c42f39b8d20ab2e6027795effd1f58681ae
# Parent  1eef836d8d06faadd1b833e4d9817bbecc66bcb4
lines.m: Don't open empty figure or axes if none already exist (bug #53648)

* lines.m: use default axes "colororder" property when no current axes exist.

diff -r 1eef836d8d06 -r d67d5c42f39b scripts/image/lines.m
--- a/scripts/image/lines.m	Wed May 02 08:57:12 2018 +0200
+++ b/scripts/image/lines.m	Wed May 02 18:38:56 2018 +0200
@@ -30,6 +30,7 @@
 
 function map = lines (n)
 
+  hf = get (groot, "currentfigure");
   if (nargin > 1)
     print_usage ();
   elseif (nargin == 1)
@@ -38,17 +39,22 @@
     endif
     n = double (n);
   else
-    hf = get (0, "currentfigure");
     if (! isempty (hf))
       n = rows (get (hf, "colormap"));
     else
       n = 64;
     endif
   endif
+
   if (n == 1)
     map = [0, 0, 1];
   elseif (n > 1)
-    C = get (gca, "colororder");
+    hax = get (hf, "currentaxes");
+    if (! isempty (hax))
+      C = get (hax, "colororder");
+    else
+      C = get (groot, "defaultaxescolororder");
+    endif
     nr = rows (C);
     map = C(rem (0:(n-1), nr) + 1, :);
   else