1 % tests drum notation and midi-drums.
2 % see ly/drumpitch-init.ly for list of instruments and paper-kits.
3 % scm/midi.scm for list of midi-drumkits.
6 texidoc = "Drum notation, although kludgy, should work. Though, << chord >> does not work because the chords need to be split into threads."
9 \include "drumpitch-init.ly"
13 drh = \notes { cymc4.^"crash" hhc16^"h.h." hh \repeat "unfold" 5 {hhc8 hho hhc8 hh16 hh} hhc4 r4 r2 }
14 drl = \notes {\repeat "unfold" 3 {bd4 sn8 bd bd4 < bd ss > } bd8 tommh tommh bd toml toml bd tomfh16 tomfh }
15 timb = \notes \repeat "unfold" 2 {timh4 ssh timl8 ssh r timh r4 ssh8 timl r4 cb8 cb}
17 \score { \repeat "volta" 2
19 \context TwoLineStaff=timbst \notes <
20 \property Staff.instrument="timbales"
22 \apply #(drums->paper 'timbales) \timb
24 \context Staff=drumst \notes <
25 \property Staff.instrument="drums"
27 \apply #(drums->paper 'drums) <
28 \context Voice=voa {\stemUp \drh }
29 \context Voice=vob {\stemDown \drl }
36 \consists Instrument_name_engraver
37 Script \override #'padding = #0.5
43 \consists Instrument_name_engraver
44 StaffSymbol \override #'line-count = #2
45 BarLine \override #'bar-size = #2
54 \score { \repeat "unfold" 2
55 \context Staff \notes <
56 \property Staff.instrument="drums"