Re: double-stem-for-half-notes

[Gloops]

Bonjour !
Effectivement Christophe a raison...
J’avais déjà penser à cette solution mais dans la version suivante cela ne
fonctionne pas...
En tout cas merci de participer !
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)))


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

%%%%% 



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