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'
}
HTH,
Pierre
2015-03-20 8:05 GMT+01:00 Marc Hohl <m...@hohlart.de>:
> Am 19.03.2015 um 19:56 schrieb Abraham Lee:
> [...]
>
>> When I get the 'stem-attachment property of the notehead, it always
>> gives me the top-right value, regardless of where the stem is actually
>> attached. I'm hoping this will work for chords, too, though I haven't
>> experimented enough to know for sure. Any help is always appreciated!
>>
>
> I am not sure whether I understand you correctly, but the stem direction
> property gives you the info needed to decide whether to rotate the glyph,
> isn't it?
>
> Marc
>
>>
>> Regards,
>> Abraham
>>
>>
>> _______________________________________________
>> lilypond-user mailing list
>> lilypond-user@gnu.org
>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>
>>
>
> _______________________________________________
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
