Re: Some drum notation questions

[Thomas Morley]

Hi,

2012/1/4 Carl Sorensen <address@hidden>:
> On 1/4/12 11:32 AM, "Vaylor Trucks" <address@hidden> wrote:
>
>>
>>First, for hi-hat, the notation for open and closed are correct, but for
>>the
>>half-open he would like to appear exactly like the open hi-hat notation,
>>except
>>the "o" above the stem of the note needs to have a single slash through
>>it.
>>
>>Also, the note head for a China cymbal he notes by having a standard
>>cross note
>>head, but with a box around it.
>>
>>Can anyone point me in the right direction for making these changes?
>>
>>Thanks,
>>Vaylor Trucks
>
> The half-open hihat you describe is shown in the Notation Reference,
> section 2.5.1
> under the heading "Custom Percussion Staves".
>
> As far as I know, there is currently no notehead that is a cross with a
> box around it.  This would require you to define a custom notehead, which
> can be done by writing your own stencil procedure to replace
> ly:note-head::print.
>
> I'd be willing to create a glyph for the China cymbal note if you can give
> me a scan of a well-designed China cymbal note-head.
>
> HTH,
>
> Carl

it would be nice to use a glyph with a box around a cross.

This might be a hackish work-around:

\version "2.14.2"

#(define glyph-types '("0laThin"
               "1laThin"
               "2laThin"))
        
customChineseCymbalNoteHead = \override NoteHead #'stencil =
#(lambda (grob)
 (let* ((gl (ly:grob-property grob 'glyph-name))
        (dur (ly:grob-property grob 'duration-log)))
 (if (member gl glyph-types)
    (ly:stencil-add
      (grob-interpret-markup grob (markup #:fontsize 1.65
                          #:musicglyph "noteheads.s1laFunk"))
      (if (or (= dur 1) (= dur 0))
         (grob-interpret-markup grob (markup #:fontsize -2.25
                                     #:musicglyph "noteheads.s1cross"))
         (grob-interpret-markup grob (markup #:fontsize -1.25
                                     #:musicglyph "noteheads.s2cross"))))
    (ly:note-head::print grob))))

#(define my-drums '((halfopenhihat cross "halfopen" 3)
            (chinesecymbal laThin #f 5)))
        
%----- test

\new DrumStaff
<<
  \set DrumStaff.drumStyleTable = #(alist->hash-table my-drums)
  \customChineseCymbalNoteHead

  \drummode {
    \textLengthOn
     hhho1^"halfopenhihat  "
     hhho2
     hhho4
     hhho8
     hhho16
     hhho32
     hhho
     cymch1^"chinesecymbal"
     cymch2
     cymch4
     cymch8
     cymch16
     cymch32
     cymch
  }
>>

HTH,
  Harm