Mercurial > hg > octave-lyh

comparison scripts/plot/__go_draw_figure__.m @ 9478:7e1e90837fef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Avoid the flickering x11 window seen with rapid gnuplot updates.
author Ben Abbott <bpabbott@mac.com>
date Sun, 02 Aug 2009 16:52:12 -0400
parents d6c99b2ee941
children fea3d4868692
comparison
equal deleted inserted replaced
9477:4d3d90253e8a 9478:7e1e90837fef
65 nkids = length (kids); 65 nkids = length (kids);
66 66
67 if (nkids > 0) 67 if (nkids > 0)
68 fputs (plot_stream, "\nreset;\n"); 68 fputs (plot_stream, "\nreset;\n");
69 fputs (plot_stream, "set autoscale keepfix;\n"); 69 fputs (plot_stream, "set autoscale keepfix;\n");
70 fputs (plot_stream, "set multiplot;\n");
71 fputs (plot_stream, "set origin 0, 0\n"); 70 fputs (plot_stream, "set origin 0, 0\n");
72 fputs (plot_stream, "set size 1, 1\n"); 71 fputs (plot_stream, "set size 1, 1\n");
73 for i = 1:nkids 72 for i = 1:nkids
74 type = get (kids(i), "type"); 73 type = get (kids(i), "type");
75 switch (type) 74 switch (type)
94 end_unwind_protect 93 end_unwind_protect
95 otherwise 94 otherwise
96 error ("__go_draw_figure__: unknown object class, %s", type); 95 error ("__go_draw_figure__: unknown object class, %s", type);
97 endswitch 96 endswitch
98 endfor 97 endfor
99 fputs (plot_stream, "unset multiplot;\n");
100 else 98 else
101 fputs (plot_stream, "\nreset; clear;\n"); 99 fputs (plot_stream, "\nreset; clear;\n");
102 fflush (plot_stream); 100 fflush (plot_stream);
103 endif 101 endif
104 else 102 else