2013-02-20 13:03:40 +00:00
|
|
|
#!/bin/bash
|
|
|
|
#
|
|
|
|
# Transpose a book for Horn in F.
|
|
|
|
|
|
|
|
if [ $# != 1 ]; then
|
|
|
|
echo "Usage: makeFHorn.sh <book dir name>"
|
|
|
|
exit 1
|
|
|
|
fi
|
|
|
|
|
2013-07-18 15:27:57 +01:00
|
|
|
# Transpose down (return 0) if top note was > e (> a for horn).
|
|
|
|
transposedown()
|
|
|
|
{
|
2013-08-13 01:48:21 +01:00
|
|
|
(($2 > 109))
|
2013-07-18 15:27:57 +01:00
|
|
|
}
|
|
|
|
|
2013-02-20 13:03:40 +00:00
|
|
|
dir=`pwd`
|
|
|
|
|
|
|
|
booke=$dir/$1
|
|
|
|
outdir=$dir/$1-HornInF
|
|
|
|
|
|
|
|
mkdir -p $outdir
|
|
|
|
|
2013-02-20 13:45:58 +00:00
|
|
|
# Copy book component items.
|
|
|
|
cp $booke/*.txt $outdir
|
|
|
|
|
2013-06-21 20:00:54 +01:00
|
|
|
echo "Horn in F" > $outdir/instrument.txt
|
|
|
|
|
2013-02-20 13:03:40 +00:00
|
|
|
find $booke -name "*.abc" | sort |
|
|
|
|
while read filename
|
|
|
|
do
|
|
|
|
name=`basename $filename .abc`
|
2013-07-18 15:27:57 +01:00
|
|
|
range=`./abcrange.py $filename`
|
2013-02-20 13:03:40 +00:00
|
|
|
|
|
|
|
# Transpose concert pitch up a fifth.
|
2013-07-18 15:27:57 +01:00
|
|
|
# If there are any notes above 'd' (Horn 'g'), transpose
|
2013-02-20 13:03:40 +00:00
|
|
|
# down a seventh instead.
|
|
|
|
transpose=5
|
2013-07-18 15:27:57 +01:00
|
|
|
if transposedown $range; then
|
2013-02-20 13:03:40 +00:00
|
|
|
transpose=-7
|
|
|
|
fi
|
|
|
|
|
2013-08-28 14:57:11 +01:00
|
|
|
# There's no point in having transposed chords. Remove from the
|
|
|
|
# abc before transposing. Some badly formed chord items can give
|
|
|
|
# erroneous output from abc2abc (like, strings of binary gibberish).
|
|
|
|
sed -e "s/\"[^\"]*\"//g" $filename > $outdir/$name.abc.tmp
|
|
|
|
|
2013-02-20 13:03:40 +00:00
|
|
|
# Transpose. By default abc2abc will report errors in the output,
|
2013-02-21 07:23:49 +00:00
|
|
|
# but this messes up output formatting so stop it. Also force all
|
|
|
|
# output to be in treble clef; some lower tunes with the odd high
|
|
|
|
# note will otherwise appear in bass clef, which is not what this
|
|
|
|
# crap horn player wants.
|
2013-08-28 14:57:11 +01:00
|
|
|
abc2abc $outdir/$name.abc.tmp -e -t $transpose | \
|
2013-02-21 07:23:49 +00:00
|
|
|
sed -e "/^ *K:/s/$/ clef=treble/" > $outdir/$name.abc
|
2013-08-28 14:57:11 +01:00
|
|
|
rm $outdir/$name.abc.tmp
|
2013-02-20 13:03:40 +00:00
|
|
|
done
|