Mercurial > octave-nkf

comparison scripts/plot/gnuplot_drawnow.m @ 9008:7a7cf569528d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnuplot_drawnow.m: Check that gnuplot has internal variable "GPVAL_TERMINALS".
author Ben Abbott <bpabbott@mac.com>
date Mon, 23 Mar 2009 18:21:25 -0400
parents 5cc15e4b4e5c
children dd5725531732
comparison
equal deleted inserted replaced
9007:7e31df9a0334 9008:7a7cf569528d
39 plot_stream = []; 39 plot_stream = [];
40 fid = []; 40 fid = [];
41 printing = ! output_to_screen (gnuplot_trim_term (term)); 41 printing = ! output_to_screen (gnuplot_trim_term (term));
42 unwind_protect 42 unwind_protect
43 plot_stream = open_gnuplot_stream (2, []); 43 plot_stream = open_gnuplot_stream (2, []);
44 available_terminals = __gnuplot_get_var__ (plot_stream, "GPVAL_TERMINALS"); 44 if (__gnuplot_has_feature__ ("variable_GPVAL_TERMINALS"))
45 available_terminals = regexp (available_terminals, "\\b\\w+\\b", "match"); 45 available_terminals = __gnuplot_get_var__ (plot_stream, "GPVAL_TERMINALS");
46 if (any (strcmpi (available_terminals, gnuplot_trim_term (term)))) 46 available_terminals = regexp (available_terminals, "\\b\\w+\\b", "match");
47 [enhanced, implicit_margin] = gnuplot_set_term (plot_stream (1), true, h, term, file); 47 gnuplot_supports_term = any (strcmpi (available_terminals,
48 gnuplot_trim_term (term)));
49 else
50 gnuplot_supports_term = true;
51 endif
52 if (gnuplot_supports_term)
53 [enhanced, implicit_margin] = gnuplot_set_term (plot_stream (1), true,
54 h, term, file);
48 __go_draw_figure__ (h, plot_stream, enhanced, mono, printing, implicit_margin); 55 __go_draw_figure__ (h, plot_stream, enhanced, mono, printing, implicit_margin);
49 if (nargin == 5) 56 if (nargin == 5)
50 fid = fopen (debug_file, "wb"); 57 fid = fopen (debug_file, "wb");
51 [enhanced, implicit_margin] = gnuplot_set_term (fid, true, h, term, file); 58 [enhanced, implicit_margin] = gnuplot_set_term (fid, true, h, term, file);
52 __go_draw_figure__ (h, fid, enhanced, mono, printing, implicit_margin); 59 __go_draw_figure__ (h, fid, enhanced, mono, printing, implicit_margin);