]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/drums.ly
* lily/lily-guile.cc (alist_to_hashq): new function
[lilypond.git] / input / regression / drums.ly
1
2 \header {
3    texidoc = "Test drum notation."
4 }
5
6
7 \version "2.1.19"
8
9 drh = \drums { cymc4.^"crash" hhc16^"h.h." hh \repeat "unfold" 5 {hhc8 hho hhc8 hh16 hh} hhc4 r4 r2 }
10 drl = \drums {\repeat "unfold" 3 {bd4 sn8 bd bd4 << bd ss >> } bd8 tommh tommh bd toml toml bd tomfh16 tomfh }
11 timb = \drums \repeat "unfold" 2 {timh4 ssh timl8 ssh r timh r4 ssh8 timl r4 cb8 cb}
12
13 \score {
14     \repeat "volta" 2
15     <<
16         \new DrumStaff \with {
17             drumStyleTable = #timbales-style
18             StaffSymbol \override #'line-count = #2
19             BarLine \override #'bar-size = #2
20         } <<
21             \property Staff.instrument="timbales"
22             \timb
23         >>
24         \new DrumStaff <<
25             \property Staff.instrument="drums"
26             \new DrumVoice {\stemUp \drh }
27             \new DrumVoice {\stemDown \drl }
28         >>
29     >>
30     \paper {}
31
32     %% broken:
33     \midi{ \tempo 4=120 }
34 }
35
36