.
#======================================================================
# . I N T E R P . N N B R
# doc: Wed Nov 22 21:01:09 2000
# dlm: Wed Aug 3 11:48:59 2011
# (c) 2000 A.M. Thurnherr
# uE-Info: 32 0 NIL 0 0 72 8 2 4 NIL ofnI
#======================================================================
# nearest neighbor resampling
# HISTORY:
# Nov 22, 2000: - adapted from [.interp.linear]
# Apr 3, 2004: - added nominal -x
# Jan 12, 2006: - renamed from [.interp.subsample]
# Jul 28, 2006: - added xf to ISInit() args
# Aug 22, 2006: - adapted to work with [match]
# Aug 5, 2008: - added idr param to IS_init()
# Aug 3, 2011: - removed -x, which is now handled by [resample]
# see [.interp.linear] for documentation of interface
$IS_opts = "";
$IS_optsUsage = "";
sub IS_usage() {}
sub IS_init($$$$) {}
sub IS_interpolate($$$$$$)
{
my($bR,$idR,$xf,$xv,$xi,$f) = @_;
return $bR->[$xi+1][$f]
if ($bR->[$xi+1][$xf] - $xv < $xv - $bR->[$xi][$xf]);
return $bR->[$xi][$f];
}
1;