Mercurial > hg > octave-thorsten

changeset 5625:f88f2e35ad6e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-02-15 18:42:22 by jwe]
author jwe
date Wed, 15 Feb 2006 18:42:22 +0000
parents 02c88fe23632
children 3236b4d98fde
files scripts/ChangeLog scripts/plot/print.m
diffstat 2 files changed, 30 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,12 @@
+2006-02-15  Dmitri A. Sergatskov  <dasergatskov@gmail.com>
+
+	* plot/print.m: Accept emf device option to support Enhanced
+	Metafile format.
+
+2006-02-15  A S Hodel  <hodelas@auburn.edu>
+
+	* control/base/lqe.m: Doc fix.
+
 2006-02-15  Keith Goodman  <kwgoodman@gmail.com>
  
  	* statistics/distributions/gamcdf.m: Doc fix.
--- a/scripts/plot/print.m
+++ b/scripts/plot/print.m
@@ -198,7 +198,7 @@
 
   ## check if we have to use convert
   dev_list = {"aifm" "corel" "fig" "png" "pbm" "dxf" "mf" "hpgl", ...
-	      "ps" "ps2" "psc" "psc2" "eps" "eps2" "epsc" "epsc2"};
+	      "ps" "ps2" "psc" "psc2" "eps" "eps2" "epsc" "epsc2" "emf"};
   convertname = "";
   idx = cellidx (dev_list, dev);
   if (! idx)
@@ -281,6 +281,26 @@
       __gnuplot_raw__ ("set terminal push;\n");
       __gnuplot_raw__ (sprintf ("set terminal fig %s;\n", options));
 
+    elseif (strcmp (dev, "emf"))
+      ## Enhanced Metafile format
+      options = " ";
+      if (use_color >= 0)
+	options = " color";
+      else
+	options = " mono";
+      endif
+      if (force_solid >= 0)
+	options = strcat (options, " solid");
+      endif
+      if (! isempty (font))
+	options = strcat (options, " \"", font, "\"");
+      endif
+      if (! isempty (fontsize))
+	options = strcat (options, " ", fontsize);
+      endif
+      __gnuplot_raw__ ("set terminal push;\n");
+      __gnuplot_raw__ (sprintf ("set terminal emf %s;\n", options));
+
     elseif (strcmp (dev, "png") || strcmp (dev, "pbm"))
       ## Portable network graphics, PBMplus