Re: combine different note heads (drumset)

[Thomas Morley]

2016-05-22 10:34 GMT+02:00 Daniel E. Moctezuma <address@hidden>:
> Hello,
>
> I would like to define a note head type (or modify/tweak an existing one) 
> that uses a combination of 2 existing note heads from the Feta font.
> I'm trying to use the notation proposed by Norman Weinberg in his book Guide 
> to Standardized Drumset Notation.
>
> Hi-Hat and Cymbals for instance use both Cross and Diamond shape note heads 
> as follows:
> 1. Half-note and whole-note use a diamond, very similar to s0miThin except 
> the height of s0miThin is kind of short.
> 2. Quarter-note and below use a cross shaped note-head such as s2cross.
>
> I did manage to make Lilypond show the above note heads accordingly using 
> tweaks.
> The disadvantage is that in order to achieve the desired result I would have 
> to do something like "\customDiamond cymc2" every time I have to input half 
> or whole notes.
> So I'm looking for an easier way to input those kind of notes as well as to 
> support chords.
>
> In the following sample code you can see how modifying the stencil can give 
> you somewhat what I'm looking for, but here are some concerns:
> 1. It doesn't work when using chords (for example: hitting the crash cymbal 
> and the snare drum at the same time).
> 2. When using s0miThin noteheads the stem is not conected to the diamond's 
> left vertex.
>
> Maybe a better approach could be, instead of the "cross" note head defined in 
> "mydrums" drum style table could be something like "crossdiamond" so it can 
> include the above mentioned note heads.
> Probably just modifying the existing "cross" notehead could be enough since 
> Weinberg's book doesn't mention any usage of both s0cross and s1cross.
>
> Do you have any ideas on how to achieve something like this, as well as to 
> fix the above 2 points mentioned?
>
> Sample:
>
> \version "2.18.2"
>
> #(define mydrums '(
>          (crashcymbal cross #f 6)))
>
> % Based on: 
> https://www.mail-archive.com/lilypond-user%40gnu.org/msg108679.html
> #(define (my-note-head grob)
>   (let ((duration (ly:grob-property grob 'duration-log)))
>    (if (>= duration 2)
>     (grob-interpret-markup grob
>      (markup #:musicglyph "noteheads.s2cross"))
>     (grob-interpret-markup grob
>      (markup #:scale (cons -0.65 1.2)
>              #:musicglyph "noteheads.s0miThin")))))
>
> \new DrumStaff <<
>   \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)
>
>   \drummode {
>     \cadenzaOn
>     \autoBeamOff
>     \override NoteHead.stencil = #my-note-head
>     cymc32 cymc16 cymc8 cymc4 cymc2 cymc1 \bar "|."
>   }
>>>
>
> --
> Best regards


Maybe:

\version "2.18.2"

#(define mydrums '(
         (crashcymbal cross #f 6)
         (snare () #f 1)))

#(define (my-note-head grob)
  (let ((duration (ly:grob-property grob 'duration-log))
        (drumtype
          (ly:prob-property (ly:grob-property  grob 'cause) 'drum-type)))
  (if (eq? 'crashcymbal drumtype)
      (if (>= duration 2)
          (grob-interpret-markup grob
             (markup #:musicglyph "noteheads.s2cross"))
          (begin
            (let ((stem-attachment (ly:grob-property grob 'stem-attachment)))
              (ly:grob-set-property! grob 'stem-attachment
                (cons (car stem-attachment) 0))
              (grob-interpret-markup grob
                 (markup #:scale (cons -0.65 1.2)
                         #:musicglyph "noteheads.s0miThin")))))
      (ly:note-head::print grob))))

\new DrumStaff
  \with {
    drumStyleTable = #(alist->hash-table mydrums)
    \override NoteHead.stencil = #my-note-head
  }
  <<
    \drummode {
      \cadenzaOn
      \autoBeamOff
      cymc32 cymc16 cymc8 cymc4 cymc2 cymc1 \bar "|." \break
      <sn cymc>32 <sn cymc>16 <sn cymc>8 <sn cymc>4 <sn cymc>2 <sn cymc>1
    }
  >>

HTH,
  Harm