User:Natasa Siencnik/prototyping/clapping

Clapping Music

by Steve Reich

cat << END

@head {
    \$time_sig 4/4
    \$tempo 120
}
@body {
    @channel 1 {
        \$patch 1
        \$octave 4
        \$length 16

END

for ((i=0; i<13; i++))
do
echo c c c r c c r c r c c r 
done


cat << END
     
    }
    @channel 1 {
        \$patch 2
        \$octave 7
        \$length 16
 
END

pat="c c c r c c r c r c c r "

for ((i=0; i<13; i+=1))
do 
echo $pat
pat=${pat:2}${pat:0:2}
done

 
cat << END

    }
}

END