Hi Abraham, Hi All,
Yes Marc, the stem direction property is definitly the one, but I think his question is "how to?".
For instance I've come to this, which does not seem to work properly :
\version "2.19.16"
#(set-global-staff-size 25)
stil = \markup {
\override #'(filled . #t)
\path #0.01 #'(
(moveto 0.00 -0.50)
(curveto 0.00 -0.10 0.00 0.50 0.60 0.50)
(curveto 1.56 0.50 1.62 -0.50 1.00 -0.50)
(curveto 0.56 -0.50 0.58 -0.19 0.70 0.00)
(curveto 0.78 0.13 0.80 0.45 0.50 0.45)
(curveto 0.06 0.45 0.08 -0.13 0.08 -0.50)
(closepath))
}
newstil = \markup\rotate #180 \stil
%% does not work properly
#(define alt-notehead
(lambda (grob)
(if (eq? (ly:grob-property grob 'direction) DOWN)
;; does not work:
;(if (= DOWN (ly:grob-property grob 'direction))
;; does not work either:
;(if (= -1 (ly:grob-property grob 'direction))
(grob-interpret-markup grob stil)
(grob-interpret-markup grob newstil))))
{
\override NoteHead.stem-attachment = #'(1 . 0.95)
\override Stem.thickness = #1.0
%% does not work propely:
%\override NoteHead.stencil = #alt-notehead
\once\override NoteHead.stencil = #(lambda (grob) (grob-interpret-markup grob stil))
c''
\override NoteHead.stencil = #(lambda (grob) (grob-interpret-markup grob newstil))
a'
}