+\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
+
+Vous aurez remarqué ici l'allongement des barres de mesures par
+l'instruction
+@w{@code{\override Staff.BarLine #'bar-extent #'(de . à)}}. Il faut
+aussi définir la position des deux lignes de la portée -- voir à ce
+sujet la rubrique @ref{Symbole de la portée}.
+
+Un tambourin, saisi avec un @qq{tamb}@tie{}:
+
+@lilypond[quote,verbatim]
+#(define mydrums '((tambourine default #t 0)))
+
+tambustaff = {
+ \override Staff.StaffSymbol #'line-positions = #'( 0 )
+ \override Staff.BarLine #'bar-extent = #'(-1.5 . 1.5)
+ \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
+
+Un peu de tam tam, abrégé @qq{tt}@tie{}:
+
+@lilypond[quote,verbatim]
+#(define mydrums '((tamtam default #t 0)))
+
+tamtamstaff = {
+ \override Staff.StaffSymbol #'line-positions = #'( 0 )
+ \override Staff.BarLine #'bar-extent = #'(-1.5 . 1.5)
+ \set DrumStaff.instrumentName = #"Tamtam"
+}
+
+\new DrumStaff {
+ \tamtamstaff
+ \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)
+
+ \drummode {
+ tt 1 \pp \laissezVibrer
+ }
+}
+@end lilypond
+
+Deux cloches, une sonnaille -- @qq{cb} pour @emph{cowbell} -- et une
+cloche de quart -- @qq{rb} pour @emph{ridebell}@tie{}:
+
+@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-extent = #'(-1.5 . 1.5)
+ \set DrumStaff.instrumentName = #"Different Bells"
+}
projects / lilypond.git / blobdiff