Mercurial > dottes
view makeBookeTunePages.sh @ 417:664605b337a9 build-default-182
Fix last bar of A and B tunes in Mazurka d'Avignon.
It's in 3/4 stupid. Why have last bar last for 4?
author | Jim Hague <jim.hague@acm.org> |
---|---|
date | Mon, 09 Sep 2013 21:16:37 +0100 |
parents | 27f29e8aafea |
children | b44fbcaeba38 |
line wrap: on
line source
#!/bin/bash # # Generate the LaTeX for the Booke tune pages (tunes.tex) and the index # of first lines (firstlines.tex). These are generated into the build # directory. # # All EPS and PDF tune graphics must be present already. Run # makeGraphics.sh to make these. # # Restore titles like 'Exploding Potato, The' to the # expected 'The Exploding Potato'. fixtitle() { retval=`echo "$1" | sed -e "s/\(.*\), *\(.*\)/\2 \1/"` } if [ $# != 1 ]; then echo "Usage: makeBookeTunePages.sh <book dir name>" exit 1 fi dir=`pwd` booke=$dir/$1 builddir=$dir/build graphicsdir=$dir/graphics/$1 tunesoutput=$builddir/tunes.tex indexoutput=$builddir/firstlines.tex mkdir -p $builddir rm -f $tunesoutput $indexoutput # Now, for each tune, make the tune graphic and add it, inside a # centre section, so the document. Then add a TOC entry. find $booke -name "*.abc" | sort | while read filename do name=`basename $filename .abc` title=`$dir/abcfield.py --field T --latex $filename` fixtitle "$title" title=$retval subtitle=`$dir/abcfield.py --index 2 --field T --latex $filename` composer=`$dir/abcfield.py --field C --latex $filename` changefile=`$dir/abcfield.py --field N --contains "Change:" $filename | sed -e "s/Change: *//"` changename="" changetitle="" if [ -n "$changefile" ]; then changename=`basename $changefile .abc` changetitle=`$dir/abcfield.py --field T --latex $booke/$changefile` fixtitle "$changetitle" changetitle=$retval fi credit=`$dir/abcfield.py --field N --contains "Credit:" $filename | sed -e "s/Credit: *//"` echo -E "\showtune{$name}{$title}{$subtitle}{$composer}{$graphicsdir/$name}{$changename}{$changetitle}{$credit}" >> $tunesoutput echo -E "\showfirstline{$name}{$title}{$graphicsdir/firstline-$name}" >> $indexoutput done