Mercurial > hg > octave-nkf

changeset 4789:ac4441e16ffa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-19 16:16:34 by jwe]
author jwe
date Thu, 19 Feb 2004 16:16:34 +0000
parents 82a558043db9
children 91a84c9bdadb
files scripts/ChangeLog scripts/control/base/__stepimp__.m
diffstat 2 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-18  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* control/base/__stepimp__.m: Only call clearplot if we will be
+	doing multiple plots in the same gnuplot frame.
+
 2004-02-16  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* control/system/__sysconcat__.m, control/system/__tfl__.m,
--- a/scripts/control/base/__stepimp__.m
+++ b/scripts/control/base/__stepimp__.m
@@ -223,7 +223,6 @@
       gset nologscale
       gset autoscale
       gset nokey
-      clearplot();
       if (IMPULSE)
 	gm = zeros(NOUT, 1);
 	tt = "impulse";
@@ -234,6 +233,9 @@
       endif
       ncols = floor(sqrt(NOUT));
       nrows = ceil(NOUT / ncols);
+      if (ncols > 1 || nrows > 1)
+	clearplot();
+      endif
       for i = 1:NOUT
 	subplot(nrows, ncols, i);
 	title(sprintf("%s: | %s -> %s", tt,sysgetsignals(sys,"in",inp,1), ...