Mercurial > hg > octave-lyh

comparison scripts/plot/print.m @ 5367:7e1347e6712e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-05-23 20:18:24 by jwe]
author jwe
date Mon, 23 May 2005 20:18:24 +0000
parents c9c773d8333f
children 720dc7f7a75e
comparison
equal deleted inserted replaced
5366:4229d6801f23 5367:7e1347e6712e
220 endif 220 endif
221 if (! isempty (fontsize)) 221 if (! isempty (fontsize))
222 options = strcat (options, " ", fontsize); 222 options = strcat (options, " ", fontsize);
223 endif 223 endif
224 224
225 __gnuplot_raw__ (sprintf ("set terminal postscript %s;\n", options)); 225 __gnuplot_raw__ (sprintf ("set terminal postscript %s push;\n", options));
226 226
227 227
228 elseif (strcmp (dev, "aifm") || strcmp (dev, "corel")) 228 elseif (strcmp (dev, "aifm") || strcmp (dev, "corel"))
229 ## Adobe Illustrator, CorelDraw 229 ## Adobe Illustrator, CorelDraw
230 if (use_color >= 0) 230 if (use_color >= 0)
237 endif 237 endif
238 if (! isempty (fontsize)) 238 if (! isempty (fontsize))
239 options = strcat (options, " ", fontsize); 239 options = strcat (options, " ", fontsize);
240 endif 240 endif
241 241
242 __gnuplot_raw__ (sprintf ("set terminal %s %s;\n", dev, options)); 242 __gnuplot_raw__ (sprintf ("set terminal %s %s push;\n", dev, options));
243 243
244 elseif (strcmp (dev, "fig")) 244 elseif (strcmp (dev, "fig"))
245 ## XFig 245 ## XFig
246 options = orientation; 246 options = orientation;
247 if (use_color >= 0) 247 if (use_color >= 0)
250 options = " mono"; 250 options = " mono";
251 endif 251 endif
252 if (! isempty (fontsize)) 252 if (! isempty (fontsize))
253 options = strcat (options, " fontsize ", fontsize); 253 options = strcat (options, " fontsize ", fontsize);
254 endif 254 endif
255 __gnuplot_raw__ (sprintf ("set terminal fig %s;\n", options)); 255 __gnuplot_raw__ (sprintf ("set terminal fig %s push;\n", options));
256 256
257 elseif (strcmp (dev, "png") || strcmp (dev, "pbm")) 257 elseif (strcmp (dev, "png") || strcmp (dev, "pbm"))
258 ## Portable network graphics, PBMplus 258 ## Portable network graphics, PBMplus
259 259
260 ## XXX FIXME XXX -- New PNG interface takes color as "xRRGGBB" 260 ## XXX FIXME XXX -- New PNG interface takes color as "xRRGGBB"
268 ## eval (sprintf ("__gnuplot_set__ term %s color medium", dev)); 268 ## eval (sprintf ("__gnuplot_set__ term %s color medium", dev));
269 ##else 269 ##else
270 ##eval (sprintf ("__gnuplot_set__ term %s mono medium", dev)); 270 ##eval (sprintf ("__gnuplot_set__ term %s mono medium", dev));
271 ##endif 271 ##endif
272 272
273 __gnuplot_raw__ ("set terminal png large;\n") 273 __gnuplot_raw__ ("set terminal png large push;\n")
274 274
275 elseif (strcmp (dev, "dxf") || strcmp (dev, "mf") || strcmp (dev, "hpgl")) 275 elseif (strcmp (dev, "dxf") || strcmp (dev, "mf") || strcmp (dev, "hpgl"))
276 ## AutoCad DXF, METAFONT, HPGL 276 ## AutoCad DXF, METAFONT, HPGL
277 __gnuplot_raw__ (sprintf ("set terminal %s;\n", dev)); 277 __gnuplot_raw__ (sprintf ("set terminal %s push;\n", dev));
278 endif 278 endif
279 279
280 ## Gnuplot expects " around output file name 280 ## Gnuplot expects " around output file name
281 281
282 __gnuplot_raw__ (sprintf ("set output \"%s\";\n", name)); 282 __gnuplot_raw__ (sprintf ("set output \"%s\";\n", name));