Mercurial > octave-nkf

comparison scripts/plot/print.m @ 7037:b1ca2c453b77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-17 21:25:44 by jwe]
author jwe
date Wed, 17 Oct 2007 21:25:44 +0000
parents 4d4197ffb09d
children 1f16da18d85d
comparison
equal deleted inserted replaced
7036:daff886a8e2a 7037:b1ca2c453b77
70 ## @item dxf 70 ## @item dxf
71 ## AutoCAD 71 ## AutoCAD
72 ## @item emf 72 ## @item emf
73 ## Microsoft Enhanced Metafile 73 ## Microsoft Enhanced Metafile
74 ## @item fig 74 ## @item fig
75 ## XFig 75 ## XFig. If this format is selected the additional options
76 ## @code{-textspecial} or @{-textnormal} can be used to control
77 ## whether the special flag should be set for the text in the figure
78 ## (default is @{-textnormal}).
76 ## @item hpgl 79 ## @item hpgl
77 ## HP plotter language 80 ## HP plotter language
78 ## @item mf 81 ## @item mf
79 ## Metafont 82 ## Metafont
80 ## @item png 83 ## @item png
125 name = ""; 128 name = "";
126 devopt = ""; 129 devopt = "";
127 printer = ""; 130 printer = "";
128 debug = false; 131 debug = false;
129 debug_file = "octave-print-commands.log"; 132 debug_file = "octave-print-commands.log";
133 special_flag = "textnormal";
130 134
131 ## Ensure the last figure is on the screen for single line commands like 135 ## Ensure the last figure is on the screen for single line commands like
132 ## plot(...); print(...); 136 ## plot(...); print(...);
133 drawnow (); 137 drawnow ();
134 138
145 force_solid = -1; 149 force_solid = -1;
146 elseif (strcmp (arg, "-portrait")) 150 elseif (strcmp (arg, "-portrait"))
147 orientation = "portrait"; 151 orientation = "portrait";
148 elseif (strcmp (arg, "-landscape")) 152 elseif (strcmp (arg, "-landscape"))
149 orientation = "landscape"; 153 orientation = "landscape";
154 elseif (strcmp (arg, "-textspecial"))
155 special_flag = "textspecial";
150 elseif (strncmp (arg, "-debug", 6)) 156 elseif (strncmp (arg, "-debug", 6))
151 debug = true; 157 debug = true;
152 if (length (arg) > 7) 158 if (length (arg) > 7)
153 debug_file = arg(8:end); 159 debug_file = arg(8:end);
154 endif 160 endif
300 if (use_color >= 0) 306 if (use_color >= 0)
301 options = " color"; 307 options = " color";
302 else 308 else
303 options = " mono"; 309 options = " mono";
304 endif 310 endif
311 options = strcat (options, " ", special_flag);
305 if (! isempty (fontsize)) 312 if (! isempty (fontsize))
306 options = strcat (options, " fontsize ", fontsize); 313 options = strcat (options, " fontsize ", fontsize);
307 endif 314 endif
308 315
309 new_terminal = strcat ("fig ", options); 316 new_terminal = strcat ("fig ", options);
317
310 318
311 elseif (strcmp (dev, "emf")) 319 elseif (strcmp (dev, "emf"))
312 ## Enhanced Metafile format 320 ## Enhanced Metafile format
313 options = " "; 321 options = " ";
314 if (use_color >= 0) 322 if (use_color >= 0)