+@lilypond[quote,verbatim]
+% These lines define the position of the woodblocks in the stave;
+% if you like, you can change it or you can use special note heads
+% for the woodblocks.
+#(define mydrums '((hiwoodblock default #t 3)
+ (lowoodblock default #t -2)))
+
+woodstaff = {
+ % This defines a staff with only two lines.
+ % It also defines the positions of the two lines.
+ \override Staff.StaffSymbol #'line-positions = #'(-2 3)
+
+ % This is neccessary; if not entered, the barline would be too short!
+ \override Staff.BarLine #'bar-size = #3
+}
+
+\new DrumStaff {
+ \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)
+
+ % with this you load your new drum style table
+ \woodstaff
+
+ \drummode {
+ \time 2/4
+ wbl8 wbl16 wbl wbh8-> wbl |
+ wbl8 wbl16 wbh-> ~ wbh wbl16 r8 |
+ }
+}
+@end lilypond
+
+Note that in this special case the length of the barline must
+altered with @code{\override Staff.BarLine #'bar-size #number}.
+Otherwise it would be too short. And you have also to define the
+positions of the two stafflines. For more information about these
+delicate things have a look at @ref{Staff symbol}.
+
+A tambourine, entered with @q{tamb}:
+
+@lilypond[quote,verbatim]
+#(define mydrums '((tambourine default #t 0)))
+
+tambustaff = {
+ \override Staff.StaffSymbol #'line-positions = #'( 0 )
+ \override Staff.BarLine #'bar-size = #3
+ \set DrumStaff.instrumentName = #"Tambourine"
+}
+
+\new DrumStaff {
+ \tambustaff
+ \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)
+
+ \drummode {
+ \time 6/8
+ tamb8. tamb16 tamb8 tamb tamb tamb |
+ tamb4. tamb8 tamb tamb |
+ % the trick with the scaled duration and the shorter rest
+ % is neccessary for the correct ending of the trill-span!
+ tamb2.*5/6 \startTrillSpan s8 \stopTrillSpan |
+ }
+}
+@end lilypond
+
+Music for Tam-Tam (entered with @q{tt}):
+
+@lilypond[quote,verbatim]
+#(define mydrums '((tamtam default #t 0)))
+
+tamtamstaff = {
+ \override Staff.StaffSymbol #'line-positions = #'( 0 )
+ \override Staff.BarLine #'bar-size = #3
+ \set DrumStaff.instrumentName = #"Tamtam"
+}
+
+\new DrumStaff {
+ \tamtamstaff
+ \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)
+
+ \drummode {
+ tt 1 \pp \laissezVibrer
+ }
+}
+@end lilypond
+
+Two different bells, entered with @q{cb} (cowbell) and @q{rb} (ridebell)
+
+@lilypond[quote,verbatim]
+#(define mydrums '((ridebell default #t 3)
+ (cowbell default #t -2)))
+
+bellstaff = {
+ \override DrumStaff.StaffSymbol #'line-positions = #'(-2 3)
+ \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)
+ \override Staff.BarLine #'bar-size = #3
+ \set DrumStaff.instrumentName = #"Different Bells"
+}
+
+\new DrumStaff {
+ \bellstaff
+ \drummode {
+ \time 2/4
+ rb8 rb cb cb16 rb-> ~ |
+ rb16 rb8 rb16 cb8 cb |
+ }
+}
+@end lilypond
+
+Here an short example by maestro Stravinsky (from @q{L'histoire du Soldat})
+
+@lilypond[quote,verbatim]
+#(define mydrums '((bassdrum default #t 4)
+ (snare default #t -4)
+ (tambourine default #t 0)))
+
+global = {
+ \time 3/8 s4.
+ \time 2/4 s2*2
+ \time 3/8 s4.
+ \time 2/4 s2
+}
+
+drumsA = {
+ \context DrumVoice <<
+ { \global }
+ { \drummode {
+ \autoBeamOff
+ \stemDown sn8 \stemUp tamb s8 |
+ sn4 \stemDown sn4 |
+ \stemUp tamb8 \stemDown sn8 \stemUp sn16 \stemDown sn \stemUp sn8 |
+ \stemDown sn8 \stemUp tamb s8 |
+ \stemUp sn4 s8 \stemUp tamb
+ }
+ }
+ >>
+}
+
+drumsB = {
+ \drummode {
+ s4 bd8 s2*2 s4 bd8 s4 bd8 s8
+ }
+}
+
+\layout {
+ indent = #40
+}
+
+\score {
+ \new StaffGroup <<
+ \new DrumStaff {
+ \set DrumStaff.instrumentName = \markup {
+ \column {
+ "Tambourine"
+ "et"
+ "caisse claire s. timbre"
+ }
+ }
+ \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)
+ \drumsA
+ }
+
+ \new DrumStaff {
+ \set DrumStaff.instrumentName = #"Grosse Caisse"
+ \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)
+ \drumsB }
+ >>
+}
+@end lilypond
+
+
+@seealso
+Snippets: @rlsr{Percussion}.
+
+Internals Reference: @rinternals{DrumStaff}, @rinternals{DrumVoice}.
projects / lilypond.git / blobdiff