Mercurial > hg > octave-lyh

comparison scripts/plot/figure.m @ 4790:91a84c9bdadb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-19 20:15:17 by jwe]
author jwe
date Thu, 19 Feb 2004 20:15:18 +0000
parents f8dde1807dee
children 14027e0bafa4
comparison
equal deleted inserted replaced
4789:ac4441e16ffa 4790:91a84c9bdadb
37 f = n; 37 f = n;
38 endif 38 endif
39 39
40 if (nargin < 2) 40 if (nargin < 2)
41 if (gnuplot_has_frames) 41 if (gnuplot_has_frames)
42 if (! isempty (getenv ("DISPLAY"))) 42 gnuterm = getenv ("GNUTERM");
43 if (isempty (gnuterm) && ! isempty ("DISPLAY"))
44 gnuterm = "x11";
45 endif
46 if (! isempty (gnuterm))
43 oneplot (); 47 oneplot ();
44 figure_list = union (figure_list, f); 48 figure_list = union (figure_list, f);
45 eval (sprintf ("gset term x11 %d\n", f)); 49 eval (sprintf ("gset term %s %d\n", gnuterm, f));
46 else 50 else
47 error ("figure: requires X11 and valid DISPLAY"); 51 error ("figure: requires GNUTERM (Aqua) or DISPLAY (X11)");
48 endif 52 endif
49 else 53 else
50 error ("figure: gnuplot doesn't appear to support this feature"); 54 error ("figure: gnuplot doesn't appear to support this feature");
51 endif 55 endif
52 elseif (rem (nargin, 2) == 0) 56 elseif (rem (nargin, 2) == 0)