User:Birgit bachler/clapping

From XPUB & Lens-Based wiki
notes="c c c r c c r c r c c r"
cat << STOP
@head {
    \$time_sig 4/4
    \$tempo 120
}
@body {
 
    @channel 1 {
        \$patch 1
        \$octave 4
        \$length 16



STOP

notes="c c c r c c r c r c c r"
    for ((j=0; j<12; j++))
    do 
        for ((i=0; i<12; i++))
        do
        echo $notes
        done
    notes=${notes:2}" "${notes::2}
    done


cat << STOP
}


	@channel 2 {
	    \$patch 1
        \$length 16
        \$octave 6

    
STOP

notes="c c c r c c r c r c c r"
    for ((j=0; j<12; j++))
    do
        for ((i=0; i<12; i++))
        do 
        echo $notes
        done
    done

cat << STOP

} 
}
STOP