#!/bin/csh
#
# Examples for am-mod, Amplitude modulation
#
# parameters are: (1) frequency (Hz) envelope of sinewave
#                 (2) amplitude envelope (optional, default is: "(0 1; 1 1)"
#                 (3) input soundfile name
#                 (4) output soundfile name
#

if ($1 == "") then
   set SOUNDDIR = ../
else
   set SOUNDDIR = $1
endif

if ($2 == "") then
   set BINDIR = ../../bin
else
   set BINDIR = $2
endif


if ( -r $SOUNDDIR/base/paperjam-French.wav ) then
   echo Creating $SOUNDDIR/am1.wav

   rm -f $SOUNDDIR/am1.wav
   $BINDIR/am-mod "(0 400; 1 400)" "(0 0.01; 5 0.2; 15 1; 20 1)" \
      $SOUNDDIR/base/paperjam-French.wav $SOUNDDIR/am1.wav >/dev/null
endif



rm -f $SOUNDDIR/temp.wav
$BINDIR/whitenoise $SOUNDDIR/temp.wav >/dev/null <<EOT
118500
0.3
1
EOT


echo Creating $SOUNDDIR/am2.wav

rm -f $SOUNDDIR/am2.wav
$BINDIR/am-mod "(0 5; 1 0)" "(0 0.01; 5 0.2; 15 1; 20 1)" \
   $SOUNDDIR/temp.wav $SOUNDDIR/am2.wav >/dev/null


rm -f $SOUNDDIR/temp.wav