double-stem-for-half-notes

[Gloops]

Bonjour!
Quelqu'un peut il m'aider à n'appliquer cette fonction qu'au style de tête
de note "xcircle" ,et si possible de manière automatique...
Gilles
%%%%

\version "2.18.2"
\header {
 title = "double-stem-for-half-notes pour xcircle style"
}

#(define (double-stem-for-half-notes grob)
    (let ((stem (ly:stem::print grob)))
    (if (= 1 (ly:grob-property grob 'duration-log))
        (if (= 1 (ly:grob-property grob 'direction))
            (ly:stencil-combine-at-edge stem X LEFT stem 0.3)
            (ly:stencil-combine-at-edge stem X RIGHT stem 0.3))
        stem)))


\score {
 {
  \override NoteHead.style = #'xcircle c''2 c' \defaultNoteHeads c'' c'}
 \layout {
  \context {
   \Voice
 \override Stem.stencil = #double-stem-for-half-notes
  }
 }
 \midi {}
}

%%%%%

 



--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/