Re: Adding notes above drumstaff

[Philippe Hezaine]

Aaron Morse a écrit :
> I want to be able to place something like:
>
> \relative c'' {
>
> g'4 g8 g8 g4. g8
>
> }
>
> Into a drum-staff, to show a rhythm above the staff. At first I 
> thought of changing the notehead of one of the cymbals to a regular 
> notehead, but I can't seem to figure out how to do that. g4 of course 
> won't display in a drum-voice/staff.
>
> Thanks,
> Aaron
>
>
> Hi Aaron,
>
> > I'm stuck with an issue here.
>
> Do you have a scan/screenshot/picture of what you're looking for?
> I can't really picture it... and so I won't be able to help much.
> Cheers,
> Kieren.
I attach a little template I use sometimes with an example inside. 
(\version 2.10.33)
May be you can define one pitch from the list which is an extract of 
drumpitch-init.ly
Here i've changed the guiro   ( = gui  )
You haven't to keep all the list. Only the pitch you choose.
Or you make a separate file and put an \include in your work.
Hope this helps

Phil.

\version "2.10.33"
 % \include "/usr/share/lilypond/2.10.33/ly/drumpitch-init.ly"
% \include /home/.../0-mydrums-style.ly
% \include /home/.../0-mypercussions-style.ly

    \header {
      title = " "
      }

#(define mydrums-style '(

      (acousticbassdrum () #f -3)
      (bassdrum () #f -3)
      (sidestick cross #f 1)
      (acousticsnare () #f 1)
      (snare () #f 1)
      (handclap triangle #f 1)
      (electricsnare () #f 1)
      (lowfloortom () #f -4)
      (closedhihat cross "stopped" 3)
      (hihat cross #f 3)
      (highfloortom () #f -2)
      (pedalhihat cross #f -5)
      (lowtom () #f -1)
      (openhihat cross "open" 3)
      (halfopenhihat xcircle #f 3)
      (lowmidtom () #f 0)
      (himidtom () #f 2)
      (crashcymbala xcircle #f 5)
      (crashcymbal xcircle #f 5)
      (hightom () #f 4)
      (ridecymbala cross #f 5)
      (ridecymbal cross #f 5)
      (chinesecymbal mensural #f 5)
      (ridebell () #f 5)
      (tambourine () #f 6)
      (splashcymbal diamond #f 5)
      (cowbell triangle #f 5)
      (crashcymbalb cross #f 5)
      (vibraslap diamond #f 4)
      (ridecymbalb cross #f 5)
))

#(define mypercussions-style '(

      (tambourine () #f 6)

      (lobongo () #f -1)
      (openlobongo () "open" -1)
      (mutelobongo () "stopped" -1)
      (hibongo () #f 1)
      (openhibongo () "open" 1)
      (mutehibongo () "stopped" 1)

      (loconga () #f -2)
      (openloconga () "open" -1)
      (muteloconga () "stopped" -1)
      (hiconga () #f 2)
      (openhiconga () "open" 2)
      (mutehiconga () "stopped" 2)

      (hitimbale () #f 1)
      (lotimbale () #f -1)
      (hiagogo () #f 1)
      (loagogo () #f -1)
      (cabasa cross #f 6)
      (maracas cross #f 0)
      (shortwhistle cross staccato -2)
      (longwhistle cross  tenuto -2)
      (shortguiro cross staccato -4)
      (longguiro cross tenuto -4)
      (guiro cross #f 12)
      (cowbell triangle #f 5)
      (claves diamond #f 0)
      (hiwoodblock () #f -3)
      (lowoodblock () #f -4)
      (mutecuica diamond "open" 1)
      (opencuica diamond "stopped" 1)
      (triangle cross #f 0)
      (opentriangle cross "open" 0)
      (mutetriangle cross "stopped" 0)
))

pulseone = \drummode { 
  \time 4/4 
  \tempo 4 = 120 
        bd 1
        }

pulsetwo = \drummode { 
  \time 4/4 
  \tempo 4 = 120 
        boh 1
        }

pulsethree = \drummode { 
  \time 4/4 
  \tempo 4 = 120 
        gui 1 % it's the "changed pitch"
        }

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 \score {
    <<
      \new DrumStaff \with {
        drumStyleTable =  #(alist->hash-table mydrums-style)
        \override DrumStaff #'TimeSignature #'style = #'()
      } <<
        \set Staff.instrumentName = "Drums"
        \override Score.MetronomeMark #'extra-offset = #'(-10 . 2.5)
        \pulseone
      >>
      \new DrumStaff \with { 
        drumStyleTable = #(alist->hash-table mypercussions-style)
      }
      <<
        \set Staff.instrumentName =  \markup{ \column {"Bongos"
        \line {"Congas"} } \hspace #1.0 }
        \new DrumVoice { \pulsetwo }
        \override DrumStaff.VerticalAxisGroup #'minimum-Y-extent = #'(-8  . 8 )
      >>
       \new DrumStaff \with { 
        drumStyleTable = #(alist->hash-table mypercussions-style)
      }
      <<
        \set Staff.instrumentName =  \markup{ \column {"Percussions"
        \line {"diverses"} } \hspace #1.0 }
        \new DrumVoice { \pulsethree }
        \override DrumStaff.VerticalAxisGroup #'minimum-Y-extent = #'(-5  . 5 )
      >>

    >>

  \layout {}

  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 120 4)
      }
    }


}