Skip to content

Instantly share code, notes, and snippets.

@psav
Created November 14, 2014 17:20
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save psav/e3b32892594fa8a59c5d to your computer and use it in GitHub Desktop.
Save psav/e3b32892594fa8a59c5d to your computer and use it in GitHub Desktop.
#(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