Mercurial > octave-nkf
view scripts/plot/__go_draw_figure__.m @ 10913:dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
author | Ben Abbott <bpabbott@mac.com> |
---|---|
date | Fri, 27 Aug 2010 06:39:36 -0400 |
parents | 3c59ce262c66 |
children | e81914f3921f |
line wrap: on
line source
## Copyright (C) 2005, 2007, 2008, 2009 John W. Eaton ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {Function File} {} __go_draw_figure__ (@var{h}, @var{plot_stream}, @var{enhanced}, @var{mono}) ## Undocumented internal function. ## @end deftypefn ## Author: jwe function __go_draw_figure__ (h, plot_stream, enhanced, mono) if (nargin == 4) htype = get (h, "type"); if (strcmp (htype, "figure")) ## Get complete list of children. kids = allchild (h); nkids = length (kids); if (nkids > 0) fputs (plot_stream, "\nreset;\n"); fputs (plot_stream, "set autoscale keepfix;\n"); fputs (plot_stream, "set origin 0, 0\n"); fputs (plot_stream, "set size 1, 1\n"); bg = get (h, "color"); if (isnumeric (bg)) fprintf (plot_stream, "set obj 1 rectangle from screen 0,0 to screen 1,1 behind fc rgb \"#%02x%02x%02x\"\n", 255 * bg); bg_is_set = true; else bg_is_set = false; endif for i = nkids:-1:1 type = get (kids(i), "type"); switch (type) case "axes" ## Rely upon listener to convert axes position to "normalized" units. orig_axes_units = get (kids(i), "units"); orig_axes_position = get (kids(i), "position"); unwind_protect set (kids(i), "units", "normalized"); fg = get (kids(i), "color"); if (isnumeric (fg) && strcmp (get (kids(i), "visible"), "on")) fprintf (plot_stream, "set obj 2 rectangle from graph 0,0 to graph 1,1 behind fc rgb \"#%02x%02x%02x\"\n", 255 * fg); fg_is_set = true; else fg_is_set = false; endif if (bg_is_set) fprintf (plot_stream, "set border linecolor rgb \"#%02x%02x%02x\"\n", 255 * (1 - bg)); endif ## Return axes "units" and "position" back to their original values. __go_draw_axes__ (kids(i), plot_stream, enhanced, mono, bg_is_set); unwind_protect_cleanup set (kids(i), "units", orig_axes_units); set (kids(i), "position", orig_axes_position); bg_is_set = false; if (fg_is_set) fputs (plot_stream, "unset obj 2\n"); endif end_unwind_protect otherwise error ("__go_draw_figure__: unknown object class, %s", type); endswitch endfor fputs (plot_stream, "\nunset multiplot;\n"); else fputs (plot_stream, "\nreset; clear;\n"); fflush (plot_stream); endif else error ("__go_draw_figure__: expecting figure object, found `%s'", htype); endif else print_usage (); endif endfunction