On Sun, Jul 15, 2012 at 10:58 AM, David Kastrup <[email protected]> wrote:
> StemSplit =
> #(define-music-function (parser location p) (ly:pitch?)
> #{ \override Stem #'direction =
> #(lambda (grob) (if (ly:pitch<? (ly:event-property (event-cause grob)
> 'pitch) p) UP DOWN))
> #})
>
> \new Voice {
> \relative c' { \StemSplit e'' c d e f g a b c d e f g a b c }
> }
Looks cool, but breaks with beamed notes:
StemSplit =
#(define-music-function (parser location p) (ly:pitch?)
#{ \override Stem #'direction =
#(lambda (grob) (if (ly:pitch<? (ly:event-property (event-cause grob)
'pitch) p) UP DOWN))
#})
\relative f' {
\time 2/4
\StemSplit d''
f8 a g b
a c b d
c e d f
}
_______________________________________________
bug-lilypond mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/bug-lilypond
