Mercurial > hg > octave-lyh

comparison scripts/plot/gnuplot_drawnow.m @ 11113:a8ac114ec9ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Stylefixes, replace end by endif.
author Thorsten Meyer <thorsten.meyier@gmx.de>
date Mon, 18 Oct 2010 20:40:12 +0200
parents f5c863803e29
children a44f979a35ce
comparison
equal deleted inserted replaced
11112:8ea4cf59c41b 11113:a8ac114ec9ab
84 dumb_tmp_file = tmpnam (); 84 dumb_tmp_file = tmpnam ();
85 enhanced = gnuplot_set_term (plot_stream (1), new_stream, h, ... 85 enhanced = gnuplot_set_term (plot_stream (1), new_stream, h, ...
86 term, dumb_tmp_file); 86 term, dumb_tmp_file);
87 else 87 else
88 enhanced = gnuplot_set_term (plot_stream (1), new_stream, h, term); 88 enhanced = gnuplot_set_term (plot_stream (1), new_stream, h, term);
89 end 89 endif
90 __go_draw_figure__ (h, plot_stream (1), enhanced, mono); 90 __go_draw_figure__ (h, plot_stream (1), enhanced, mono);
91 fflush (plot_stream (1)); 91 fflush (plot_stream (1));
92 if (strcmp (term, "dumb")) 92 if (strcmp (term, "dumb"))
93 fid = -1; 93 fid = -1;
94 while (fid < 0) 94 while (fid < 0)
100 fclose (fid); 100 fclose (fid);
101 if (count>0) 101 if (count>0)
102 if (a(1)==12) 102 if (a(1)==12)
103 ## avoid ^L at the beginning 103 ## avoid ^L at the beginning
104 a = a(2:end); 104 a = a(2:end);
105 end 105 endif
106 puts (a); 106 puts (a);
107 end 107 endif
108 unlink (dumb_tmp_file); 108 unlink (dumb_tmp_file);
109 endif 109 endif
110 else 110 else
111 print_usage (); 111 print_usage ();
112 endif 112 endif
219 ## n = the number of times \n appears in PS1 219 ## n = the number of times \n appears in PS1
220 size_str = ["size ", getenv("COLUMNS"), ",", getenv("LINES"), n]; 220 size_str = ["size ", getenv("COLUMNS"), ",", getenv("LINES"), n];
221 else 221 else
222 ## Use the gnuplot default. 222 ## Use the gnuplot default.
223 size_str = ""; 223 size_str = "";
224 end 224 endif
225 case {"aqua", "fig", "corel"} 225 case {"aqua", "fig", "corel"}
226 size_str = sprintf ("size %g %g", gnuplot_size); 226 size_str = sprintf ("size %g %g", gnuplot_size);
227 case "dxf" 227 case "dxf"
228 size_str = ""; 228 size_str = "";
229 otherwise 229 otherwise