Sorry about the files, they're attached to this message
--
Stéphane Epardaud
\version "2.1.8"
\header {
title = "Drums bug"
instrument = "Drums v1"
tagline = "Transcribed using LilyPond (www.lilypond.org)"
}
\include "drums.ly"
drh = \notes {
<<
\context Voice=VA {\voiceOne }
\context Voice=VB {\voiceTwo
<<tomml4 tomfh4>> tomml4 tomfh4 <tomfh tomml>4
}
>>
}
\score {
\context Staff=drumst \notes <<
\property Staff.NoteHead
\set #'font-name = #"feta11"
\property Staff.instrument="Drums"
\clef "percussion"
\apply #(drums->paper 'mydrums) <<
\drh
>>
>>
\paper {
\translator {
\StaffContext
\consists Instrument_name_engraver
Script \override #'padding = #0.5
}
}
}
\paper{
papersize = "a4"
linewidth = -1.0
}
\include "paper16.ly"
\include "italiano.ly"
#(set-drum-kit 'mydrums (append `(
(tambourine diamond #f ,(ly:make-pitch 0 3 0))
(maxstax diamond #f ,(ly:make-pitch 0 4 0))
(splash diamond #f ,(ly:make-pitch 0 5 0))
(chinesecymbal diamond #f ,(ly:make-pitch 0 6 0))
(hightom default #f ,(ly:make-pitch 0 4 0))
(lowtom default #f ,(ly:make-pitch 0 3 0))
(bassdrum default #f ,(ly:make-pitch -1 1 0))
(crash cross #f ,(ly:make-pitch 0 6 0))
(crashcymbala cross #f ,(ly:make-pitch 0 6 0))
(crashcymbalb cross #f ,(ly:make-pitch 1 0 0))
(ridecymbal xcircle #f ,(ly:make-pitch 0 5 0))
) (get-drum-kit 'drums)))
#(define-public drum-pitch-names (append `(
(maxstax stax ,(ly:make-pitch 0 4 NATURAL ))
(crash cc ,(ly:make-pitch 0 6 NATURAL ))
(splash sp ,(ly:make-pitch 0 5 NATURAL ))
) drum-pitch-names ))
\include "drumpitch-init.ly"
drumheader = \notes {
\fatText
\cadenzaOn
tomh4^"8 TT "
toml4^"10 TT "
tommh4^"12 TT "
tomml4^"13 TT "
tomfh4^"16 TT "
bd4^"Bass drum "
sn4^"Snare "
cymca4^"A Cr. "
cymcb4^"B Cr. "
cymr4^"Ride "
cymch4^"Chin. "
hh4^"HH "
hho4^"HH open "
hhc4^"HH closed "
sp4^"Spl. "
stax4^"Stax "
tamb4^"Tambourine "
\cadenzaOff
}
\score {
\context Staff=drumst \notes <<
\property Staff.NoteHead
\set #'font-name = #"feta11"
\property Staff.instrument="Key"
\clef "percussion"
\apply #(drums->paper 'mydrums) <<
\drumheader
>>
>>
\paper {
\translator {
\StaffContext
\consists Instrument_name_engraver
Script \override #'padding = #0.5
}
}
}
_______________________________________________
Bug-lilypond mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-lilypond
