Created
November 14, 2014 17:20
-
-
Save psav/e3b32892594fa8a59c5d to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#(define mydrums '( | |
(bassdrum default #f -3) | |
(snare default #f 1) | |
(hihat cross #f 5) | |
(halfopenhihat cross "halfopen" 5) | |
(pedalhihat xcircle "stopped" 2) | |
(lowtom diamond #f 3) | |
(crashcymbal cross #f 6))) | |
up = \drummode { hh8 hh hhho hhho hhp4 hhp } | |
down = \drummode { bd4 sn bd toml8 toml } | |
\score { | |
\new DrumStaff << | |
\set DrumStaff.drumStyleTable = #(alist->hash-table mydrums) | |
\new DrumVoice { \voiceOne \up } | |
\new DrumVoice { \voiceTwo \down } | |
>> | |
\midi { } | |
} | |
\new DrumStaff << | |
\set DrumStaff.drumStyleTable = #(alist->hash-table mydrums) | |
\new DrumVoice { \voiceOne \up } | |
\new DrumVoice { \voiceTwo \down } | |
>> | |
\new DrumStaff { | |
\drummode { | |
hh16 hh16 hh16 hh16 sn16 hh16 hh16 hh16 | |
} | |
} | |
\new DrumStaff | |
<< | |
\context DrumVoice = "1" { s1 } | |
\context DrumVoice = "2" { s1 } | |
\drummode { | |
<< | |
{ | |
hh8[ hh] <hh sn> hh16 | |
\parenthesize sn hh | |
\parenthesize sn hh8 <hh sn> hh | |
} \\ | |
{ | |
bd4 r4 bd8 bd r8 bd | |
} | |
>> | |
} | |
>> | |
\new DrumStaff | |
<< | |
\set DrumStaff.drumStyleTable = #(alist->hash-table mydrums) | |
\context DrumVoice = "1" { s1 } | |
\context DrumVoice = "1" { s1 } | |
\drummode { | |
<< | |
{ | |
cymc16 hh16 hh16 r16 hh16 hh16 r16 hh16 hh16 hh16 r16 hh16 r16 hh16 r16 hh16 | |
} \\ | |
{ | |
sn8 r16 sn8 r16 sn8 r16 bd16 sn8 sn8 sn8 | |
} | |
>> | |
} | |
>> |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment