--- a/scripts/plot/__fltk_print__.m
+++ b/scripts/plot/__fltk_print__.m
@@ -21,9 +21,122 @@
 ## Undocumented internal function.
 ## @end deftypefn
 
-function __fltk_print__ (varargin)
+function __fltk_print__ (opts)
+
+  if (opts.debug)
+    fprintf ("FLTK backend: output file = '%s' for device '%s'\n", opts.name, opts.devopt);
+  endif
+  
+  file2unlink = "";
 
-  opts = __print_parse_opts__ (varargin{:});
-  drawnow ("eps", opts.name);
+  switch lower (opts.devopt)
+  case {"eps", "eps2", "epsc", "epsc2"}
+    drawnow ("eps", opts.name);
+    if (opts.tight_flag)
+      __tight_eps_bbox__ (opts, opts.name);
+    endif
+  case {"epslatex", "epslatexstandalone", "pslatex"}
+    # FIXME - format GL2PS_TEX is not implemented
+    drawnow ("epslatex", opts.name);
+    if (opts.tight_flag)
+      __tight_eps_bbox__ (opts, opts.name);
+    endif
+  case {"tikz"}
+    ## FIXME - format GL2PS_PGF if not implemented
+    drawnow ("pgf", opts.name);
+  case {"ps", "ps2", "psc", "psc2"}
+    ## FIXME - format GL2PS_PS if not implemented
+    drawnow ("ps", opts.name);
+  case {"pdf"}
+    ## FIXME - format GL2PS_PDF if not implemented
+    drawnow ("pdf", opts.name);
+  case {"svg"}
+    ## FIXME - format GL2PS_SVG if not implemented
+    drawnow ("svg", opts.name);
+  case {"gif", "jpeg", "png", "pbm"}
+    opts.ghostscript_device = opts.devopt;
+    opts.ghostscript_output = opts.name;
+    opts.name = strcat (tmpnam (), ".eps");
+    file2unlink = opts.name;
+    opts.devopt = "epsc";
+    drawnow ("eps", opts.name);
+    if (opts.tight_flag)
+      __tight_eps_bbox__ (opts, opts.name);
+    endif
+  case {"aifm", "dxf", "emf", "fig", "hpgl"}
+    status = __pstoedit__ (opts);
+  case {"pstex", "mf", "emf"}
+    tmp_figfile = strcat (tmpnam (), ".fig");
+    file2unlink = tmp_figfile;
+    status = __pstoedit__ (opts, "fig", tmp_figfile);
+    if (status == 0)
+      status = __fig2dev__ (opts, tmp_figfile);
+    endif
+  otherwise
+    error ("print:unavailabledevice", 
+    "print.m: device '%s' is unavailable for the fltk backend.", opts.devopt)
+  endswitch
+
+  if (! isempty (opts.ghostscript_device))
+    __ghostscript__ (opts);
+  endif
+
+  if (! isempty (file2unlink))
+    [status, output] = unlink (file2unlink);
+    if (status != 0)
+      disp (output)
+      warning ("print.m: failed to delete temporay file, '%s'.", file2unlink)
+    endif
+  endif
 
 endfunction
+
+function status = __fig2dev__ (opts, figfile, devopt, devfile)
+  if (nargin < 4)
+    devfile = opts.name;
+  endif
+  if (nargin < 3)
+    devopt =  opts.devopt;
+  endif
+  cmd = sprintf ("%s -L %s %s %s 2>&1", opts.fig2dev_binary, devopt, figfile, devfile);
+  [status, output] = system (cmd);
+  if (opts.debug)
+    fprintf ("fig2dev command: %s", cmd)
+  endif
+  if (status)
+    warning ("print:fig2devfailed", "print.m: error running fig2dev.")
+    disp (cmd)
+    disp (output)
+  endif
+endfunction
+
+function status = __pstoedit__ (opts, devopt, name)
+  if (nargin < 3)
+    name = opts.name;
+  endif
+  if (nargin < 2)
+    devopt =  opts.devopt;
+  endif
+  tmp_epsfile = strcat (tmpnam (), ".eps");
+  if (opts.tight_flag)
+    __tight_eps_bbox__ (opts, tmp_epsfile);
+  endif
+  drawnow ("eps", tmp_epsfile)
+  cmd = sprintf ("%s -f %s %s %s 2>&1", opts.pstoedit_binary, devopt, tmp_epsfile, name);
+  [status, output] = system (cmd);
+  if (opts.debug)
+    fprintf ("pstoedit command: %s", cmd)
+  endif
+  if (status)
+    warning ("print:pstoeditfailed", "print.m: error running pstoedit.")
+    disp (cmd)
+    disp (output)
+  endif
+  [status, output] = unlink (tmp_epsfile);
+  if (status != 0)
+    disp (output)
+    warning ("print.m: failed to delete temporay file, '%s'.", tmp_epsfile)
+  endif
+endfunction
+
+