/* @(#) Add two vasari images * @(#) Function im_add() assumes that the both input files * @(#) are either memory mapped or in a buffer. * @(#) Images must have the same no of bands and can be of any type * @(#) No check for overflow is carried out. * @(#) * @(#) int * @(#) im_add(in1, in2, out) * @(#) IMAGE *in1, *in2, *out; * @(#) * @(#) Returns 0 on success and -1 on error * @(#) * * Copyright: 1990, N. Dessipris. * * Author: Nicos Dessipris * Written on: 02/05/1990 * Modified on: * 29/4/93 J.Cupitt * - now works for partial images * 1/7/93 JC * - adapted for partial v2 * 9/5/95 JC * - simplified: now just handles 10 cases (instead of 50), using * im_clip2*() to help * - now uses im_wrapmany() rather than im_generate() * 31/5/96 JC * - SWAP() removed, *p++ removed * 27/9/04 * - im__cast_and_call() now matches bands as well * - ... so 1 band + 4 band image -> 4 band image * 8/12/06 * - add liboil support */ /* This file is part of VIPS. VIPS is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ /* These files are distributed with VIPS - http://www.vips.ecs.soton.ac.uk */ #ifdef HAVE_CONFIG_H #include #endif /*HAVE_CONFIG_H*/ #include #include #include #include #include #include #include #ifdef HAVE_LIBOIL #include #endif /*HAVE_LIBOIL*/ #ifdef WITH_DMALLOC #include #endif /*WITH_DMALLOC*/ /* Complex add. */ #define cloop(TYPE) \ {\ TYPE *p1 = (TYPE *) in[0];\ TYPE *p2 = (TYPE *) in[1];\ TYPE *q = (TYPE *) out;\ \ for( x = 0; x < sz; x++ ) {\ double rp1 = p1[0];\ double ip1 = p1[1];\ \ double rp2 = p2[0];\ double ip2 = p2[1];\ \ p1 += 2;\ p2 += 2;\ \ q[0] = rp1 + rp2;\ q[1] = ip1 + ip2;\ \ q += 2;\ }\ } /* Real add. */ #define rloop(TYPE) \ {\ TYPE *p1 = (TYPE *) in[0];\ TYPE *p2 = (TYPE *) in[1];\ TYPE *q = (TYPE *) out;\ \ for( x = 0; x < sz; x++ )\ q[x] = p1[x] + p2[x];\ } static void add_buffer( PEL **in, PEL *out, int width, IMAGE *im ) { int x; int sz = width * im->Bands; /* Add all input types. */ switch( im->BandFmt ) { case IM_BANDFMT_CHAR: rloop( signed char ); break; case IM_BANDFMT_UCHAR: rloop( unsigned char ); break; case IM_BANDFMT_SHORT: rloop( signed short ); break; case IM_BANDFMT_USHORT: rloop( unsigned short ); break; case IM_BANDFMT_INT: rloop( signed int ); break; case IM_BANDFMT_UINT: rloop( unsigned int ); break; case IM_BANDFMT_FLOAT: #ifdef HAVE_LIBOIL oil_add_f32( (float *) out, (float *) in[0], (float *) in[1], sz ); #else /*!HAVE_LIBOIL*/ rloop( float ); #endif /*HAVE_LIBOIL*/ break; case IM_BANDFMT_DOUBLE: rloop( double ); break; case IM_BANDFMT_COMPLEX: cloop( float ); break; case IM_BANDFMT_DPCOMPLEX: cloop( double ); break; default: assert( 0 ); } } /* Save a bit of typing. */ #define UC IM_BANDFMT_UCHAR #define C IM_BANDFMT_CHAR #define US IM_BANDFMT_USHORT #define S IM_BANDFMT_SHORT #define UI IM_BANDFMT_UINT #define I IM_BANDFMT_INT #define F IM_BANDFMT_FLOAT #define M IM_BANDFMT_COMPLEX #define D IM_BANDFMT_DOUBLE #define DM IM_BANDFMT_DPCOMPLEX /* Type conversions for two integer inputs. Rules for float and complex * encoded with ifs. We are sign and value preserving. */ static int iformat[6][6] = { /* UC C US S UI I */ /* UC */ { US, S, UI, I, UI, I }, /* C */ { S, S, I, I, I, I }, /* US */ { UI, I, UI, I, UI, I }, /* S */ { I, I, I, I, I, I }, /* UI */ { UI, I, UI, I, UI, I }, /* I */ { I, I, I, I, I, I } }; /* Make an n-band image. Input 1 or n bands. */ static int im__bandup( IMAGE *in, IMAGE *out, int n ) { IMAGE *bands[256]; int i; if( in->Bands == n ) return( im_copy( in, out ) ); if( in->Bands != 1 ) { im_error( "im__bandup", _( "not one band or %d bands" ), n ); return( -1 ); } if( n > 256 || n < 1 ) { im_error( "im__bandup", "%s", _( "bad bands" ) ); return( -1 ); } for( i = 0; i < n; i++ ) bands[i] = in; return( im_gbandjoin( bands, out, n ) ); } /* Convert in1 and in2 to the bands and type of out, and call the function. * Also used by subtract, multiply, divide, etc. */ int im__cast_and_call( IMAGE *in1, IMAGE *in2, IMAGE *out, im_wrapmany_fn fn, void *a ) { IMAGE *t[5]; if( im_open_local_array( out, t, 4, "type cast:1", "p" ) ) return( -1 ); /* Make sure bbits is set correctly. */ out->Bbits = im_bits_of_fmt( out->BandFmt ); /* Cast our input images up to the same type as the output. */ if( im_clip2fmt( in1, t[0], out->BandFmt ) || im_clip2fmt( in2, t[1], out->BandFmt ) ) return( -1 ); /* Force bands up to the same as out. */ if( im__bandup( t[0], t[2], out->Bands ) || im__bandup( t[1], t[3], out->Bands ) ) return( -1 ); /* And add! */ t[4] = NULL; if( im_wrapmany( t + 2, out, fn, out, a ) ) return( -1 ); return( 0 ); } int im_add( IMAGE *in1, IMAGE *in2, IMAGE *out ) { /* Basic checks. */ if( im_piocheck( in1, out ) || im_pincheck( in2 ) ) return( -1 ); if( in1->Bands != in2->Bands && (in1->Bands != 1 && in2->Bands != 1) ) { im_error( "im_add", "%s", _( "not same number of bands" ) ); return( -1 ); } if( in1->Coding != IM_CODING_NONE || in2->Coding != IM_CODING_NONE ) { im_error( "im_add", "%s", _( "not uncoded" ) ); return( -1 ); } if( im_cp_descv( out, in1, in2, NULL ) ) return( -1 ); /* What number of bands will we write? */ out->Bands = IM_MAX( in1->Bands, in2->Bands ); /* What output type will we write? int, float or complex. */ if( im_iscomplex( in1 ) || im_iscomplex( in2 ) ) { /* What kind of complex? */ if( in1->BandFmt == IM_BANDFMT_DPCOMPLEX || in2->BandFmt == IM_BANDFMT_DPCOMPLEX ) /* Output will be DPCOMPLEX. */ out->BandFmt = IM_BANDFMT_DPCOMPLEX; else out->BandFmt = IM_BANDFMT_COMPLEX; } else if( im_isfloat( in1 ) || im_isfloat( in2 ) ) { /* What kind of float? */ if( in1->BandFmt == IM_BANDFMT_DOUBLE || in2->BandFmt == IM_BANDFMT_DOUBLE ) out->BandFmt = IM_BANDFMT_DOUBLE; else out->BandFmt = IM_BANDFMT_FLOAT; } else /* Must be int+int -> int. */ out->BandFmt = iformat[in1->BandFmt][in2->BandFmt]; /* And process! */ if( im__cast_and_call( in1, in2, out, (im_wrapmany_fn) add_buffer, NULL ) ) return( -1 ); /* Success! */ return( 0 ); }