Revist tempo change code when generating web audio.
Now Mac friendly.
This commit is contained in:
parent
202b1d7176
commit
449ef19c56
|
@ -60,14 +60,20 @@ makeaudiofortempo()
|
|||
echo "Warning: $1 has no tempo. Using 120."
|
||||
tempo="120"
|
||||
fi
|
||||
pos=`expr index $tempo '='`
|
||||
numtempo=${tempo:pos}
|
||||
notelenprefix=${tempo:0:pos}
|
||||
numtempo=${tempo##*=}
|
||||
notelenprefix=${tempo%%=*}
|
||||
if [ "$notelenprefix" = "$numtempo" ]; then
|
||||
notelenprefix=
|
||||
else
|
||||
notelenprefix="${notelenprefix}="
|
||||
fi
|
||||
# Calculate new tempo.
|
||||
newtempo=$(( ( $numtempo * $4 ) / $5 ))
|
||||
echo "Old tempo $tempo new tempo ${notelenprefix}${newtempo}"
|
||||
# Insert new tempo and delete old. Old may not exist,
|
||||
# so do this rather than overwrite.
|
||||
sed -e "/^Q:/d" -e "/^K:/aQ: ${notelenprefix}${newtempo}" $1 > $tunedir/$newspeedfilename
|
||||
sed -e "/^Q:/d" -e "/^K:/a\\
|
||||
Q: ${notelenprefix}${newtempo}" $1 > $tunedir/$newspeedfilename
|
||||
makeaudiofiles $tunedir/$newspeedfilename $tunedir --mute=0,-1
|
||||
rm $tunedir/$newspeedfilename
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue