len=1.8
perl tuba_loopnote_maker.mid.pl "$t"/tuba_loopnote_maker.mid $delta $program $velocity $transpose -18 -12 -6 0 6 12 18 24
+cp "$t"/tuba_loopnote_maker.mid tuba$tubaid.mid
case "$synth" in
timidity)
normalize --peak "$t"/out.wav
-start=$delta
+start=0
step=$(($delta*2))
for note in -18 -12 -6 0 6 12 18 24; do
sox "$t"/out.wav "$t"/n$note.wav \