SVG in print.m

Francesco Potorti` <[email protected]> Fri, 21 Sep 2007 12:59:06 +0200
Newsgroups gmane.comp.gnu.octave.sources
Organization ISTI-CNR, via Moruzzi 1, I-56124 Pisa, +39-0503153058
Message-ID <[email protected]>
This simple patch adds the SVG type to the capabilities of print.m.   It
looks longer than necessary because it sorts extensions in alphabetical
order.

--- /home/pot/math/octavelib/utils/myprint.m~	2007-09-21 12:48:05.000000000=
 +0200
+++ /home/pot/math/octavelib/utils/myprint.m	2007-09-21 12:40:57.000000000 =
+0200
@@ -69,20 +69,22 @@
 ##   @item cdr
 ##   @itemx corel
 ##     CorelDraw
-##   @item hpgl
-##     HP plotter language
-##   @item fig
-##     XFig
 ##   @item dxf
 ##     AutoCAD
+##   @item emf
+##     Microsoft Enhanced Metafile
+##   @item fig
+##     XFig
+##   @item hpgl
+##     HP plotter language
 ##   @item mf
 ##     Metafont
 ##   @item png
 ##     Portable network graphics
 ##   @item pbm
 ##     PBMplus
-##   @item emf
-##     Microsoft Enhanced Metafile
+##   @item svg
+##     Scalable vector graphics
 ##   @end table
 ##
 ##   Other devices are supported by "convert" from ImageMagick.  Type
@@ -191,7 +193,7 @@ function print (varargin)
   endif
 =

   ## check if we have to use convert
-  dev_list =3D {"aifm", "corel", "fig", "png", "pbm", "dxf", "mf", ...
+  dev_list =3D {"aifm", "corel", "fig", "png", "pbm", "dxf", "mf", "svg", =
...
 	      "hpgl", "ps", "ps2", "psc", "psc2", "eps", "eps2", ...
 	      "epsc", "epsc2", "emf", "pstex", "pslatex", ...
 	      "epslatex", "epslatexstandalone"};
@@ -327,8 +329,9 @@ function print (varargin)
 =

     new_terminal =3D "png large";
 =

-  elseif (strcmp (dev, "dxf") || strcmp (dev, "mf") || strcmp (dev, "hpgl"=
))
-    ## AutoCad DXF, METAFONT, HPGL
+  elseif (strcmp (dev, "dxf") || strcmp (dev, "mf") ...
+	  || strcmp (dev, "hpgl") || strcmp (dev, "svg"))
+    ## AutoCad DXF, METAFONT, HPGL, SVG
     new_terminal =3D dev;
   endif

-- =

Francesco Potort=EC (ricercatore)        Voice: +39 050 315 3058 (op.2111)
ISTI - Area della ricerca CNR          Fax:   +39 050 315 2040
via G. Moruzzi 1, I-56124 Pisa         Email: [email protected]
Web: http://fly.isti.cnr.it/           Key:   fly.isti.cnr.it/public.key