#!/bin/sh

# Rudimentary tests for FiltAudio (and CompAudio)

# $Id: tFiltAudio,v 1.2 1994/02/24 AFsp-V1R2 $

AUDIOFILES=audiofiles
export AUDIOFILES
FA=../bin/FiltAudio
CA=../bin/CompAudio

cat > fx5.cof << EoF
!FIR - Nyquist Filter
! Zero crossing interval:   5
! Stopband:  Frequency  Weight
!             0.11250   1.000    
!             0.50000   10.00    
   0.000000E+00   1.044477E-01   1.531728E-01   1.443447E-01   9.213434E-02
   0.000000E+00  -1.049936E-01  -1.898603E-01  -2.155646E-01  -1.553697E-01
   0.000000E+00   2.328272E-01   5.034337E-01   7.559171E-01   9.353607E-01
   1.000000E+00   9.353607E-01   7.559171E-01   5.034337E-01   2.328272E-01
   0.000000E+00  -1.553697E-01  -2.155646E-01  -1.898603E-01  -1.049936E-01
   0.000000E+00   9.213434E-02   1.443447E-01   1.531728E-01   1.044477E-01
   0.000000E+00
EoF

echo""
$FA --version

echo ""
echo "-------- ALL - FIR, expect File A = File B"
cat > f.cof << EoF
!FIR
2 1 .5
EoF
cat > a.cof << EoF
!ALL
2 1 .5
EoF
$FA -D float -f f.cof addf8.au tx1.au
rm -rf f.cof
echo ""
$FA -f a.cof tx1.au tx2.au
rm -f tx1.au a.cof
echo ""
$CA addf8.au tx2.au
rm -f tx2.au

echo "-------- FIR x5 x1 x(1/5), expect File A = File B"
cat > fx1.cof << EoF
!FIR
0 1 0
EoF
$FA -i5 -f fx1.cof addf8.au tx5.au
echo ""
$FA -f fx5.cof tx5.au tx5s1.au
rm -rf tx5.au
echo ""
$FA -s 5 -f fx1.cof tx5s1.au tx5s5.au
rm -rf tx5s1.au
echo ""
$CA addf8.au tx5s5.au
rm -rf tx5s5.au fx1.cof

echo "-------- FIR (5/5), expect File A = File B"
$FA -s5 -i5 -f fx5.cof addf8.au tx5s5.au
echo ""
$CA addf8.au tx5s5.au
rm -f tx5s5.au

echo "-------- FIR x5 x1 x(1/5), expect File A = File B"
cat > fx1.cof << EoF
!FIR
0 1 0
EoF

$FA -i5 -f fx1.cof addf8.au tx5.au
echo ""
$FA -f fx5.cof tx5.au tx5s1.au
rm -rf tx5.au
echo ""
$FA -s 5 -f fx1.cof tx5s1.au tx5s5.au
rm -rf tx5s1.au
echo ""
$CA addf8.au tx5s5.au
rm -rf tx5s5.au fx1.cof

echo "-------- FIR x5 x(1/5), expect File A = File B"
cat > fs5.cof << EoF
!FIR - Ideal filter, but shifted
0 0 0 1 0 0 0
EoF
$FA --interpolate=5 -f fx5.cof addf8.au tx5.au
rm -f fx5.cof
echo ""
$FA --sub=5 -f fs5.cof tx5.au tx1.au
echo ""
$CA addf8.au tx1.au
rm -r fs5.cof tx5.au tx1.au

echo "-------- IIR, expect File A = File B"
cat > fi1.cof << EoF
!IIR
1  .5 .25 0 0
EoF
cat > fi2.cof << EoF
!IIR
1  0 0 .5 .25
EoF
$FA -D float -f fi1.cof addf8.au tx1.au
echo ""
rm -rf fi1.cof
$FA -f fi2.cof tx1.au tx2.au
rm -rf fi2.cof tx1.au
echo ""
$CA addf8.au tx2.au 2>&1
rm -rf tx2.au
