[Octave-bug-tracker] [bug #29929] 3.2.4 fails to print to printer

[anonymous]

Follow-up Comment #1, bug #29929 (project octave):

--- octave_print_dot_m_3_0_3    2010-05-20 10:00:10.000000000 -0700
+++ octave_print_dot_m_3_2_4    2010-05-20 09:49:50.000000000 -0700
@@ -1,4 +1,4 @@
-## Copyright (C) 1999, 2005, 2006, 2007, 2008 Daniel Heiserer
+## Copyright (C) 1999, 2005, 2006, 2007, 2008, 2009 Daniel Heiserer
 ## Copyright (C) 2001 Laurent Mazet
 ##
 ## This file is part of Octave.
@@ -18,26 +18,35 @@
 ## <http://www.gnu.org/licenses/>.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {} print (@var{filename}, @var{options})
+## @deftypefn {Function File} {} print ()
+## @deftypefnx {Function File} {} print (@var{options})
+## @deftypefnx {Function File} {} print (@var{filename}, @var{options})
+## @deftypefnx {Function File} {} print (@var{h}, @var{filename},
@var{options})
 ## Print a graph, or save it to a file
 ##
-## @var{filename} defines the file name of the output file. If no
-## filename is specified, output is sent to the printer.
+## @var{filename} defines the file name of the output file.  If no
+## filename is specified, the output is sent to the printer.
+##
+## @var{h} specifies the figure handle.  If no handle is specified
+## the handle for the current figure is used.
 ##
 ## @var{options}:
 ## @table @code
 ## @item address@hidden
 ##   Set the @var{printer} name to which the graph is sent if no
 ##   @var{filename} is specified.
+## @item address@hidden
+##   Specify the command for calling Ghostscript.  For Unix and Windows,
+## the defaults are 'gs' and 'gswin32c', respectively.
 ## @item -color
 ## @itemx -mono
-##   Monochrome or colour lines.
+##   Monochrome or color lines.
 ## @item -solid
 ## @itemx -dashed
 ##   Solid or dashed lines.
 ## @item -portrait
 ## @itemx -landscape
-##   Plot orientation, as returned by "orient".
+##   Specify the orientation of the plot for printed output.
 ## @item address@hidden
 ##   Output device, where @var{device} is one of:
 ##   @table @code
@@ -56,11 +65,11 @@
 ##   @itemx epslatexstandalone
 ##   @itemx pstex
 ##   @itemx pslatex
-##     Generate a LaTeX (or TeX) file for labels, and eps/ps for
-##     graphics.  The file produced by @code{epslatexstandalone} can be
-##     processed directly by LaTeX.  The other formats are intended to
-##     be included in a LaTeX (or TeX) document.  The @code{tex} device
-##     is the same as the @code{epslatex} device.
+##     Generate a @LaTeX{} (or @TeX{}) file for labels, and eps/ps for
+## graphics.  The file produced by @code{epslatexstandalone} can be
+## processed directly by @LaTeX{}.  The other formats are intended to
+## be included in a @LaTeX{} (or @TeX{}) document.  The @code{tex} device
+## is the same as the @code{epslatex} device.
 ##   @item ill
 ##   @itemx aifm
 ##     Adobe Illustrator
@@ -70,12 +79,13 @@
 ##   @item dxf
 ##     AutoCAD
 ##   @item emf
+##   @itemx meta
 ##     Microsoft Enhanced Metafile
 ##   @item fig
 ##     XFig.  If this format is selected the additional options
 ##     @code{-textspecial} or @code{-textnormal} can be used to control
-##     whether the special flag should be set for the text in the figure
-##     (default is @code{-textnormal}). 
+##     whether the special flag should be set for the text in
+##     the figure (default is @code{-textnormal}). 
 ##   @item hpgl
 ##     HP plotter language
 ##   @item mf
@@ -95,25 +105,63 @@
 ##     Portable document format
 ##   @end table
 ##
-##   Other devices are supported by "convert" from ImageMagick.  Type
-##   system("convert") to see what formats are available.
-##
 ##   If the device is omitted, it is inferred from the file extension,
-##   or if there is no filename it is sent to the printer as postscript.
+## or if there is no filename it is sent to the printer as postscript.
+##
+## @item address@hidden
+##   Additional devices are supported by Ghostscript.
+## Some examples are;
+##
+##   @table @code
+##   @item ljet2p 
+##     HP LaserJet IIP
+##   @item ljet3 
+##     HP LaserJet III
+##   @item deskjet
+##     HP DeskJet and DeskJet Plus
+##   @item cdj550
+##     HP DeskJet 550C
+##   @item paintjet
+##     HP PointJet
+##   @item pcx24b
+##     24-bit color PCX file format
+##   @item ppm
+##     Portable Pixel Map file format
+##   @end table
+##
+##   For a complete list, type `system ("gs -h")' to see what formats
+## and devices are available.
+##
+##   When the ghostscript is sent to a printer the size is determined
+## by the figure's "papersize" property.  When the ghostscript output 
+## is sent to a file the size is determined by the figure's
+## "paperposition" property.
+##
+## @itemx address@hidden
+##   Resolution of bitmaps in pixels per inch.  For both metafiles and 
+## SVG the default is the screen resolution, for other it is 150 dpi.
+## To specify screen resolution, use "-r0".
+##
+## @item -tight
+##   Forces a tight bounding box for eps-files.  Since the ghostscript
+## devices are conversion of an eps-file, this option works the those
+## devices as well.
 ##
 ## @itemx address@hidden,@var{ysize}
-##   Plot size in pixels for PNG and SVG.  If using the command form of
-##   the print function, you must quote the @var{xsize},@var{ysize}
-##   option.  For example, by writing @code{"-S640,480"}.
+##   Plot size in pixels for EMF, GIF, JPEG, PBM, PNG and SVG.  If
+## using the command form of the print function, you must quote the
+## @var{xsize},@var{ysize} option.  For example, by writing
+## @address@hidden"-S640,480"}}.  The size defaults to that specified by the
+## figure's paperposition property.
 ##
 ## @item address@hidden
 ## @itemx address@hidden:@var{size}
 ## @itemx -F:@var{size}
 ##   @var{fontname} set the postscript font (for use with postscript,
-##   aifm, corel and fig). By default, 'Helvetica' is set for PS/Aifm,
-##   and 'SwitzerlandLight' for Corel. It can also be 'Times-Roman'.
-##   @var{size} is given in points. @var{fontname} is ignored for the
-##   fig device.
+## aifm, corel and fig).  By default, 'Helvetica' is set for PS/Aifm,
+## and 'SwitzerlandLight' for Corel.  It can also be 'Times-Roman'.
+## @var{size} is given in points.  @var{fontname} is ignored for the
+## fig device.
 ## @end table
 ##
 ## The filename and options can be given in any order.
@@ -122,313 +170,642 @@
 ## Author: Daniel Heiserer <address@hidden>
 ## Adapted-By: jwe
 
-## PKG_ADD: mark_as_command print
-
 function print (varargin)
 
-  orientation = orient ();
+  persistent warn_on_inconsistent_orientation = true
+  orientation = "";
   use_color = 0; # 0=default, -1=mono, +1=color
   force_solid = 0; # 0=default, -1=dashed, +1=solid
   fontsize = "";
   font = "";
-  size = "";
+  canvas_size = "";
   name = "";
   devopt = "";
   printer = "";
   debug = false;
   debug_file = "octave-print-commands.log";
   special_flag = "textnormal";
+  tight_flag = false;
+  resolution = "";
 
-  ## Ensure the last figure is on the screen for single line commands like
-  ##   plot(...); print(...);
-  drawnow ();
-
-  for i = 1:nargin
-    arg = varargin{i};
-    if (ischar (arg))
-      if (strcmp (arg, "-color"))
-       use_color = 1;
-      elseif (strcmp (arg, "-mono"))
-       use_color = -1;
-      elseif (strcmp (arg, "-solid"))
-        force_solid = 1;
-      elseif (strcmp (arg, "-dashed"))
-        force_solid = -1;
-      elseif (strcmp (arg, "-portrait"))
-       orientation = "portrait";
-      elseif (strcmp (arg, "-landscape"))
-       orientation = "landscape";
-      elseif (strcmp (arg, "-textspecial"))
-       special_flag = "textspecial";
-      elseif (strncmp (arg, "-debug", 6))
-       debug = true;
-       if (length (arg) > 7)
-         debug_file = arg(8:end);
-       endif
-      elseif (length (arg) > 2 && arg(1:2) == "-d")
-       devopt = arg(3:end);
-      elseif (length (arg) > 2 && arg(1:2) == "-P")
-       printer = arg;
-      elseif (length (arg) > 2 && arg(1:2) == "-F")
-       idx = rindex(arg, ":");
-       if (idx)
-         font = arg(3:idx-1);
-         fontsize = arg(idx+1:length(arg));
+  persistent ghostscript_binary = "";
+  if (isempty (ghostscript_binary))
+    ghostscript_binary = getenv ("GSC");
+    ng = 0;
+    if (isunix ())
+      ## Unix - Includes Mac OSX and Cygwin.
+      gs_binaries = {"gs", "gs.exe"};
+    else
+      ## pc - Includes Win32 and mingw.
+      gs_binaries = {"gs.exe", "gswin32c.exe"};
+    endif
+    while (ng < numel (gs_binaries) && isempty (ghostscript_binary))
+      ng = ng + 1;
+      ghostscript_binary = file_in_path (EXEC_PATH, gs_binaries{ng});
+    endwhile
+  endif
+
+  old_fig = get (0, "currentfigure");
+  unwind_protect
+    ## Ensure the last figure is on the screen for single line commands
like
+    ##   plot(...); print(...);
+    drawnow ();
+
+    for i = 1:nargin
+      arg = varargin{i};
+      if (ischar (arg))
+        if (strcmp (arg, "-color"))
+         use_color = 1;
+        elseif (strcmp (arg, "-mono"))
+         use_color = -1;
+        elseif (strcmp (arg, "-solid"))
+          force_solid = 1;
+        elseif (strcmp (arg, "-dashed"))
+          force_solid = -1;
+        elseif (strcmp (arg, "-portrait"))
+         orientation = "portrait";
+        elseif (strcmp (arg, "-landscape"))
+         orientation = "landscape";
+        elseif (strcmp (arg, "-tight"))
+         tight_flag = true;
+        elseif (strcmp (arg, "-textspecial"))
+         special_flag = "textspecial";
+        elseif (strncmp (arg, "-debug", 6))
+         debug = true;
+         if (length (arg) > 7)
+           debug_file = arg(8:end);
+         endif
+        elseif (length (arg) > 2 && arg(1:2) == "-d")
+         devopt = tolower(arg(3:end));
+        elseif (length (arg) > 2 && arg(1:2) == "-P")
+         printer = arg;
+       elseif ((length (arg) > 2) && arg(1:2) == "-G")
+         ghostscript_binary = arg(3:end);
+         if (exist (ghostscript_binary, "file") != 2)
+           ghostscript_binary = file_in_path (EXEC_PATH, ghostscript_binary);
+         endif
+         if (isempty (ghostscript_binary))
+           error ("print.m: Ghostscript binary ""%s"" could not be located",
arg(3:end))
+         endif
+        elseif (length (arg) > 2 && arg(1:2) == "-F")
+         idx = rindex (arg, ":");
+         if (idx)
+           font = arg(3:idx-1);
+           fontsize = arg(idx+1:length(arg));
+         else
+           font = arg(3:length(arg));
+         endif
+        elseif (length (arg) > 2 && arg(1:2) == "-S")
+         canvas_size = arg(3:length(arg));
+        elseif (length (arg) > 2 && arg(1:2) == "-r")
+         resolution = arg(3:length(arg));
+        elseif (length (arg) >= 1 && arg(1) == "-")
+         error ("print: unknown option `%s'", arg);
+       elseif (length (arg) > 0)
+         name = arg;
+        endif
+      elseif (isfigure (arg))
+        figure (arg);
+      else
+        error ("print: expecting inputs to be character string options or a
figure handle");
+      endif
+    endfor
+
+    have_ghostscript = (exist (ghostscript_binary, "file") == 2);
+
+    doprint = isempty (name);
+    if (doprint)
+      if (isempty (devopt))
+       if (use_color < 0)
+         devopt = "ps";
+          printname = cstrcat (tmpnam, ".ps");
        else
-         font = arg(3:length(arg));
+         devopt = "psc";
+          printname = cstrcat (tmpnam, ".psc");
        endif
-      elseif (length (arg) > 2 && arg(1:2) == "-S")
-       size = arg(3:length(arg));
-      elseif (length (arg) >= 1 && arg(1) == "-")
-       error ("print: unknown option `%s'", arg);
-      elseif (length (arg) > 0)
-       name = arg;
+      else
+        printname = cstrcat (tmpnam, ".", devopt);
       endif
-    else
-      error ("print: expects string options");
+      name = printname;
     endif
-  endfor
 
-  doprint = isempty (name);
-  if (doprint)
     if (isempty (devopt))
-      printname = strcat (tmpnam, ".ps");
+      dot = rindex (name, ".");
+      if (dot == 0)
+        error ("print: no format specified");
+      else
+        dev = tolower (name(dot+1:end));
+      endif
     else
-      printname = strcat (tmpnam, ".", devopt);
+      dev = devopt;
     endif
-    name = printname;
-  endif
 
-  if (isempty (devopt))
-    dot = rindex (name, ".");
-    if (dot == 0)
-      error ("print: no format specified");
-    else
-      dev = tolower (name(dot+1:end));
+    if (strcmp (dev, "tex"))
+      dev = "epslatex";
+      ## gnuplot 4.0 wants ".eps" in the output name    
+      if (! __gnuplot_has_feature__ ("epslatex_implies_eps_filesuffix"))
+        name = cstrcat (name(1:dot), "eps");
+      endif
+    elseif (strcmp (dev, "ill"))
+      dev = "aifm";
+    elseif (strcmp (dev, "cdr"))
+      dev = "corel";
+    elseif (strcmp (dev, "meta"))
+      dev = "emf";
+    elseif (strcmp (dev, "jpg"))
+      dev = "jpeg";
     endif
-  else
-    dev = devopt;
-  endif
-
-  if (strcmp (dev, "tex"))
-    dev = "epslatex";
-    ## gnuplot 4.0 wants ".eps" in the output name    
-    if (compare_versions (__gnuplot_version__, "4.2", "<"))
-      name = strcat (name(1:dot), "eps");
-    endif
-  elseif (strcmp (dev, "ill"))
-    dev = "aifm";
-  elseif (strcmp (dev, "cdr"))
-    dev = "corel";
-  endif
 
-  ## check if we have to use convert
-  dev_list = {"aifm", "corel", "fig", "png", "jpg", "jpeg", ...
-             "gif", "pbm", "dxf", "mf", "svg", "hpgl", ...
-             "ps", "ps2", "psc", "psc2", "eps", "eps2", ...
-             "epsc", "epsc2", "emf", "pdf", "pslatex", ...
-             "epslatex", "epslatexstandalone", "pstex"};
-  convertname = "";
-  [idx, errmsg] = cellidx (dev_list, dev);
-  if (! idx)
-    if (! isempty (devopt))
-      convertname = strcat (devopt, ":", name);
+    ## Check if the specified device is one that is supported by gnuplot.
+    ## If not, assume it is a device/format supported by Ghostscript.
+    dev_list = {"aifm", "corel", "fig", "png", "jpeg", ...
+               "gif", "pbm", "dxf", "mf", "svg", "hpgl", ...
+               "ps", "ps2", "psc", "psc2", "eps", "eps2", ...
+               "epsc", "epsc2", "emf", "pdf", "pslatex", ...
+               "epslatex", "epslatexstandalone", "pstex"};
+    if (! any (strcmp (dev, dev_list)) && have_ghostscript)
+      ghostscript_output = name;
+      ghostscript_device = dev;
+      if (doprint)
+       ## If printing, use color postscript.
+        dev = "psc";
+        name = cstrcat (tmpnam, ".ps");
+      else
+       ## If saving to a file, use color encapsulated postscript.
+        dev = "epsc";
+        name = cstrcat (tmpnam, ".eps");
+      endif
     else
-      convertname = name;
+      ghostscript_output = "";
     endif
-    dev = "epsc";
-    name = strcat (tmpnam, ".eps");
-  endif
 
-  if (strcmp (dev, "ps") || strcmp (dev, "ps2") ...
-      || strcmp (dev, "psc")  || strcmp (dev, "psc2")
-      || strcmp (dev, "epsc") || strcmp (dev, "epsc2")
-      || strcmp (dev, "eps")  || strcmp (dev, "eps2")
-      || strcmp (dev, "pstex")|| strcmp (dev, "pslatex")
-      || strcmp (dev, "epslatex") || strcmp (dev, "epslatexstandalone"))
-
-    ## Various postscript options
-    if (strcmp (dev, "pstex")|| strcmp (dev, "pslatex")
-       || strcmp (dev, "epslatex"))
-      termn = dev;
-      options = "";
-    elseif (strcmp (dev, "epslatexstandalone"))
-      if (compare_versions (__gnuplot_version__, "4.2", ">="))
-       termn = "epslatex";
-       options = "standalone ";
+    termn = dev;
+
+    ## SVG isn't actually a bitmap, but gnuplot treats its size option as
it
+    ## does the bitmap terminals.
+    bitmap_devices = {"emf", "gif", "jpeg", "pbm", "png", "svg"};
+
+    if (any (strcmp (dev, {"ps", "ps2", "psc", "psc2", "epsc", "epsc2", ...
+                           "eps", "eps2", "pstex", "pslatex", "epslatex",
...
+                           "epslatexstandalone"})))
+
+      ## Various postscript options
+      if (any (strcmp (dev, {"pstex", "pslatex", "epslatex"})))
+        options = "";
+      elseif (strcmp (dev, "epslatexstandalone"))
+        if (__gnuplot_has_feature__ ("epslatexstandalone_terminal"))
+         termn = "epslatex";
+         options = "standalone ";
+        else
+         error ("print: epslatexstandalone needs gnuplot 4.2 or higher");
+        endif
       else
-       error ("print: epslatexstandalone needs gnuplot 4.2 or higher");
+        if (dev(1) == "e")
+         options = "eps ";
+        else
+         options = "";
+        endif
+        termn = "postscript";
       endif
-    else
-      if (dev(1) == "e")
-       options = "eps ";
+
+      if (any (dev == "c") || use_color > 0
+          || (! isempty (strfind (dev, "tex")) && use_color == 0))
+       use_color = 1;
       else
-       options = strcat (orientation, " ");
+       use_color = -1;
       endif
-      termn = "postscript";
-    endif
-    
-    if (any (dev == "c") || use_color > 0)
-      if (force_solid < 0)
-       options = strcat (options, "color dashed ");
+      
+      if (use_color > 0)
+        if (force_solid < 0)
+         options = cstrcat (options, "color dashed ");
+        else
+         options = cstrcat (options, "color solid ");
+        endif
       else
-       options = strcat (options, "color solid ");
+        if (force_solid > 0)
+         options = cstrcat (options, "mono solid ");
+        else
+         options = cstrcat (options, "mono dashed ");
+        endif
       endif
-    else
-      if (force_solid > 0)
-       options = strcat (options, "mono solid ");
+
+      if (! isempty (font))
+        options = cstrcat (options, """, font, "" ");
+      endif
+      if (! isempty (fontsize))
+        options = cstrcat (options, " ", fontsize);
+      endif
+      
+    elseif (strcmp (dev, "aifm") || strcmp (dev, "corel"))
+      ## Adobe Illustrator, CorelDraw
+      if (use_color >= 0)
+        options = " color";
       else
-       options = strcat (options, "mono dashed ");
+        options = " mono";
+      endif
+      if (! isempty (font))
+        options = cstrcat (options, " "", font, """);
+      endif
+      if (! isempty (fontsize))
+        options = cstrcat (options, " ", fontsize);
       endif
-    endif
 
-    if (! isempty (font))
-      options = strcat (options, """, font, "" ");
-    endif
-    if (! isempty (fontsize))
-      options = strcat (options, " ", fontsize);
-    endif
-    
-    new_terminal = strcat (termn, " ", options);
-    
-  elseif (strcmp (dev, "aifm") || strcmp (dev, "corel"))
-    ## Adobe Illustrator, CorelDraw
-    if (use_color >= 0)
-      options = " color";
-    else
-      options = " mono";
-    endif
-    if (! isempty (font))
-      options = strcat (options, " "", font, """);
-    endif
-    if (! isempty (fontsize))
-      options = strcat (options, " ", fontsize);
-    endif
+    elseif (strcmp (dev, "fig"))
+      ## XFig
+      options = orientation;
+      if (use_color >= 0)
+        options = " color";
+      else
+        options = " mono";
+      endif
+      options = cstrcat (options, " ", special_flag);
+      if (! isempty (fontsize))
+        options = cstrcat (options, " fontsize ", fontsize);
+      endif
+
+    elseif (strcmp (dev, "emf"))
+      ## Enhanced Metafile format
+      options = " ";
+      if (use_color >= 0)
+        options = " color";
+      else
+        options = " mono";
+      endif
+      if (force_solid >= 0)
+        options = cstrcat (options, " solid");
+      endif
+      if (! isempty (font))
+        options = cstrcat (options, " "", font, """);
+      endif
+      if (! isempty (fontsize))
+        options = cstrcat (options, " ", fontsize);
+      endif
 
-    new_terminal = strcat (dev, " ", options);
+    elseif (any (strcmp (dev, bitmap_devices)))
 
-  elseif (strcmp (dev, "fig"))
-    ## XFig
-    options = orientation;
-    if (use_color >= 0)
-      options = " color";
-    else
-      options = " mono";
-    endif
-    options = strcat (options, " ", special_flag);
-    if (! isempty (fontsize))
-      options = strcat (options, " fontsize ", fontsize);
-    endif
+      if (isempty (canvas_size) && isempty (resolution) 
+         && any (strcmp (dev, {"pbm", "gif", "jpeg", "png"})))
+       options = "";
+      elseif (strcmp (dev, "svg"))
+       ## Referring to size, either "dynamic" or "fixed"
+       options = "fixed";
+      else
+       options = "";
+      end
+      if (! isempty (canvas_size))
+        options = cstrcat (options, " size ", canvas_size);
+      endif
 
-    new_terminal = strcat ("fig ", options);
+    elseif (any (strcmp (dev, {"dxf", "mf", "hpgl"})))
+      ## AutoCad DXF, METAFONT, HPGL
+      options = "";
 
+    elseif (strcmp (dev, "pdf"))
+      ## Portable Document format
+      options = " ";
+      if (use_color >= 0)
+        options = "color";
+      else
+        options = "mono";
+      endif
+      if (force_solid >= 0)
+        options = cstrcat (options, " solid");
+      elseif (force_solid < 0)
+        options = cstrcat (options, " dashed");
+      endif
+      if (! isempty (font))
+        options = cstrcat (options, """, font, "" ");
+      endif
+      if (! isempty (fontsize))
+        options = cstrcat (options, " ", fontsize);
+      endif
 
-  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, """);
+ 
+    if (__gnuplot_has_feature__ ("variable_GPVAL_TERMINALS"))
+      available_terminals = __gnuplot_get_var__ (gcf, "GPVAL_TERMINALS");
+      available_terminals = regexp (available_terminals, "\b\w+\b",
"match");
+      ## Favor the cairo terminals.
+      if (strcmp (termn, "pdf") 
+          && any (strcmp (available_terminals, "pdfcairo")))
+        termn = "pdfcairo";
+       gnuplot_supports_term = true;
+      elseif (strcmp (termn, "png")
+              && any (strcmp (available_terminals, "pngcairo")))
+        termn = "pngcairo";
+       gnuplot_supports_term = true;
+      else
+        gnuplot_supports_term = any (strcmp (available_terminals, termn));
+      endif
+    elseif (strcmp (termn, "pdf"))
+      ## Some Linux variants do not include a "pdf" capable gnuplot.
+      ## To be safe, use Ghostscript.
+      if (have_ghostscript)
+        gnuplot_supports_term = false;
+        ghostscript_device = "pdfwrite";
+      else
+        gnuplot_supports_term = true;
+      endif
+    else
+      gnuplot_supports_term = true;
     endif
-    if (! isempty (fontsize))
-      options = strcat (options, " ", fontsize);
+
+    if (! gnuplot_supports_term)
+      if (strcmp (termn, "pdf"))
+       ## If there the installed gnuplot does not support pdf, use Ghostscript.
+        ghostscript_device = "pdfwrite";
+       if (strfind (name, ".pdf") == numel (name) - 3)
+          ghostscript_output = name;
+       else
+         ghostscript_output = strcat (name, ".pdf");
+       endif
+        name = cstrcat (tmpnam, ".ps");
+        termn = "postscript";
+       ## All "options" for pdf work for postscript as well.
+      else
+        error ("print: the device, "%s", is not available.", dev)
+      endif
     endif
 
-    new_terminal = strcat ("emf ", options);
+    is_eps_file = strncmp (dev, "eps", 3);
+    p.units = get (gcf, "units");
+    p.paperunits = get (gcf, "paperunits");
+    p.papersize = get (gcf, "papersize");
+    p.paperposition = get (gcf, "paperposition");
+    p.paperpositionmode = get (gcf, "paperpositionmode");
+    p.paperorientation = get (gcf, "paperorientation");
+    if (p.papersize(1) > p.papersize(2))
+      paperorientation = "landscape";
+    else
+      paperorientation = "portrait";
+    endif
+    if (! strcmp (paperorientation, get (gcf, "paperorientation"))
+        && warn_on_inconsistent_orientation)
+       msg = {"print.m - inconsistent papersize and paperorientation
properties.n",
+              sprintf("         papersize = %.2f, %.2fn", p.papersize),
+              sprintf("         paperorientation = "%s"n", p.paperorientation),
+                      "         the paperorientation property has been 
ignored"};
+      warning ("%s",msg{:})
+      warn_on_inconsistent_orientation = false;
+    endif
+
+    if (strcmp (termn, "postscript") && ! strncmp (dev, "eps", 3))
+      if (isempty (orientation))
+       orientation = paperorientation;
+      endif
+      ## This is done here to accommodate ghostscript conversion.
+      options = cstrcat (orientation, " ", options);
+    end
 
-  elseif (strcmp (dev, "png") || strcmp (dev, "gif")
-         || strcmp (dev, "jpg") || strcmp (dev, "jpeg")
-         || strcmp (dev, "pbm"))
-    if (strcmp (dev, "jpg"))
-      dev = "jpeg";
-    endif
-    ## Portable network graphics, PBMplus
+    new_terminal = cstrcat (termn, " ", options);
 
-    ## FIXME -- New PNG interface takes color as "xRRGGBB"
-    ## where x is the literal character 'x' and 'RRGGBB' are the red,
-    ## green and blue components in hex.  For now we just ignore it
-    ## and use default.  The png terminal now is so rich with options,
-    ## that one perhaps has to write a separate printpng.m function.
-    ## DAS
-
-    ## if (use_color >= 0)
-    ## eval (sprintf ("__gnuplot_set__ term %s color medium", dev));
-    ##else
-    ##eval (sprintf ("__gnuplot_set__ term %s mono medium", dev));
-    ##endif
+    mono = (use_color < 0);
 
-    if (isempty (size))
-      options = " large";
-    else
-      options = strcat (" size ", size);
-    endif
-    new_terminal = strcat (dev, options);
+    terminals_for_prn = {"postscript", "pdf", "pdfcairo"};
+    output_for_printer = any (strncmp (termn, terminals_for_prn,
numel(termn)));
 
-  elseif (strcmp (dev, "dxf") || strcmp (dev, "mf") || strcmp (dev,
"hpgl"))
-    ## AutoCad DXF, METAFONT, HPGL
-    new_terminal = dev;
-
-  elseif (strcmp (dev, "svg"))
-    ## SVG
-    options = "";
-    if (! isempty (size))
-      options = strcat (" size ", size);
-    endif
-    new_terminal = strcat ("svg", options);
-    
-  elseif (strcmp (dev, "pdf"))
-    ## Portable Document format
-    options = " ";
-    if (use_color >= 0)
-      options = "color";
+    if (isempty (resolution))
+      if (any (strcmp (dev, {"emf", "svg"})) || output_for_printer)
+        resolution = get (0, "screenpixelsperinch");
+      else
+        resolution = 150;
+      endif
     else
-      options = "mono";
+      resolution = str2num (resolution);
+      if (resolution == 0)
+        resolution = get (0, "screenpixelsperinch");
+      endif
     endif
-    if (force_solid > 0)
-       options = strcat (options, " solid");
-    elseif (force_solid < 0)
-      options = strcat (options, " dashed");
+    figure_properties = get (gcf);
+    if (! isfield (figure_properties, "__pixels_per_inch__"))
+      addproperty ("__pixels_per_inch__", gcf, "double", resolution);
+    endif
+    set (gcf, "__pixels_per_inch__", resolution)
+
+    unwind_protect
+      set (gcf, "paperunits", "inches");
+      set (gcf, "units", "pixels");
+      restore_properties = true;
+      if ((! output_for_printer || is_eps_file) && ! doprint)
+       ## If not PDF or PostScript, and the result is not being sent to a
printer,
+        ## render an image the size of the paperposition box.
+       ## Trigger the listener to convert all paper props to inches.
+       if (! isempty (canvas_size))
+          size_in_pixels = sscanf (canvas_size ,"%d, %d");
+          size_in_pixels = reshape (size_in_pixels, [1,
numel(size_in_pixels)]);
+          papersize_in_inches = size_in_pixels ./ resolution;
+          paperposition_in_inches = [0, 0, papersize_in_inches];
+       else
+          paperposition_in_inches = get (gcf, "paperposition");
+          paperposition_in_inches(1:2) = 0;
+          papersize_in_inches = paperposition_in_inches(3:4);
+        endif
+        set (gcf, "papersize", papersize_in_inches);
+        set (gcf, "paperposition", paperposition_in_inches);
+        set (gcf, "paperpositionmode", "manual");
+      else
+       if (strcmp (p.paperpositionmode, "auto"))
+         size_in_pixels = get (gcf, "position")(3:4);
+         paperposition_in_inches(3:4) = size_in_pixels ./ resolution;
+         paperposition_in_inches(1:2) = (p.papersize -
paperposition_in_inches(3:4))/2;
+       else
+         paperposition_in_inches = p.paperposition;
+       endif
+       if (! isempty (orientation) && ! strcmp (orientation, paperorientation))
+         ## When -landscape/portrait changes the orientation, flip both the
+         ## papersize and paperposition.
+         restore_properties = true;
+         set (gcf, "papersize", p.papersize([2, 1]));
+         set (gcf, "paperposition", paperposition_in_inches([2, 1, 4, 3]));
+       else
+         set (gcf, "paperposition", paperposition_in_inches);
+       endif
+      endif
+      if (use_color < 0)
+       [objs_with_color, color_of_objs] = convert_color2mono (gcf);
+      endif
+      if (debug)
+        drawnow (new_terminal, name, mono, debug_file);
+      else
+        drawnow (new_terminal, name, mono);
+      endif
+    unwind_protect_cleanup
+      ## FIXME - it would be nice to delete "__pixels_per_inch__" property
here.
+      if (restore_properties)
+        props = fieldnames (p);
+        for n = 1:numel(props)
+          set (gcf, props{n}, p.(props{n}))
+        endfor
+      endif
+      if (use_color < 0)
+       convert_mono_to_or_from_color (objs_with_color, color_of_objs, false);
+      endif
+    end_unwind_protect
+
+    if (! isempty (ghostscript_output))
+      if (is_eps_file && tight_flag)
+       ## If gnuplot's output is an eps-file then crop at the bounding box.
+        fix_eps_bbox (name, ghostscript_binary);
+      endif
+      ghostscript_options = "-q -dBATCH -dSAFER -dNOPAUSE
-dTextAlphaBits=4";
+      if (is_eps_file)
+       ghostscript_options = sprintf ("%s -dEPSCrop", ghostscript_options);
+      endif
+      if (isempty (strfind (lower (ghostscript_device), "write")))
+       ## If output is a bitmap then include the resolution
+       ghostscript_options = sprintf ("%s -r%d", ghostscript_options,
resolution);
+      endif
+      ghostscript_options = sprintf ("%s -sDEVICE=%s", ghostscript_options,
+                                     ghostscript_device);
+      command = sprintf (""%s" %s -sOutputFile="%s" "%s" 2>&1",
ghostscript_binary,
+                          ghostscript_options, ghostscript_output, name);
+      [errcode, output] = system (command);
+      unlink (name);
+      if (errcode)
+        error ("print: Conversion failed, %s -> %s.nError was:n%sn",
+               name, ghostscript_output, output);
+      endif
+    elseif (is_eps_file && tight_flag && ! doprint)
+      ## If the saved output file is an eps file, use ghostscript to set a
tight bbox.
+      ## This may result in a smaller or larger bbox geometry.
+      if (have_ghostscript)
+        fix_eps_bbox (name, ghostscript_binary);
+      endif
     endif
-    if (! isempty (font))
-      options = strcat (options, """, font, "" ");
+
+    if (doprint)
+      if (isunix ())
+       prn_opt = "-l";
+      elseif (ispc ())
+       prn_opt = "-o l";
+      else
+       ## FIXME - besides Unix and Windows, what other OS's might be 
considered.
+       prn_opt = "";
+      endif
+      if (isempty (printer))
+        prn_cmd = sprintf ("lpr %s '%s' 2>&1", prn_opt, printname);
+      else
+        prn_cmd = sprintf ("lpr %s -P %s '%s' 2>&1", prn_opt, printer,
printname);
+      endif
+      [status, output] = system (prn_cmd);
+      if (status != 0)
+       disp (output)
+       warning ("print.m: printing failed.")
+      endif
+      [status, output] = unlink (printname);
+      if (status != 0)
+       disp (output)
+       warning ("print.m: failed to delete temporay file, '%s'.", printname)
+      endif
     endif
-    if (! isempty (fontsize))
-      options = strcat (options, " ", fontsize);
+
+  unwind_protect_cleanup
+    if (isfigure (old_fig))
+      figure (old_fig)
     endif
+  end_unwind_protect
 
-    new_terminal = strcat ("pdf ", options);
+endfunction
 
-  endif
+function bb = fix_eps_bbox (eps_file_name, ghostscript_binary)
 
-  mono = use_color < 0;
+  persistent warn_on_no_ghostscript = true
 
-  if (debug)
-    drawnow (new_terminal, name, mono, debug_file);
-  else
-    drawnow (new_terminal, name, mono);
-  endif
+  box_string = "%%BoundingBox:";
 
-  if (! isempty (convertname))
-    command = sprintf ("convert '%s' '%s'", name, convertname);
-    [errcode, output] = system (command);
-    unlink (name);
-    if (errcode)
-      error ("print: could not convert");
-    endif
+  ghostscript_options = "-q -dBATCH -dSAFER -dNOPAUSE -dTextAlphaBits=4
-sDEVICE=bbox";
+  cmd = sprintf (""%s" %s "%s" 2>&1", ghostscript_binary,
+                 ghostscript_options, eps_file_name);
+  [status, output] = system (cmd);
+
+  if (status == 0)
+
+    pattern = strcat (box_string, "[^%]*");
+    pattern = pattern(1:find(double(pattern)>32, 1, "last"));
+    bbox_line = regexp (output, pattern, "match");
+    if (iscell (bbox_line))
+      bbox_line = bbox_line{1};
+    endif
+    ## Remore the EOL characters.
+    bbox_line(double(bbox_line)<32) = "";
+
+    fid = fopen (eps_file_name, "r+");
+    unwind_protect
+      bbox_replaced = false;
+      while (! bbox_replaced)
+        current_line = fgetl (fid);
+        if (strncmpi (current_line, box_string, numel(box_string)))
+          line_length = numel (current_line);
+          num_spaces = line_length - numel (bbox_line);
+          if (numel (current_line) < numel (bbox_line))
+           ## If there new line is longer, continue with the current line.
+            new_line = current_line;
+          else
+           new_line = bbox_line;
+           new_line(end+1:numel(current_line)) = " ";
+          endif
+          ## Back up to the beginning of the line (include EOL characters).
+          if (ispc ())
+            fseek (fid, -line_length-2, "cof");
+          else
+            fseek (fid, -line_length-1, "cof");
+          endif
+          count = fprintf (fid, "%s", new_line);
+          bbox_replaced = true;
+        elseif (! ischar (current_line))
+          bbox_replaced = true;
+          warning ("print.m: no bounding box found in '%s'.",
eps_file_name)
+        endif
+      endwhile
+    unwind_protect_cleanup
+      fclose (fid);
+    end_unwind_protect
+  elseif (warn_on_no_ghostscript)
+    warn_on_no_ghostscript = false;
+    warning ("print.m: Ghostscript failed to determine the bounding
box.nError was:n%sn", output)
   endif
 
-  ## FIXME -- This looks like a dirty, Unix-specific hack.
-  ## DAS
-  if (doprint)
-    system (sprintf ("lpr %s '%s'", printer, printname));
-    unlink (printname);
-  endif
+endfunction
+
+function [h, c] = convert_color2mono (hfig)
+  unwind_protect
+    showhiddenhandles = get (0, "showhiddenhandles");
+    set (0, "showhiddenhandles", "on");
+    h.color = findobj (hfig, "-property", "color");
+    h.facecolor = findobj (hfig, "-property", "facecolor");
+    h.edgecolor = findobj (hfig, "-property", "edgecolor");
+    h.backgroundcolor = findobj (hfig, "-property", "backgroundcolor");
+    h.colormap = findobj (hfig, "-property", "colormap");
+  unwind_protect_cleanup
+    set (0, "showhiddenhandles", showhiddenhandles);
+  end_unwind_protect
+  f = fieldnames (h);
+  for nf = 1:numel(f)
+    if (! isempty (h.(f{nf})))
+      v = get (h.(f{nf}), f{nf});
+      if (! iscell (v))
+        v = {v};
+      endif
+      c.(f{nf}) = v;
+    endif
+  endfor
+  convert_mono_to_or_from_color (h, c, true)
+endfunction
 
+function convert_mono_to_or_from_color (h, c, mono)
+  f = fieldnames (h);
+  for nf = 1:numel(f)
+    for nh = 1:numel (h.(f{nf}))
+      color = c.(f{nf}){nh};
+      ## Ignore color == {"none", "flat", ...}
+      if (isfloat (color))
+       if (mono)
+         ## Same method as used by rgb2gray in the image pkg.
+         color = rgb2ntsc (color)(:,1) * ones (1, 3);
+       endif
+        set (h.(f{nf})(nh), f{nf}, color);
+      endif
+    endfor
+  endfor
 endfunction
+

    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?29929>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/