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 <[email protected]> wrote:
>
> <taiko.jpg>
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
