Mercurial > octave
view libinterp/dldfcn/__osmesa_print__.cc @ 21691:263d18409fdf
Eliminate unused variable warnings for conditionally compiled code.
We had more or less decided not to bother trying to eliminate all
these warnings for cases in which external dependencies are missing.
But then we get people trying to fix these in various ways, so we
might as well do it for all cases and use a consistent method.
* oct-conf-post.in.h (octave_unused_parameter): New function for C++
code and new macro for C code.
* mk-octave-config-h.sh: Emit octave_unused_parameter function and
macro for octave-config.h.
* CSparse.cc, __delaunayn__.cc, __eigs__.cc, __fltk_uigetfile__.cc,
__glpk__.cc, __magick_read__.cc, __osmesa_print__.cc, __voronoi__.cc,
amd.cc, audiodevinfo.cc, audioread.cc, ccolamd.cc, cdisplay.c,
colamd.cc, convhulln.cc, dSparse.cc, dmperm.cc, fftw.cc, gl-render.cc,
lo-error.c, load-save.cc, ls-hdf5.cc, ls-mat5.cc, oct-hdf5-types.cc,
ov-base-int.cc, ov-bool-mat.cc, ov-bool-sparse.cc, ov-bool.cc,
ov-cell.cc, ov-class.cc, ov-complex.cc, ov-cx-mat.cc, ov-cx-sparse.cc,
ov-fcn-handle.cc, ov-fcn-inline.cc, ov-float.cc, ov-flt-complex.cc,
ov-flt-cx-mat.cc, ov-flt-re-mat.cc, ov-java.cc, ov-range.cc,
ov-re-mat.cc, ov-re-sparse.cc, ov-scalar.cc, ov-str-mat.cc,
ov-struct.cc, sparse-chol.cc, sparse-dmsolve.cc, sparse-lu.cc,
sparse-qr.cc, sparse-util.cc, symbfact.cc: Use octave_unused_parameter
to eliminate warnings for conditionally compiled code.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 13 May 2016 09:36:14 -0400 |
parents | ecce63c99c3f |
children | aba2e6293dd8 |
line wrap: on
line source
/* Copyright (C) 2015 Andreas Weber <andy.weber.aw@gmail.com> 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/>. This code is based on Brian Pauls' src/osdemos/osdemo.c from git://anongit.freedesktop.org/mesa/demos */ #ifdef HAVE_CONFIG_H # include "config.h" #endif #if defined (HAVE_OSMESA_H) # include <osmesa.h> #elif defined (HAVE_GL_OSMESA_H) # include <GL/osmesa.h> #endif #include "oct-locbuf.h" #include "unwind-prot.h" #include "defun-dld.h" #include "errwarn.h" #include "gl-render.h" #include "gl2ps-print.h" #include "graphics.h" #include "oct-opengl.h" #if defined (HAVE_OSMESA) static void reset_visibility (figure::properties *fp) { fp->set_visible ("on"); } #endif DEFUN_DLD(__osmesa_print__, args, , "-*- texinfo -*-\n\ @deftypefn {} {} __osmesa_print__ (@var{h}, @var{file}, @var{term})\n\ @deftypefnx {} {@var{img} =} __osmesa_print__ (@var{h})\n\ Print figure @var{h} using OSMesa and gl2ps for vector formats.\n\ \n\ This is a private internal function.\n\ \n\ The first method calls gl2ps with the appropriate @var{term} and writes\n\ the output of gl2ps to @var{file}. If the first character of @var{file}\n\ is @qcode{|}, then a process is started and the output of gl2ps is piped\n\ to it.\n\ \n\ Valid options for @var{term}, which can be concatenated in one string, are:\n\ \n\ @table @asis\n\ @item @qcode{eps}, @qcode{pdf}, @qcode{ps}, @qcode{svg}, @qcode{pgf}, @qcode{tex}\n\ Select output format.\n\ \n\ @item @qcode{is2D}\n\ Use GL2PS_SIMPLE_SORT instead of GL2PS_BSP_SORT as Z-depth sorting\n\ algorithm.\n\ \n\ @item @qcode{notext}\n\ Don't render text.\n\ @end table\n\ \n\ The second method doesn't use gl2ps and returns a RGB image in @var{img}\n\ instead.\n\ \n\ @end deftypefn") { #if defined (HAVE_OSMESA) int nargin = args.length (); if (nargin != 1 && nargin != 3) print_usage (); if (nargin == 3) { if (! (args(1).is_string () && args(2).is_string ())) error ("__osmesa_print__: FILE and TERM must be strings"); } octave_value_list retval; int h = args(0).double_value (); graphics_object fobj = gh_manager::get_object (h); if (! (fobj && fobj.isa ("figure"))) error ("__osmesa_print__: H must be a valid figure handle"); figure::properties& fp = dynamic_cast<figure::properties&> (fobj.get_properties ()); bool internal = true; Matrix bb = fp.get_boundingbox (internal); GLsizei Width = static_cast<GLsizei> (bb(2)); GLsizei Height = static_cast<GLsizei> (bb(3)); // Create an RGBA-mode context, specify Z=16, stencil=0, accum=0 sizes OSMesaContext ctx = OSMesaCreateContextExt (OSMESA_RGBA, 16, 0, 0, NULL); if (! ctx) error ("__osmesa_print__: OSMesaCreateContext failed!\n"); // Allocate the image buffer OCTAVE_LOCAL_BUFFER (GLubyte, buffer, 4 * Width * Height); // Bind the buffer to the context and make it current if (! OSMesaMakeCurrent (ctx, buffer, GL_UNSIGNED_BYTE, Width, Height)) error ("__osmesa_print__: OSMesaMakeCurrent failed!\n"); // Test for a bug in OSMesa with version < 9.0 // // Unfortunately the macros OSMESA_MAJOR_VERSION and OSMESA_MINOR_VERSION // weren't updated between many releases and can't be used for detection. // (Version 8.0 until 9.1.4 all return MAJOR 6, MINOR 5) GLint z, s; glGetIntegerv (GL_DEPTH_BITS, &z); glGetIntegerv (GL_STENCIL_BITS, &s); if (z != 16 || s != 0) error ("__osmesa_print__: Depth and stencil doesn't match," " are you sure you are using OSMesa >= 9.0?"); unwind_protect outer_frame; bool v = fp.is_visible (); if (v) { outer_frame.add_fcn (reset_visibility, &fp); fp.set_visible ("off"); } if (nargin == 3) { std::string file = args(1).string_value (); std::string term = args(2).string_value (); gl2ps_print (fobj, file, term); } else { // return RGB image opengl_renderer rend; // Draw and finish () or there may primitives missing in the // output. rend.draw (fobj); rend.finish (); dim_vector dv (4, Width, Height); // FIXME: We expect that GLubyte is 1 Byte long. // Adapt code if this isn't always true assert (sizeof (GLubyte) == 1); uint8NDArray img (dv); unsigned char *p = reinterpret_cast<unsigned char*>(img.fortran_vec ()); memcpy (p, buffer, (4 * Width * Height)); Array<octave_idx_type> perm (dim_vector (3, 1)); perm(0) = 2; perm(1) = 1; perm(2) = 0; Array<idx_vector> idx (dim_vector (3, 1)); // Flip Y idx(0) = idx_vector::make_range (Height - 1, -1, Height); idx(1) = idx_vector::colon; // Remove alpha channel idx(2) = idx_vector (0, 3); retval = octave_value (img.permute (perm). index(idx)); } OSMesaDestroyContext (ctx); return retval; #else octave_unused_parameter (args); err_disabled_feature ("__osmesa_print__", "offscreen rendering with OSMesa"); #endif } /* ## FIXME: osmesa does not work correctly on Windows platforms. ## This is not critical, since this facility will mostly be used in ## the future for generating the images in Octave's own documentation. ## For the moment, disable these tests on PC's and Macs. %!testif HAVE_OPENGL, HAVE_OSMESA, HAVE_GL2PS_H %! if (isunix ()) %! h = figure ("visible", "off"); %! fn = tempname (); %! sombrero (); %! __osmesa_print__ (h, fn, "svg"); %! assert (stat (fn).size, 2692270, -0.1); %! unlink (fn); %! img = __osmesa_print__ (h); %! assert (size (img), [get(h, "position")([4, 3]), 3]); %! ## Use pixel sum per RGB channel as fingerprint %! img_fp = squeeze (sum (sum (img), 2)); %! assert (img_fp, [52942515; 54167797; 56158178], -0.05); %! endif %!testif HAVE_OPENGL, HAVE_OSMESA, HAVE_GL2PS_H %! if (isunix ()) %! h = figure ("visible", "off"); %! fn = tempname (); %! plot (sin (0:0.1:2*pi)); %! __osmesa_print__ (h, fn, "svgis2d"); %! assert (stat (fn).size, 7438, -0.1); %! unlink (fn); %! img = __osmesa_print__ (h); %! assert (size (img), [get(h, "position")([4, 3]), 3]); %! ## Use pixel sum per RGB channel as fingerprint %! img_fp = squeeze (sum (sum (img), 2)); %! assert (img_fp, [59281711; 59281711; 59482179], -0.05); %! endif */