mosaic_args /* Arg list */
};
static im_arg_desc find_overlap_args[] = {
IM_INPUT_IMAGE( "ref" ),
IM_INPUT_IMAGE( "sec" ),
IM_INPUT_INT( "bandno" ),
IM_INPUT_INT( "xr" ),
IM_INPUT_INT( "yr" ),
IM_INPUT_INT( "xs" ),
IM_INPUT_INT( "ys" ),
IM_INPUT_INT( "halfcorrelation" ),
IM_INPUT_INT( "halfarea" ),
IM_OUTPUT_INT( "dx0" ),
IM_OUTPUT_INT( "dy0" ),
IM_OUTPUT_DOUBLE( "scale1" ),
IM_OUTPUT_DOUBLE( "angle1" ),
IM_OUTPUT_DOUBLE( "dx1" ),
IM_OUTPUT_DOUBLE( "dy1" )
};
/* Call im__find_lroverlap via arg vector.
*/
static int
find_lroverlap_vec( im_object *argv )
{
int bandno = *((int *) argv[2]);
int xr = *((int *) argv[3]);
int yr = *((int *) argv[4]);
int xs = *((int *) argv[5]);
int ys = *((int *) argv[6]);
/* Description of im_erode.
*/
static im_function erode_desc = {
"im_erode", /* Name */
"erode image with mask, adding a black border",
IM_FN_PIO | IM_FN_TRANSFORM, /* Flags */
erode_vec, /* Dispatch function */
IM_NUMBER( erode_args ), /* Size of arg list */
erode_args /* Arg list */
};
/* Args to im_cntlines.
*/
static im_arg_desc cntlines_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_DOUBLE( "nlines" ),
IM_INPUT_INT( "direction" )
};
/* Call im_cntlines via arg vector.
*/
static int
cntlines_vec( im_object *argv )
{
double *out = (double *) argv[1];
int dir = *((int *) argv[2]);
return( im_cntlines( argv[0], out, dir ) );
}
/* Description of im_cntlines.
/* Description of im_benchmark.
*/
static im_function benchmark_desc = {
"im_benchmark", /* Name */
"do something complicated for testing", /* Description */
IM_FN_PIO, /* Flags */
benchmark_vec, /* Dispatch function */
IM_NUMBER( benchmark_args ), /* Size of arg list */
benchmark_args /* Arg list */
};
/* Args for im_benchmark2.
*/
static im_arg_desc benchmark2_args[] = {
IM_INPUT_IMAGE( "in" ),
IM_OUTPUT_DOUBLE( "value" )
};
/* Call im_benchmark2 via arg vector.
*/
static int
benchmark2_vec( im_object *argv )
{
double f;
if( im_benchmark2( argv[0], &f ) )
return( -1 );
*((double *) argv[1]) = f;
return( 0 );
