+He aquí algunos ejemplos adicionales:
+
+Dos bloques de madera, escritos con wbh (@emph{woodblock-high}, bloque
+alto) y wbl (@emph{woodblock-low} bloque bajo)
+
+@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
+
+Observe que en este caso especial se debe alterar la longitud de la
+línea divisoria con @code{\override Staff.BarLine #'bar-size #number}.
+En caso contrario resulta demasiado corta. También debe definir las
+posiciones de las dos líneas del pentagrama. Para más información
+sobre estos delicados asuntos, consulte @ref{Staff symbol}.
+
+Una pandereta, escrita mediante @q{tamb} (@emph{tambourine}):
+
+@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
+
+
+Música para gong, introducida con @q{tt} (tam-tam):
+
+@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
+
+Dos campanas, introducidas con @q{cb} (@emph{cowbell}, cencerro) y
+@q{rb} (@emph{ridebell}, campana normal)
+
+@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
+
+Aquí un breve ejemplo del maestro Stravinsky (procedente de la
+@q{Historia del soldado})
+
+@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
+Fragmentos de código:
+@rlsr{Percussion}.
projects / lilypond.git / blobdiff