libvips/libvips/deprecated/deprecated_dispatch.c

2332 lines
53 KiB
C

/* Function dispatch tables for deprecated operations.
*/
/*
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., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301 USA
*/
/*
These files are distributed with VIPS - http://www.vips.ecs.soton.ac.uk
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif /*HAVE_CONFIG_H*/
#include <glib/gi18n-lib.h>
#include <stdio.h>
#include <vips/vips.h>
#include <vips/vips7compat.h>
#include <vips/internal.h>
/* One image in, one out.
*/
static im_arg_desc one_in_one_out[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" )
};
static im_arg_desc quadratic_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_IMAGE( "coeff" )
};
static int
quadratic_vec( im_object *argv )
{
return( im_quadratic( argv[0], argv[1], argv[2] ) );
}
static im_function quadratic_desc = {
"im_quadratic", /* Name */
"transform via quadratic",
IM_FN_PIO, /* Flags */
quadratic_vec, /* Dispatch function */
IM_NUMBER( quadratic_args ), /* Size of arg list */
quadratic_args /* Arg list */
};
/* Two images in, one out.
*/
static im_arg_desc two_in_one_out[] = {
IM_INPUT_IMAGE( "in1" ),
IM_INPUT_IMAGE( "in2" ),
IM_OUTPUT_IMAGE( "out" )
};
/* Call im_clip via arg vector.
*/
static int
clip_vec( im_object *argv )
{
return( im_clip( argv[0], argv[1] ) );
}
/* Description of im_clip.
*/
static im_function clip_desc = {
"im_clip", /* Name */
"convert to unsigned 8-bit integer",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Call im_c2ps via arg vector.
*/
static int
c2ps_vec( im_object *argv )
{
return( im_c2ps( argv[0], argv[1] ) );
}
/* Description of im_c2ps.
*/
static im_function c2ps_desc = {
"im_c2ps", /* Name */
"find power spectrum of complex image",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
c2ps_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Args for im_lhisteq.
*/
static im_arg_desc lhisteq_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INT( "width" ),
IM_INPUT_INT( "height" )
};
/* Args for im_stdif.
*/
static im_arg_desc stdif_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_DOUBLE( "a" ),
IM_INPUT_DOUBLE( "m0" ),
IM_INPUT_DOUBLE( "b" ),
IM_INPUT_DOUBLE( "s0" ),
IM_INPUT_INT( "xw" ),
IM_INPUT_INT( "yw" )
};
/* Args to im_erode.
*/
static im_arg_desc erode_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_IMASK( "mask" )
};
/* Args to im_rank.
*/
static im_arg_desc rank_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INT( "xsize" ),
IM_INPUT_INT( "ysize" ),
IM_INPUT_INT( "n" )
};
/* Args for convolver with imask.
*/
static im_arg_desc conv_imask[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_IMASK( "matrix" )
};
/* Args for convolver with dmask.
*/
static im_arg_desc conv_dmask[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_DMASK( "matrix" )
};
/* Call im_cmulnorm via arg vector.
*/
static int
cmulnorm_vec( im_object *argv )
{
return( im_cmulnorm( argv[0], argv[1], argv[2] ) );
}
/* Description of im_cmulnorm.
*/
static im_function cmulnorm_desc = {
"im_cmulnorm", /* Name */
N_( "multiply two complex images, normalising output" ),
IM_FN_PIO, /* Flags */
cmulnorm_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Four images in, one out.
*/
static im_arg_desc fav4_args[] = {
IM_INPUT_IMAGE( "in1" ),
IM_INPUT_IMAGE( "in2" ),
IM_INPUT_IMAGE( "in3" ),
IM_INPUT_IMAGE( "in4" ),
IM_OUTPUT_IMAGE( "out" )
};
/* Call im_fav4 via arg vector.
*/
static int
fav4_vec( im_object *argv )
{
IMAGE *buf[4];
buf[0] = argv[0];
buf[1] = argv[1];
buf[2] = argv[2];
buf[3] = argv[3];
return( im_fav4( &buf[0], argv[4] ) );
}
/* Description of im_fav4.
*/
static im_function fav4_desc = {
"im_fav4", /* Name */
N_( "average of 4 images" ),
0, /* Flags */
fav4_vec, /* Dispatch function */
IM_NUMBER( fav4_args ), /* Size of arg list */
fav4_args /* Arg list */
};
/* Args for im_gadd().
*/
static im_arg_desc gadd_args[] = {
IM_INPUT_DOUBLE( "a" ),
IM_INPUT_IMAGE( "in1" ),
IM_INPUT_DOUBLE( "b" ),
IM_INPUT_IMAGE( "in2" ),
IM_INPUT_DOUBLE( "c" ),
IM_OUTPUT_IMAGE( "out" )
};
/* Call im_gadd() via arg vector.
*/
static int
gadd_vec( im_object *argv )
{
double a = *((double *) argv[0]);
double b = *((double *) argv[2]);
double c = *((double *) argv[4]);
return( im_gadd( a, argv[1], b, argv[3], c, argv[5] ) );
}
/* Description of im_gadd().
*/
static im_function gadd_desc = {
"im_gadd", /* Name */
N_( "calculate a*in1 + b*in2 + c = outfile" ),
0, /* Flags */
gadd_vec, /* Dispatch function */
IM_NUMBER( gadd_args ), /* Size of arg list */
gadd_args /* Arg list */
};
/* Args for im_litecor().
*/
static im_arg_desc litecor_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_INPUT_IMAGE( "white" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INT( "clip" ),
IM_INPUT_DOUBLE( "factor" )
};
/* Call im_litecor() via arg vector.
*/
static int
litecor_vec( im_object *argv )
{
int clip = *((int *) argv[3]);
double factor = *((double *) argv[4]);
return( im_litecor( argv[0], argv[1], argv[2], clip, factor ) );
}
/* Description of im_litecor().
*/
static im_function litecor_desc = {
"im_litecor", /* Name */
N_( "calculate max(white)*factor*(in/white), if clip == 1" ),
0, /* Flags */
litecor_vec, /* Dispatch function */
IM_NUMBER( litecor_args ), /* Size of arg list */
litecor_args /* Arg list */
};
/* affine args
*/
static im_arg_desc affine_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_DOUBLE( "a" ),
IM_INPUT_DOUBLE( "b" ),
IM_INPUT_DOUBLE( "c" ),
IM_INPUT_DOUBLE( "d" ),
IM_INPUT_DOUBLE( "dx" ),
IM_INPUT_DOUBLE( "dy" ),
IM_INPUT_INT( "x" ),
IM_INPUT_INT( "y" ),
IM_INPUT_INT( "w" ),
IM_INPUT_INT( "h" )
};
/* Call im_affine via arg vector.
*/
static int
affine_vec( im_object *argv )
{
double a = *((double *) argv[2]);
double b = *((double *) argv[3]);
double c = *((double *) argv[4]);
double d = *((double *) argv[5]);
double dx = *((double *) argv[6]);
double dy = *((double *) argv[7]);
int x = *((int *) argv[8]);
int y = *((int *) argv[9]);
int w = *((int *) argv[10]);
int h = *((int *) argv[11]);
return( im_affine( argv[0], argv[1], a, b, c, d, dx, dy, x, y, w, h ) );
}
/* Description of im_affine.
*/
static im_function affine_desc = {
"im_affine", /* Name */
"affine transform",
IM_FN_TRANSFORM | IM_FN_PIO, /* Flags */
affine_vec, /* Dispatch function */
IM_NUMBER( affine_args ), /* Size of arg list */
affine_args /* Arg list */
};
/* similarity args
*/
static im_arg_desc similarity_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_DOUBLE( "a" ),
IM_INPUT_DOUBLE( "b" ),
IM_INPUT_DOUBLE( "dx" ),
IM_INPUT_DOUBLE( "dy" )
};
/* Call im_similarity via arg vector.
*/
static int
similarity_vec( im_object *argv )
{
double a = *((double *) argv[2]);
double b = *((double *) argv[3]);
double dx = *((double *) argv[4]);
double dy = *((double *) argv[5]);
return( im_similarity( argv[0], argv[1], a, b, dx, dy ) );
}
/* Description of im_similarity.
*/
static im_function similarity_desc = {
"im_similarity", /* Name */
"similarity transformation",
IM_FN_TRANSFORM | IM_FN_PIO, /* Flags */
similarity_vec, /* Dispatch function */
IM_NUMBER( similarity_args ), /* Size of arg list */
similarity_args /* Arg list */
};
/* similarity_area args
*/
static im_arg_desc similarity_area_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_DOUBLE( "a" ),
IM_INPUT_DOUBLE( "b" ),
IM_INPUT_DOUBLE( "dx" ),
IM_INPUT_DOUBLE( "dy" ),
IM_INPUT_INT( "x" ),
IM_INPUT_INT( "y" ),
IM_INPUT_INT( "w" ),
IM_INPUT_INT( "h" )
};
/* Call im_similarity_area via arg vector.
*/
static int
similarity_area_vec( im_object *argv )
{
double a = *((double *) argv[2]);
double b = *((double *) argv[3]);
double dx = *((double *) argv[4]);
double dy = *((double *) argv[5]);
int x = *((int *) argv[6]);
int y = *((int *) argv[7]);
int w = *((int *) argv[8]);
int h = *((int *) argv[9]);
return( im_similarity_area( argv[0], argv[1], a, b, dx, dy,
x, y, w, h ) );
}
/* Description of im_similarity_area.
*/
static im_function similarity_area_desc = {
"im_similarity_area", /* Name */
"output area xywh of similarity transformation",
IM_FN_TRANSFORM | IM_FN_PIO, /* Flags */
similarity_area_vec, /* Dispatch function */
IM_NUMBER( similarity_area_args ), /* Size of arg list */
similarity_area_args /* Arg list */
};
static int
icc_export_vec( im_object *argv )
{
int intent = *((int *) argv[3]);
return( im_icc_export( argv[0], argv[1],
argv[2], intent ) );
}
static im_arg_desc icc_export_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_STRING( "output_profile" ),
IM_INPUT_INT( "intent" )
};
/* Description of im_icc_export.
*/
static im_function icc_export_desc = {
"im_icc_export", /* Name */
"convert a float LAB to an 8-bit device image with an ICC profile",
/* Description */
IM_FN_PIO, /* Flags */
icc_export_vec, /* Dispatch function */
IM_NUMBER( icc_export_args ), /* Size of arg list */
icc_export_args /* Arg list */
};
/* Args for im_segment().
*/
static im_arg_desc segment_args[] = {
IM_INPUT_IMAGE( "test" ),
IM_OUTPUT_IMAGE( "mask" ),
IM_OUTPUT_INT( "segments" )
};
/* Call im_segment() via arg vector.
*/
static int
segment_vec( im_object *argv )
{
IMAGE *test = argv[0];
IMAGE *mask = argv[1];
int *serial = (int *) argv[2];
return( im_segment( test, mask, serial ) );
}
/* Description of im_segment().
*/
static im_function segment_desc = {
"im_segment", /* Name */
"number continuous regions in an image",
0, /* Flags */
segment_vec, /* Dispatch function */
IM_NUMBER( segment_args ),/* Size of arg list */
segment_args /* Arg list */
};
static int
print_vec( im_object *argv )
{
const char *message = argv[0];
char **out = (char **) &argv[1];
if( im_print( message ) )
return( -1 );
*out = im_strdup( NULL, "printed" );
return( 0 );
}
static im_arg_desc print_arg_types[] = {
IM_INPUT_STRING( "message" ),
IM_OUTPUT_STRING( "result" )
};
static im_function print_desc = {
"im_print", /* Name */
"print string to stdout", /* Description */
0, /* Flags */
print_vec, /* Dispatch function */
IM_NUMBER( print_arg_types ), /* Size of arg list */
print_arg_types /* Arg list */
};
/* Call im_clip2dcm via arg vector.
*/
static int
clip2dcm_vec( im_object *argv )
{
return( im_clip2dcm( argv[0], argv[1] ) );
}
/* Description of im_clip2dcm.
*/
static im_function clip2dcm_desc = {
"im_clip2dcm", /* Name */
"convert to double complex",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip2dcm_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Call im_clip2cm via arg vector.
*/
static int
clip2cm_vec( im_object *argv )
{
return( im_clip2cm( argv[0], argv[1] ) );
}
/* Description of im_clip2cm.
*/
static im_function clip2cm_desc = {
"im_clip2cm", /* Name */
"convert to complex",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip2cm_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Call im_clip2us via arg vector.
*/
static int
clip2us_vec( im_object *argv )
{
return( im_clip2us( argv[0], argv[1] ) );
}
/* Description of im_clip2us.
*/
static im_function clip2us_desc = {
"im_clip2us", /* Name */
"convert to unsigned 16-bit integer",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip2us_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Call im_clip2ui via arg vector.
*/
static int
clip2ui_vec( im_object *argv )
{
return( im_clip2ui( argv[0], argv[1] ) );
}
/* Description of im_clip2ui.
*/
static im_function clip2ui_desc = {
"im_clip2ui", /* Name */
"convert to unsigned 32-bit integer",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip2ui_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Call im_clip2s via arg vector.
*/
static int
clip2s_vec( im_object *argv )
{
return( im_clip2s( argv[0], argv[1] ) );
}
/* Description of im_clip2s.
*/
static im_function clip2s_desc = {
"im_clip2s", /* Name */
"convert to signed 16-bit integer",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip2s_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Call im_clip2i via arg vector.
*/
static int
clip2i_vec( im_object *argv )
{
return( im_clip2i( argv[0], argv[1] ) );
}
/* Description of im_clip2i.
*/
static im_function clip2i_desc = {
"im_clip2i", /* Name */
"convert to signed 32-bit integer",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip2i_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Call im_clip2d via arg vector.
*/
static int
clip2d_vec( im_object *argv )
{
return( im_clip2d( argv[0], argv[1] ) );
}
/* Description of im_clip2d.
*/
static im_function clip2d_desc = {
"im_clip2d", /* Name */
"convert to double-precision float",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip2d_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Call im_clip2f via arg vector.
*/
static int
clip2f_vec( im_object *argv )
{
return( im_clip2f( argv[0], argv[1] ) );
}
/* Description of im_clip2f.
*/
static im_function clip2f_desc = {
"im_clip2f", /* Name */
"convert to single-precision float",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip2f_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Call im_clip2c via arg vector.
*/
static int
clip2c_vec( im_object *argv )
{
return( im_clip2c( argv[0], argv[1] ) );
}
/* Description of im_clip2c.
*/
static im_function clip2c_desc = {
"im_clip2c", /* Name */
"convert to signed 8-bit integer",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
clip2c_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Args to im_thresh.
*/
static im_arg_desc thresh_args[] = {
IM_INPUT_IMAGE( "input" ),
IM_OUTPUT_IMAGE( "output" ),
IM_INPUT_DOUBLE( "threshold" )
};
/* Call im_thresh via arg vector.
*/
static int
thresh_vec( im_object *argv )
{
double t1 = *((double *) argv[2]);
return( im_thresh( argv[0], argv[1], t1 ) );
}
/* Description of im_thresh.
*/
static im_function thresh_desc = {
"im_thresh", /* Name */
"slice an image at a threshold",
0, /* Flags */
thresh_vec, /* Dispatch function */
IM_NUMBER( thresh_args ), /* Size of arg list */
thresh_args /* Arg list */
};
/* Args to im_slice.
*/
static im_arg_desc slice_args[] = {
IM_INPUT_IMAGE( "input" ),
IM_OUTPUT_IMAGE( "output" ),
IM_INPUT_DOUBLE( "thresh1" ),
IM_INPUT_DOUBLE( "thresh2" )
};
/* Call im_slice via arg vector.
*/
static int
slice_vec( im_object *argv )
{
double t1 = *((double *) argv[2]);
double t2 = *((double *) argv[3]);
return( im_slice( argv[0], argv[1], t1, t2 ) );
}
/* Description of im_slice.
*/
static im_function slice_desc = {
"im_slice", /* Name */
"slice an image using two thresholds",
0, /* Flags */
slice_vec, /* Dispatch function */
IM_NUMBER( slice_args ), /* Size of arg list */
slice_args /* Arg list */
};
/* Args for im_convsub.
*/
static im_arg_desc convsub_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_IMASK( "matrix" ),
IM_INPUT_INT( "xskip" ),
IM_INPUT_INT( "yskip" )
};
/* Call im_convsub via arg vector.
*/
static int
convsub_vec( im_object *argv )
{
im_mask_object *mo = argv[2];
int xskip = *((int *) argv[3]);
int yskip = *((int *) argv[4]);
return( im_convsub( argv[0], argv[1], mo->mask, xskip, yskip ) );
}
/* Description of im_convsub.
*/
static im_function convsub_desc = {
"im_convsub", /* Name */
"convolve uchar to uchar, sub-sampling by xskip, yskip",
IM_FN_TRANSFORM, /* Flags */
convsub_vec, /* Dispatch function */
IM_NUMBER( convsub_args ), /* Size of arg list */
convsub_args /* Arg list */
};
/* Args to im_bernd.
*/
static im_arg_desc bernd_args[] = {
IM_INPUT_STRING( "tiffname" ),
IM_INPUT_INT( "left" ),
IM_INPUT_INT( "top" ),
IM_INPUT_INT( "width" ),
IM_INPUT_INT( "height" )
};
/* Call im_bernd via arg vector.
*/
static int
bernd_vec( im_object *argv )
{
char *name = argv[0];
int left = *((int *) argv[1]);
int top = *((int *) argv[2]);
int width = *((int *) argv[3]);
int height = *((int *) argv[4]);
return( im_bernd( name, left, top, width, height ) );
}
/* Description of im_bernd.
*/
static im_function bernd_desc = {
"im_bernd", /* Name */
"extract from pyramid as jpeg", /* Description */
0, /* Flags */
bernd_vec, /* Dispatch function */
IM_NUMBER( bernd_args ), /* Size of arg list */
bernd_args /* Arg list */
};
/* Args for im_line.
*/
static im_arg_desc line_args[] = {
IM_RW_IMAGE( "im" ),
IM_INPUT_INT( "x1" ),
IM_INPUT_INT( "y1" ),
IM_INPUT_INT( "x2" ),
IM_INPUT_INT( "y2" ),
IM_INPUT_INT( "pelval" )
};
/* Call im_line via arg vector.
*/
static int
line_vec( im_object *argv )
{
int x1 = *((int *) argv[1]);
int y1 = *((int *) argv[2]);
int x2 = *((int *) argv[3]);
int y2 = *((int *) argv[4]);
int pel = *((int *) argv[5]);
return( im_line( argv[0], x1, y1, x2, y2, pel ) );
}
/* Description of im_line.
*/
static im_function line_desc = {
"im_line", /* Name */
"draw line between points (x1,y1) and (x2,y2)",
0, /* Flags */
line_vec, /* Dispatch function */
IM_NUMBER( line_args ), /* Size of arg list */
line_args /* Arg list */
};
/* Args for im_resize_linear.
*/
static im_arg_desc resize_linear_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INT( "X" ),
IM_INPUT_INT( "Y" )
};
/* Call im_resize_linear via arg vector.
*/
static int
resize_linear_vec( im_object *argv )
{
int X = *((int *) argv[2]);
int Y = *((int *) argv[3]);
return( im_resize_linear( argv[0], argv[1], X, Y ) );
}
/* Description of im_resize_linear.
*/
static im_function resize_linear_desc = {
"im_resize_linear", /* Name */
"resize to X by Y pixels with linear interpolation",
0, /* Flags */
resize_linear_vec, /* Dispatch function */
IM_NUMBER( resize_linear_args ), /* Size of arg list */
resize_linear_args /* Arg list */
};
/* Args for im_insertplaceset.
*/
static im_arg_desc insertplaceset_args[] = {
IM_INPUT_IMAGE( "main" ),
IM_INPUT_IMAGE( "sub" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INTVEC( "x" ),
IM_INPUT_INTVEC( "y" )
};
/* Call im_insertplaceplaceset via arg vector.
*/
static int
insertplaceset_vec( im_object *argv )
{
im_intvec_object *xv = (im_intvec_object *) argv[3];
im_intvec_object *yv = (im_intvec_object *) argv[4];
if( xv->n != yv->n ) {
im_error( "im_insertplaceset", "%s",
_( "vectors not same length" ) );
return( -1 );
}
if( im_insertset( argv[0], argv[1], argv[2], xv->n, xv->vec, yv->vec ) )
return( -1 );
return( 0 );
}
/* Description of im_insertplaceset.
*/
static im_function insertplaceset_desc = {
"im_insertplaceset", /* Name */
"insert sub into main at every position in x, y",
0, /* Flags */
insertplaceset_vec, /* Dispatch function */
IM_NUMBER( insertplaceset_args ), /* Size of arg list */
insertplaceset_args /* Arg list */
};
/* Call im_spcor_raw via arg vector.
*/
static int
spcor_raw_vec( im_object *argv )
{
return( im_spcor_raw( argv[0], argv[1], argv[2] ) );
}
/* Description of im_spcor_raw.
*/
static im_function spcor_raw_desc = {
"im_spcor_raw", /* Name */
"normalised correlation of in2 within in1, no black padding",
IM_FN_PIO | IM_FN_TRANSFORM, /* Flags */
spcor_raw_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_gradcor_raw via arg vector.
*/
static int
gradcor_raw_vec( im_object *argv )
{
return( im_gradcor_raw( argv[0], argv[1], argv[2] ) );
}
/* Description of im_gradcor_raw.
*/
static im_function gradcor_raw_desc = {
"im_gradcor_raw", /* Name */
"non-normalised correlation of gradient of in2 within in1, no padding",
IM_FN_PIO | IM_FN_TRANSFORM, /* Flags */
gradcor_raw_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_fastcor_raw via arg vector.
*/
static int
fastcor_raw_vec( im_object *argv )
{
return( im_fastcor_raw( argv[0], argv[1], argv[2] ) );
}
/* Description of im_fastcor_raw.
*/
static im_function fastcor_raw_desc = {
"im_fastcor_raw", /* Name */
"fast correlate in2 within in1, no border",
IM_FN_TRANSFORM | IM_FN_PIO, /* Flags */
fastcor_raw_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_convsepf_raw via arg vector.
*/
static int
convsepf_raw_vec( im_object *argv )
{
im_mask_object *mo = argv[2];
return( im_convsepf_raw( argv[0], argv[1], mo->mask ) );
}
/* Description of im_convsepf_raw.
*/
static im_function convsepf_raw_desc = {
"im_convsepf_raw", /* Name */
"seperable convolution, with DOUBLEMASK, no border",
IM_FN_PIO | IM_FN_TRANSFORM, /* Flags */
convsepf_raw_vec, /* Dispatch function */
IM_NUMBER( conv_dmask ), /* Size of arg list */
conv_dmask /* Arg list */
};
/* Call im_convsep_raw via arg vector.
*/
static int
convsep_raw_vec( im_object *argv )
{
im_mask_object *mo = argv[2];
return( im_convsep_raw( argv[0], argv[1], mo->mask ) );
}
/* Description of im_convsep_raw.
*/
static im_function convsep_raw_desc = {
"im_convsep_raw", /* Name */
"seperable convolution, no border",
IM_FN_TRANSFORM | IM_FN_PIO, /* Flags */
convsep_raw_vec, /* Dispatch function */
IM_NUMBER( conv_imask ), /* Size of arg list */
conv_imask /* Arg list */
};
/* Call im_convf_raw via arg vector.
*/
static int
convf_raw_vec( im_object *argv )
{
im_mask_object *mo = argv[2];
return( im_convf_raw( argv[0], argv[1], mo->mask ) );
}
/* Description of im_convf_raw.
*/
static im_function convf_raw_desc = {
"im_convf_raw", /* Name */
"convolve, with DOUBLEMASK, no border",
IM_FN_TRANSFORM | IM_FN_PIO, /* Flags */
convf_raw_vec, /* Dispatch function */
IM_NUMBER( conv_dmask ), /* Size of arg list */
conv_dmask /* Arg list */
};
/* Call im_conv_raw via arg vector.
*/
static int
conv_raw_vec( im_object *argv )
{
im_mask_object *mo = argv[2];
return( im_conv_raw( argv[0], argv[1], mo->mask ) );
}
/* Description of im_conv_raw.
*/
static im_function conv_raw_desc = {
"im_conv_raw", /* Name */
"convolve, no border",
IM_FN_TRANSFORM | IM_FN_PIO, /* Flags */
conv_raw_vec, /* Dispatch function */
IM_NUMBER( conv_imask ), /* Size of arg list */
conv_imask /* Arg list */
};
/* Args to im_contrast_surface_raw.
*/
static im_arg_desc contrast_surface_raw_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INT( "half_win_size" ),
IM_INPUT_INT( "spacing" )
};
/* Call im_contrast_surface_raw via arg vector.
*/
static int
contrast_surface_raw_vec( im_object *argv )
{
int half_win_size = *((int *) argv[2]);
int spacing = *((int *) argv[3]);
return( im_contrast_surface_raw( argv[0], argv[1],
half_win_size, spacing ) );
}
/* Description of im_contrast_surface_raw.
*/
static im_function contrast_surface_raw_desc = {
"im_contrast_surface_raw", /* Name */
"find high-contrast points in an image",
IM_FN_PIO, /* Flags */
contrast_surface_raw_vec, /* Dispatch function */
IM_NUMBER( contrast_surface_raw_args ),/* Size of arg list */
contrast_surface_raw_args /* Arg list */
};
/* Call im_stdif_raw via arg vector.
*/
static int
stdif_raw_vec( im_object *argv )
{
double a = *((double *) argv[2]);
double m0 = *((double *) argv[3]);
double b = *((double *) argv[4]);
double s0 = *((double *) argv[5]);
int xw = *((int *) argv[6]);
int yw = *((int *) argv[7]);
return( im_stdif_raw( argv[0], argv[1], a, m0, b, s0, xw, yw ) );
}
/* Description of im_stdif.
*/
static im_function stdif_raw_desc = {
"im_stdif_raw", /* Name */
"statistical differencing, no border",
IM_FN_PIO, /* Flags */
stdif_raw_vec, /* Dispatch function */
IM_NUMBER( stdif_args ), /* Size of arg list */
stdif_args /* Arg list */
};
/* Call im_lhisteq_raw via arg vector.
*/
static int
lhisteq_raw_vec( im_object *argv )
{
int xw = *((int *) argv[2]);
int yw = *((int *) argv[3]);
return( im_lhisteq_raw( argv[0], argv[1], xw, yw ) );
}
/* Description of im_lhisteq_raw.
*/
static im_function lhisteq_raw_desc = {
"im_lhisteq_raw", /* Name */
"local histogram equalisation, no border",
IM_FN_PIO, /* Flags */
lhisteq_raw_vec, /* Dispatch function */
IM_NUMBER( lhisteq_args ), /* Size of arg list */
lhisteq_args /* Arg list */
};
/* Call im_rank_raw via arg vector.
*/
static int
rank_raw_vec( im_object *argv )
{
int xsize = *((int *) argv[2]);
int ysize = *((int *) argv[3]);
int n = *((int *) argv[4]);
return( im_rank_raw( argv[0], argv[1], xsize, ysize, n ) );
}
/* Description of im_rank_raw.
*/
static im_function rank_raw_desc = {
"im_rank_raw", /* Name */
"rank filter nth element of xsize/ysize window, no border",
IM_FN_PIO, /* Flags */
rank_raw_vec, /* Dispatch function */
IM_NUMBER( rank_args ), /* Size of arg list */
rank_args /* Arg list */
};
/* Call im_erode_raw via arg vector.
*/
static int
erode_raw_vec( im_object *argv )
{
im_mask_object *mo = argv[2];
return( im_erode_raw( argv[0], argv[1], mo->mask ) );
}
/* Description of im_erode_raw.
*/
static im_function erode_raw_desc = {
"im_erode_raw", /* Name */
"erode image with mask",
IM_FN_PIO | IM_FN_TRANSFORM, /* Flags */
erode_raw_vec, /* Dispatch function */
IM_NUMBER( erode_args ), /* Size of arg list */
erode_args /* Arg list */
};
/* Call im_dilate_raw via arg vector.
*/
static int
dilate_raw_vec( im_object *argv )
{
im_mask_object *mo = argv[2];
return( im_dilate_raw( argv[0], argv[1], mo->mask ) );
}
/* Description of im_dilate_raw.
*/
static im_function dilate_raw_desc = {
"im_dilate_raw", /* Name */
"dilate image with mask",
IM_FN_PIO | IM_FN_TRANSFORM, /* Flags */
dilate_raw_vec, /* Dispatch function */
IM_NUMBER( erode_args ), /* Size of arg list */
erode_args /* Arg list */
};
/* Call im_convsepf via arg vector.
*/
static int
convsepf_vec( im_object *argv )
{
im_mask_object *mo = argv[2];
return( im_convsepf( argv[0], argv[1], mo->mask ) );
}
/* Description of im_convsepf.
*/
static im_function convsepf_desc = {
"im_convsepf", /* Name */
"seperable convolution, with DOUBLEMASK",
IM_FN_PIO | IM_FN_TRANSFORM, /* Flags */
convsepf_vec, /* Dispatch function */
IM_NUMBER( conv_dmask ), /* Size of arg list */
conv_dmask /* Arg list */
};
/* Call im_convf via arg vector.
*/
static int
convf_vec( im_object *argv )
{
im_mask_object *mo = argv[2];
return( im_convf( argv[0], argv[1], mo->mask ) );
}
/* Description of im_convf.
*/
static im_function convf_desc = {
"im_convf", /* Name */
"convolve, with DOUBLEMASK",
IM_FN_TRANSFORM | IM_FN_PIO, /* Flags */
convf_vec, /* Dispatch function */
IM_NUMBER( conv_dmask ), /* Size of arg list */
conv_dmask /* Arg list */
};
/* Args for im_circle.
*/
static im_arg_desc circle_args[] = {
IM_RW_IMAGE( "image" ),
IM_INPUT_INT( "cx" ),
IM_INPUT_INT( "cy" ),
IM_INPUT_INT( "radius" ),
IM_INPUT_INT( "intensity" )
};
/* Call im_circle via arg vector.
*/
static int
circle_vec( im_object *argv )
{
int cx = *((int *) argv[1]);
int cy = *((int *) argv[2]);
int radius = *((int *) argv[3]);
int intensity = *((int *) argv[4]);
return( im_circle( argv[0], cx, cy, radius, intensity ) );
}
/* Description of im_circle.
*/
static im_function circle_desc = {
"im_circle", /* Name */
"plot circle on image",
0, /* Flags */
circle_vec, /* Dispatch function */
IM_NUMBER( circle_args ), /* Size of arg list */
circle_args /* Arg list */
};
/* Args for im_flood_blob_copy().
*/
static im_arg_desc flood_blob_copy_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INT( "start_x" ),
IM_INPUT_INT( "start_y" ),
IM_INPUT_DOUBLEVEC( "ink" )
};
/* Call im_flood_blob_copy() via arg vector.
*/
static int
flood_blob_copy_vec( im_object *argv )
{
IMAGE *in = argv[0];
IMAGE *out = argv[1];
int start_x = *((int *) argv[2]);
int start_y = *((int *) argv[3]);
im_doublevec_object *dv = (im_doublevec_object *) argv[4];
PEL *ink;
if( !(ink = im__vector_to_ink( "im_flood_blob_copy",
in, dv->n, dv->vec )) )
return( -1 );
return( im_flood_blob_copy( in, out, start_x, start_y, ink ) );
}
/* Description of im_flood_blob_copy().
*/
static im_function flood_blob_copy_desc = {
"im_flood_blob_copy", /* Name */
"flood with ink from start_x, start_y while pixel == start pixel",
0, /* Flags */
flood_blob_copy_vec, /* Dispatch function */
IM_NUMBER( flood_blob_copy_args ),/* Size of arg list */
flood_blob_copy_args /* Arg list */
};
/* Args for im_flood_copy().
*/
static im_arg_desc flood_copy_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INT( "start_x" ),
IM_INPUT_INT( "start_y" ),
IM_INPUT_DOUBLEVEC( "ink" )
};
/* Call im_flood_copy() via arg vector.
*/
static int
flood_copy_vec( im_object *argv )
{
IMAGE *in = argv[0];
IMAGE *out = argv[1];
int start_x = *((int *) argv[2]);
int start_y = *((int *) argv[3]);
im_doublevec_object *dv = (im_doublevec_object *) argv[4];
PEL *ink;
if( !(ink = im__vector_to_ink( "im_flood_copy",
in, dv->n, dv->vec )) )
return( -1 );
return( im_flood_copy( in, out, start_x, start_y, ink ) );
}
/* Description of im_flood_copy().
*/
static im_function flood_copy_desc = {
"im_flood_copy", /* Name */
"flood with ink from start_x, start_y while pixel == start pixel",
0, /* Flags */
flood_copy_vec, /* Dispatch function */
IM_NUMBER( flood_copy_args ),/* Size of arg list */
flood_copy_args /* Arg list */
};
/* Args for im_flood_other_copy().
*/
static im_arg_desc flood_other_copy_args[] = {
IM_INPUT_IMAGE( "test" ),
IM_INPUT_IMAGE( "mark" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INT( "start_x" ),
IM_INPUT_INT( "start_y" ),
IM_INPUT_INT( "serial" )
};
/* Call im_flood_other_copy() via arg vector.
*/
static int
flood_other_copy_vec( im_object *argv )
{
IMAGE *test = argv[0];
IMAGE *mark = argv[1];
IMAGE *out = argv[2];
int start_x = *((int *) argv[3]);
int start_y = *((int *) argv[4]);
int serial = *((int *) argv[5]);
return( im_flood_other_copy( test, mark, out,
start_x, start_y, serial ) );
}
/* Description of im_flood_other_copy().
*/
static im_function flood_other_copy_desc = {
"im_flood_other_copy", /* Name */
"flood mark with serial from start_x, start_y while pixel == start pixel",
0, /* Flags */
flood_other_copy_vec, /* Dispatch function */
IM_NUMBER( flood_other_copy_args ),/* Size of arg list */
flood_other_copy_args /* Arg list */
};
/* Args for im_insertplace.
*/
static im_arg_desc insertplace_args[] = {
IM_RW_IMAGE( "main" ),
IM_INPUT_IMAGE( "sub" ),
IM_INPUT_INT( "x" ),
IM_INPUT_INT( "y" )
};
/* Call im_insertplace via arg vector.
*/
static int
insertplace_vec( im_object *argv )
{
int x = *((int *) argv[2]);
int y = *((int *) argv[3]);
return( im_insertplace( argv[0], argv[1], x, y ) );
}
/* Description of im_insertplace.
*/
static im_function insertplace_desc = {
"im_insertplace", /* Name */
"draw image sub inside image main at position (x,y)",
0, /* Flags */
insertplace_vec, /* Dispatch function */
IM_NUMBER( insertplace_args ), /* Size of arg list */
insertplace_args /* Arg list */
};
/* Used to be called im_remainderconst_vec, stupidly.
*/
static int
remainderconst_vec_vec( im_object *argv )
{
im_doublevec_object *dv = (im_doublevec_object *) argv[2];
return( im_remainder_vec( argv[0], argv[1], dv->n, dv->vec ) );
}
static im_arg_desc remainderconst_vec_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_DOUBLEVEC( "x" )
};
static im_function remainderconst_vec_desc = {
"im_remainderconst_vec", /* Name */
N_( "remainder after integer division by a vector of constants" ),
/* Description */
IM_FN_PIO | IM_FN_PTOP, /* Flags */
remainderconst_vec_vec, /* Dispatch function */
IM_NUMBER( remainderconst_vec_args ),/* Size of arg list */
remainderconst_vec_args /* Arg list */
};
/* Args to im_mask2vips.
*/
static im_arg_desc mask2vips_args[] = {
IM_INPUT_DMASK( "input" ),
IM_OUTPUT_IMAGE( "output" ),
};
/* Call im_mask2vips via arg vector.
*/
static int
mask2vips_vec( im_object *argv )
{
im_mask_object *mo = argv[0];
return( im_mask2vips( mo->mask, argv[1] ) );
}
/* Description of im_mask2vips.
*/
static im_function mask2vips_desc = {
"im_mask2vips", /* Name */
"convert DOUBLEMASK to VIPS image",
0, /* Flags */
mask2vips_vec, /* Dispatch function */
IM_NUMBER( mask2vips_args ), /* Size of arg list */
mask2vips_args /* Arg list */
};
/* Args to im_vips2mask.
*/
static im_arg_desc vips2mask_args[] = {
IM_INPUT_IMAGE( "input" ),
IM_OUTPUT_DMASK( "output" ),
};
/* Call im_vips2mask via arg vector.
*/
static int
vips2mask_vec( im_object *argv )
{
im_mask_object *mo = argv[1];
if( !(mo->mask = im_vips2mask( argv[0], mo->name )) )
return( -1 );
return( 0 );
}
/* Description of im_vips2mask.
*/
static im_function vips2mask_desc = {
"im_vips2mask", /* Name */
"convert VIPS image to DOUBLEMASK",
0, /* Flags */
vips2mask_vec, /* Dispatch function */
IM_NUMBER( vips2mask_args ), /* Size of arg list */
vips2mask_args /* Arg list */
};
/* One image plus one constant in, one image out.
*/
static im_arg_desc int_in_one_out[] = {
IM_INPUT_IMAGE( "in1" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_INT( "c" )
};
/* One image plus one constant in, one image out.
*/
static im_arg_desc double_in_one_out[] = {
IM_INPUT_IMAGE( "in1" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_DOUBLE( "c" )
};
/* One image plus doublevec in, one image out.
*/
static im_arg_desc vec_in_one_out[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_IMAGE( "out" ),
IM_INPUT_DOUBLEVEC( "vec" )
};
/* Call im_andimage via arg vector.
*/
static int
andimage_vec( im_object *argv )
{
return( im_andimage( argv[0], argv[1], argv[2] ) );
}
/* Description of im_andimage.
*/
static im_function andimage_desc = {
"im_andimage", /* Name */
"bitwise and of two images", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
andimage_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_andimageconst via arg vector.
*/
static int
andimageconst_vec( im_object *argv )
{
int c = *((int *) argv[2]);
return( im_andimageconst( argv[0], argv[1], c ) );
}
/* Description of im_andconst.
*/
static im_function andimageconst_desc = {
"im_andimageconst", /* Name */
"bitwise and of an image with a constant",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
andimageconst_vec, /* Dispatch function */
IM_NUMBER( int_in_one_out ), /* Size of arg list */
int_in_one_out /* Arg list */
};
/* Call im_andimage_vec via arg vector.
*/
static int
andimage_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_andimage_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_andimageconst.
*/
static im_function andimage_vec_desc = {
"im_andimage_vec", /* Name */
"bitwise and of an image with a vector constant",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
andimage_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_orimage via arg vector.
*/
static int
orimage_vec( im_object *argv )
{
return( im_orimage( argv[0], argv[1], argv[2] ) );
}
/* Description of im_orimage.
*/
static im_function orimage_desc = {
"im_orimage", /* Name */
"bitwise or of two images", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
orimage_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_orimageconst via arg vector.
*/
static int
orimageconst_vec( im_object *argv )
{
int c = *((int *) argv[2]);
return( im_orimageconst( argv[0], argv[1], c ) );
}
/* Description of im_orimageconst.
*/
static im_function orimageconst_desc = {
"im_orimageconst", /* Name */
"bitwise or of an image with a constant",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
orimageconst_vec, /* Dispatch function */
IM_NUMBER( int_in_one_out ), /* Size of arg list */
int_in_one_out /* Arg list */
};
/* Call im_orimage_vec via arg vector.
*/
static int
orimage_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_orimage_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_orimage_vec.
*/
static im_function orimage_vec_desc = {
"im_orimage_vec", /* Name */
"bitwise or of an image with a vector constant",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
orimage_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_eorimage via arg vector.
*/
static int
eorimage_vec( im_object *argv )
{
return( im_eorimage( argv[0], argv[1], argv[2] ) );
}
/* Description of im_eorimage.
*/
static im_function eorimage_desc = {
"im_eorimage", /* Name */
"bitwise eor of two images", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
eorimage_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_eorimageconst via arg vector.
*/
static int
eorimageconst_vec( im_object *argv )
{
int c = *((int *) argv[2]);
return( im_eorimageconst( argv[0], argv[1], c ) );
}
/* Description of im_eorimageconst.
*/
static im_function eorimageconst_desc = {
"im_eorimageconst", /* Name */
"bitwise eor of an image with a constant",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
eorimageconst_vec, /* Dispatch function */
IM_NUMBER( int_in_one_out ), /* Size of arg list */
int_in_one_out /* Arg list */
};
/* Call im_eorimage_vec via arg vector.
*/
static int
eorimage_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_eorimage_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_eorimage_vec.
*/
static im_function eorimage_vec_desc = {
"im_eorimage_vec", /* Name */
"bitwise eor of an image with a vector constant",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
eorimage_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_shiftleft via arg vector.
*/
static int
shiftleft_vec( im_object *argv )
{
int n = *((int *) argv[2]);
return( im_shiftleft( argv[0], argv[1], n ) );
}
/* Description of im_shiftleft.
*/
static im_function shiftleft_desc = {
"im_shiftleft", /* Name */
"shift image n bits to left",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
shiftleft_vec, /* Dispatch function */
IM_NUMBER( int_in_one_out ), /* Size of arg list */
int_in_one_out /* Arg list */
};
/* Call im_shiftleft_vec via arg vector.
*/
static int
shiftleft_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_shiftleft_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_shiftleft_vec.
*/
static im_function shiftleft_vec_desc = {
"im_shiftleft_vec", /* Name */
"shift image array bits to left",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
shiftleft_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_shiftright via arg vector.
*/
static int
shiftright_vec( im_object *argv )
{
int n = *((int *) argv[2]);
return( im_shiftright( argv[0], argv[1], n ) );
}
/* Description of im_shiftright.
*/
static im_function shiftright_desc = {
"im_shiftright", /* Name */
"shift integer image n bits to right",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
shiftright_vec, /* Dispatch function */
IM_NUMBER( int_in_one_out ), /* Size of arg list */
int_in_one_out /* Arg list */
};
/* Call im_shiftright_vec via arg vector.
*/
static int
shiftright_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_shiftright_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_shiftright_vec.
*/
static im_function shiftright_vec_desc = {
"im_shiftright_vec", /* Name */
"shift image array bits to right",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
shiftright_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_equal via arg vector.
*/
static int
equal_vec( im_object *argv )
{
return( im_equal( argv[0], argv[1], argv[2] ) );
}
/* Description of im_equal.
*/
static im_function equal_desc = {
"im_equal", /* Name */
"two images equal in value", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
equal_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_equalconst via arg vector.
*/
static int
equalconst_vec( im_object *argv )
{
double c = *((double *) argv[2]);
return( im_equalconst( argv[0], argv[1], c ) );
}
/* Description of im_equalconst.
*/
static im_function equalconst_desc = {
"im_equalconst", /* Name */
"image equals const", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
equalconst_vec, /* Dispatch function */
IM_NUMBER( double_in_one_out ), /* Size of arg list */
double_in_one_out /* Arg list */
};
/* Call im_equal_vec via arg vector.
*/
static int
equal_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_equal_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_equal_vec.
*/
static im_function equal_vec_desc = {
"im_equal_vec", /* Name */
"image equals doublevec", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
equal_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_notequal via arg vector.
*/
static int
notequal_vec( im_object *argv )
{
return( im_notequal( argv[0], argv[1], argv[2] ) );
}
/* Description of im_notequal.
*/
static im_function notequal_desc = {
"im_notequal", /* Name */
"two images not equal in value",/* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
notequal_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_notequalconst via arg vector.
*/
static int
notequalconst_vec( im_object *argv )
{
double c = *((double *) argv[2]);
return( im_notequalconst( argv[0], argv[1], c ) );
}
/* Description of im_notequalconst.
*/
static im_function notequalconst_desc = {
"im_notequalconst", /* Name */
"image does not equal const", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
notequalconst_vec, /* Dispatch function */
IM_NUMBER( double_in_one_out ), /* Size of arg list */
double_in_one_out /* Arg list */
};
/* Call im_notequal_vec via arg vector.
*/
static int
notequal_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_notequal_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_notequal_vec.
*/
static im_function notequal_vec_desc = {
"im_notequal_vec", /* Name */
"image does not equal doublevec", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
notequal_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_less via arg vector.
*/
static int
less_vec( im_object *argv )
{
return( im_less( argv[0], argv[1], argv[2] ) );
}
/* Description of im_less.
*/
static im_function less_desc = {
"im_less", /* Name */
"in1 less than in2 in value", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
less_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_lessconst via arg vector.
*/
static int
lessconst_vec( im_object *argv )
{
double c = *((double *) argv[2]);
return( im_lessconst( argv[0], argv[1], c ) );
}
/* Description of im_lessconst.
*/
static im_function lessconst_desc = {
"im_lessconst", /* Name */
"in less than const", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
lessconst_vec, /* Dispatch function */
IM_NUMBER( double_in_one_out ), /* Size of arg list */
double_in_one_out /* Arg list */
};
/* Call im_less_vec via arg vector.
*/
static int
less_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_less_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_less_vec.
*/
static im_function less_vec_desc = {
"im_less_vec", /* Name */
"in less than doublevec", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
less_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_more via arg vector.
*/
static int
more_vec( im_object *argv )
{
return( im_more( argv[0], argv[1], argv[2] ) );
}
/* Description of im_more.
*/
static im_function more_desc = {
"im_more", /* Name */
"in1 more than in2 in value", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
more_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_moreconst via arg vector.
*/
static int
moreconst_vec( im_object *argv )
{
double c = *((double *) argv[2]);
return( im_moreconst( argv[0], argv[1], c ) );
}
/* Description of im_moreconst.
*/
static im_function moreconst_desc = {
"im_moreconst", /* Name */
"in more than const", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
moreconst_vec, /* Dispatch function */
IM_NUMBER( double_in_one_out ), /* Size of arg list */
double_in_one_out /* Arg list */
};
/* Call im_more_vec via arg vector.
*/
static int
more_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_more_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_more_vec.
*/
static im_function more_vec_desc = {
"im_more_vec", /* Name */
"in more than doublevec", /* Description */
IM_FN_PTOP | IM_FN_PIO, /* Flags */
more_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_moreeq via arg vector.
*/
static int
moreeq_vec( im_object *argv )
{
return( im_moreeq( argv[0], argv[1], argv[2] ) );
}
/* Description of im_moreeq.
*/
static im_function moreeq_desc = {
"im_moreeq", /* Name */
"in1 more than or equal to in2 in value",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
moreeq_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_moreeqconst via arg vector.
*/
static int
moreeqconst_vec( im_object *argv )
{
double c = *((double *) argv[2]);
return( im_moreeqconst( argv[0], argv[1], c ) );
}
/* Description of im_moreeqconst.
*/
static im_function moreeqconst_desc = {
"im_moreeqconst", /* Name */
"in more than or equal to const",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
moreeqconst_vec, /* Dispatch function */
IM_NUMBER( double_in_one_out ), /* Size of arg list */
double_in_one_out /* Arg list */
};
/* Call im_moreeq_vec via arg vector.
*/
static int
moreeq_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_moreeq_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_moreeq_vec.
*/
static im_function moreeq_vec_desc = {
"im_moreeq_vec", /* Name */
"in more than or equal to doublevec",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
moreeq_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* Call im_lesseq via arg vector.
*/
static int
lesseq_vec( im_object *argv )
{
return( im_lesseq( argv[0], argv[1], argv[2] ) );
}
/* Description of im_lesseq.
*/
static im_function lesseq_desc = {
"im_lesseq", /* Name */
"in1 less than or equal to in2 in value",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
lesseq_vec, /* Dispatch function */
IM_NUMBER( two_in_one_out ), /* Size of arg list */
two_in_one_out /* Arg list */
};
/* Call im_lesseqconst via arg vector.
*/
static int
lesseqconst_vec( im_object *argv )
{
double c = *((double *) argv[2]);
return( im_lesseqconst( argv[0], argv[1], c ) );
}
/* Description of im_lesseqconst.
*/
static im_function lesseqconst_desc = {
"im_lesseqconst", /* Name */
"in less than or equal to const",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
lesseqconst_vec, /* Dispatch function */
IM_NUMBER( double_in_one_out ), /* Size of arg list */
double_in_one_out /* Arg list */
};
/* Call im_lesseq_vec via arg vector.
*/
static int
lesseq_vec_vec( im_object *argv )
{
im_doublevec_object *rv = (im_doublevec_object *) argv[2];
return( im_lesseq_vec( argv[0], argv[1], rv->n, rv->vec ) );
}
/* Description of im_lesseq_vec.
*/
static im_function lesseq_vec_desc = {
"im_lesseq_vec", /* Name */
"in less than or equal to doublevec",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
lesseq_vec_vec, /* Dispatch function */
IM_NUMBER( vec_in_one_out ), /* Size of arg list */
vec_in_one_out /* Arg list */
};
/* If-then-else args.
*/
static im_arg_desc ifthenelse_args[] = {
IM_INPUT_IMAGE( "cond" ),
IM_INPUT_IMAGE( "in1" ),
IM_INPUT_IMAGE( "in2" ),
IM_OUTPUT_IMAGE( "out" )
};
/* Call im_blend via arg vector.
*/
static int
blend_vec( im_object *argv )
{
return( im_blend( argv[0], argv[1], argv[2], argv[3] ) );
}
/* Description of im_blend.
*/
static im_function blend_desc = {
"im_blend", /* Name */
"use cond image to blend between images in1 and in2",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
blend_vec, /* Dispatch function */
IM_NUMBER( ifthenelse_args ), /* Size of arg list */
ifthenelse_args /* Arg list */
};
/* Call im_ifthenelse via arg vector.
*/
static int
ifthenelse_vec( im_object *argv )
{
return( im_ifthenelse( argv[0], argv[1], argv[2], argv[3] ) );
}
/* Description of im_ifthenelse.
*/
static im_function ifthenelse_desc = {
"im_ifthenelse", /* Name */
"use cond image to choose pels from image in1 or in2",
IM_FN_PTOP | IM_FN_PIO, /* Flags */
ifthenelse_vec, /* Dispatch function */
IM_NUMBER( ifthenelse_args ), /* Size of arg list */
ifthenelse_args /* Arg list */
};
/* Call im_argb2rgba() via arg vector.
*/
static int
argb2rgba_vec( im_object *argv )
{
return( im_argb2rgba( argv[0], argv[1] ) );
}
/* Description of im_argb2rgba.
*/
static im_function argb2rgba_desc = {
"im_argb2rgba", /* Name */
"convert pre-multipled argb to png-style rgba", /* Description */
IM_FN_PIO, /* Flags */
argb2rgba_vec, /* Dispatch function */
IM_NUMBER( one_in_one_out ), /* Size of arg list */
one_in_one_out /* Arg list */
};
/* Package up all these functions.
*/
static im_function *deprecated_list[] = {
&argb2rgba_desc,
&flood_copy_desc,
&flood_blob_copy_desc,
&flood_other_copy_desc,
&clip_desc,
&c2ps_desc,
&resize_linear_desc,
&cmulnorm_desc,
&fav4_desc,
&gadd_desc,
&icc_export_desc,
&litecor_desc,
&affine_desc,
&clip2c_desc,
&clip2cm_desc,
&clip2d_desc,
&clip2dcm_desc,
&clip2f_desc,
&clip2i_desc,
&convsub_desc,
&convf_desc,
&convsepf_desc,
&clip2s_desc,
&clip2ui_desc,
&insertplaceset_desc,
&clip2us_desc,
&print_desc,
&slice_desc,
&bernd_desc,
&segment_desc,
&line_desc,
&thresh_desc,
&convf_raw_desc,
&conv_raw_desc,
&contrast_surface_raw_desc,
&convsepf_raw_desc,
&convsep_raw_desc,
&fastcor_raw_desc,
&gradcor_raw_desc,
&spcor_raw_desc,
&lhisteq_raw_desc,
&stdif_raw_desc,
&rank_raw_desc,
&dilate_raw_desc,
&erode_raw_desc,
&similarity_area_desc,
&similarity_desc,
&remainderconst_vec_desc,
&mask2vips_desc,
&vips2mask_desc,
&insertplace_desc,
&circle_desc,
&andimage_desc,
&andimageconst_desc,
&andimage_vec_desc,
&orimage_desc,
&orimageconst_desc,
&orimage_vec_desc,
&eorimage_desc,
&eorimageconst_desc,
&eorimage_vec_desc,
&shiftleft_vec_desc,
&shiftleft_desc,
&shiftright_vec_desc,
&shiftright_desc,
&blend_desc,
&equal_desc,
&equal_vec_desc,
&equalconst_desc,
&ifthenelse_desc,
&less_desc,
&less_vec_desc,
&lessconst_desc,
&lesseq_desc,
&lesseq_vec_desc,
&lesseqconst_desc,
&more_desc,
&more_vec_desc,
&moreconst_desc,
&moreeq_desc,
&moreeq_vec_desc,
&moreeqconst_desc,
&notequal_desc,
&notequal_vec_desc,
&notequalconst_desc,
&quadratic_desc
};
/* Package of functions.
*/
im_package im__deprecated = {
"deprecated",
IM_NUMBER( deprecated_list ),
deprecated_list
};