Chris@210: #!/bin/sh
Chris@210: 
Chris@210: trios_path="/home/cannam/Music/TRIOS_dataset"
Chris@210: yc="/home/cannam/code/may/bin/yc"
Chris@210: 
Chris@210: if [ ! -d "$trios_path" ]; then
Chris@210:     echo "TRIOS dataset directory $trios_path not found, giving up"
Chris@210:     exit 1
Chris@210: fi
Chris@210: 
Chris@210: if ! "$yc" -v ; then
Chris@210:     echo "Failed to run Yeti compiler yc at $yc_path, giving up";
Chris@210: fi
Chris@210: 
Chris@210: if ! sonic-annotator -v ; then
Chris@210:     echo "Failed to run sonic-annotator (not in PATH?), giving up"
Chris@210:     exit 1
Chris@210: fi
Chris@210: 
Chris@210: rdffile="../../silvet.n3"
Chris@210: if [ ! -f "$rdffile" ] ; then
Chris@210:     echo "Failed to find plugin RDF file at $rdffile, giving up"
Chris@210:     exit 1
Chris@210: fi
Chris@210: 
Chris@210: case "$trios_path" in
Chris@210: *\ *) echo "TRIOS dataset path $trios_path has a space in it, this script won't handle that"; exit 1;;
Chris@210: esac
Chris@210: 
Chris@210: ( cd ../.. ; make -f Makefile.linux ) || exit 1
Chris@210: 
Chris@210: VAMP_PATH=../..
Chris@210: export VAMP_PATH
Chris@210: 
Chris@210: outfile="/tmp/$$"
Chris@210: 
Chris@210: tmpwav="/tmp/$$norm.wav"
Chris@210: 
Chris@210: instfile="/tmp/$$instruments.txt"
Chris@210: 
Chris@210: transfile="/tmp/$$transform.ttl"
Chris@210: 
Chris@210: trap 'rm -f "$outfile" "$tmpwav" "$instfile" "$transfile" "$outfile.lab"' 0
Chris@210: 
Chris@210: # Use the single-instrument monophonic non-synthetic files for a
Chris@210: # (varied) subset of the TRIOS dataset. We take only those instruments
Chris@210: # for which we have a preset available
Chris@210: infiles="$trios_path/lussier/bassoon.wav $trios_path/take_five/saxophone.wav $trios_path/schubert/violin.wav $trios_path/mozart/clarinet.wav"
Chris@210: 
Chris@210: grep Piano "$rdffile" | sed 's/^.*( *//' | sed 's/ *).*$//' | sed 's/ "/\n/g' | sed 's/"//g' | tr '[A-Z]' '[a-z]' | tail -n +2 | cat -n > "$instfile"
Chris@210: 
Chris@210: instrument_for() {
Chris@210:     filename="$1"
Chris@210:     base=`basename "$filename" .wav`
Chris@210:     if [ "$base" = "saxophone" ]; then base="tenorsax"; fi
Chris@210:     instrument_no=`grep "$base" "$instfile" | awk '{ print $1; }'`
Chris@210:     if [ -z "$instrument_no" ] || [ -z "$base" ]; 
Chris@210:     then echo 0
Chris@210:     else echo "$instrument_no"
Chris@210:     fi
Chris@210: }
Chris@210: 
Chris@210: echo
Chris@210: echo "Input files are:"
Chris@210: echo $infiles | fmt -1
Chris@210: 
Chris@210: time for infile in $infiles; do
Chris@210: 
Chris@210:     echo
Chris@210:     echo "Evaluating for file $infile..."
Chris@210: 
Chris@210:     intended_instrument=`instrument_for "$infile"`
Chris@210:     case "$intended_instrument" in
Chris@210: 	[0-9]*) ;;
Chris@210: 	*) echo "Instrument extraction failed for infile $infile -- not even default multi-instrument setting returned?"; exit 1;;
Chris@210:     esac
Chris@210:     
Chris@210:     piece=`basename \`dirname "$infile" \``
Chris@210:     arrangement=`basename "$infile" .wav`
Chris@269:     mode=1
Chris@210: 
Chris@210:     # We run this twice, once using the default instrument
Chris@210:     # (i.e. "multiple or unknown") and once using the intended
Chris@210:     # instrument preset (the solo one).
Chris@210: 
Chris@210:     for instrument in $intended_instrument 0; do
Chris@210: 
Chris@210: 	echo
Chris@210: 	echo "For piece $piece, arrangement $arrangement, using instrument $instrument..."
Chris@210: 
Chris@210: 	sox "$infile" "$tmpwav" gain -n -6.020599913279624
Chris@210: 
Chris@210: 	# generate the transform by interpolating the instrument parameter
Chris@269: 	cat transform.ttl | \
Chris@269: 	    sed "s/INSTRUMENT_PARAMETER/$instrument/" | \
Chris@269: 	    sed "s/MODE_PARAMETER/$mode/" > "$transfile"
Chris@210: 
Chris@210: 	sonic-annotator \
Chris@210: 	    --writer csv \
Chris@210: 	    --csv-one-file "$outfile" \
Chris@210: 	    --csv-force \
Chris@210: 	    --transform "$transfile" \
Chris@210: 	    "$tmpwav"
Chris@210: 
Chris@210: 	cat "$outfile" | \
Chris@210: 	    sed 's/^[^,]*,//' | \
Chris@210: 	    while IFS=, read start duration frequency level label; do
Chris@210: 	    end=`echo "$start $duration + p" | dc`
Chris@210: 	    echo -e "$start\t$end\t$frequency"
Chris@210: 	done > "$outfile.lab"
Chris@210: 
Chris@210: 	for ms in 50 100; do
Chris@210: 	    mark=""
Chris@210: 	    if [ "$ms" = "50" ]; then mark="  <-- main $piece/$arrangement"; fi;
Chris@210: 	    echo
Chris@210: 	    echo "Validating against ground truth at $ms ms:"
Chris@233: 	    "$yc" ../scripts/evaluate_lab.yeti "$ms" "../TRIOS-groundtruth/$piece/$arrangement.lab" "$outfile.lab" | sed 's,$,'"$mark"','
Chris@210: 	    echo
Chris@210: 	    echo "Validating against MIREX submission at $ms ms:"
Chris@233: 	    "$yc" ../scripts/evaluate_lab.yeti "$ms" "../TRIOS-mirex2012-matlab/$piece/$arrangement.lab" "$outfile.lab"
Chris@210: 	    echo
Chris@210: 	    echo "Validating MIREX against ground truth at $ms ms":
Chris@233: 	    "$yc" ../scripts/evaluate_lab.yeti "$ms" "../TRIOS-groundtruth/$piece/$arrangement.lab" "../TRIOS-mirex2012-matlab/$piece/$arrangement.lab"
Chris@210: 	done;
Chris@210: 
Chris@210: 	echo
Chris@210:     done
Chris@210: done