#!/bin/sh

# Test DFiltInt
#
# $Id: tDFiltInt,v 1.6 1996/06/17 FilterDesign-V1R7a $

if [ -f ./DFiltInt ]; then
  DINT=./DFiltInt
elif [ -f bin/DFiltInt ]; then
  DINT=bin/DFiltInt
elif [ -f ../bin/DFiltInt ]; then
  DINT=../bin/DFiltInt
else
  DINT=DFiltInt
fi

L=""

$DINT --version

#==================================
echo "${L}INT1: N=21 x4 interpolation filter, spectrum transition 0.3-0.4"
$DINT -i 4 -n 21 << EoF
0    1
0.3  1
0.4  0
EoF

#==================================
echo "${L}INT2: N=21 x4 interpolation filter, Delay = 9"
$DINT -i 4 -n 21 -s 1 -d 9 << EoF
0.0  1
0.3  1
0.4  0
EoF

#==================================
echo "${L}INT3: N=21 x4 interpolation filter, Delay = 9.5"
$DINT -i 4 -n 21 -d 9.5 << EoF
0.0  1
0.3  1
0.4  0
EoF

#==================================
echo "${L}INT4: N=21 x4 interpolation filter, Delay = 9.75"
$DINT -i 4 -n 22 --delay=9.75 << EoF
0.0  10
0.3  10
0.4  0
EoF

#==================================
echo "${L}INT5: N=22 x4 interpolation filter, spectrum transition 0.3-0.4"
$DINT -i 4 -n 22 -s 10 << EoF
0.0  10
3.0  10
4.0  0
EoF

#==================================
echo "${L}INT6: N=23 x4 interpolation filter, spectrum transition 0.3-0.4"
$DINT -i 4 -n 23 << EoF
0   1
0.3 1
0.4 0
EoF

#==================================
echo "${L}INT7: N=31 x5 interpolation filter, spectrum to 0.25"
$DINT -i 5 -n 31 temp.cof << EoF
0    100
0.25 100
EoF
cat temp.cof
rm -f temp.cof

#==================================
echo "${L}INT8: N=6, 1-step predictor"
$DINT -i 1 -n 6 -d -1 << EoF
0    1
0.25 1
EoF

#==================================
echo "${L}INT9: N=6, polyphase component of x5 interpolation filter"
$DINT -i 1 -n 6 -d 2.8 << EoF
0    1
0.25 1
EoF

#==================================
echo "${L}INT10: N=31 x5 interpolation filter, dc + spectrum to 0.25"
$DINT -i 5 -n 31 temp.cof << EoF
0    10000 cos
0    100   psd
0.25 100   psd
EoF
cat temp.cof
rm -f temp.cof

#==================================
echo "${L}INT11: N=49 x8 interpolation filter, N too large - numerical problems"
$DINT -i 8 -n 49 << EoF			2>&1
0      1
0.055  1
0.06   0.5
0.065  0
EoF
