Re: left pointing note heads

[Andrew Bernard]

Hi Johan,

How about this as a base to start from?

Obviously you can play around with the ellipticity and shape and fill of the 
noteheads to your hearts content. This gives the different directions you are 
wanting.

Andrew

— snip
\version "2.19.28"

#(define right-pointing-notehead
   (lambda (grob)
     (let* ((duration (ly:grob-property grob 'duration-log))
            (filled? (if (> duration 1) #t #f))
            (stil-1 (make-partial-ellipse-stencil 0.65 0.26 10 10 0.15 #t 
filled?))
            (stil-2 (ly:stencil-rotate stil-1 45 0 0))
            )
       stil-2)))

#(define left-pointing-notehead
   (lambda (grob)
     (let* ((duration (ly:grob-property grob 'duration-log))
            (filled? (if (> duration 1) #t #f))
            (stil-1 (make-partial-ellipse-stencil 0.65 0.26 10 10 0.15 #t 
filled?))
            (stil-2 (ly:stencil-rotate stil-1 -45 0 0))
            )
       stil-2)))

lh = {
  \override NoteHead.stencil = #right-pointing-notehead
  \override NoteHead.stem-attachment = #'(0.8 . 0.5)
}

rh = {
  \override NoteHead.stencil = #left-pointing-notehead
  \override NoteHead.stem-attachment = #'(-0.5 . 0.5)
}

\drums {
  \stemDown
  \lh bd4 bd \rh bd bd \lh bd \rh bd \lh bd \rh bd
}

— snip



> On 30 Sep 2015, at 07:20, johan buelens <address@hidden> wrote:
> 
> <taiko.jpg>