[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: double-stem-for-half-notes
From: |
Gloops |
Subject: |
Re: double-stem-for-half-notes |
Date: |
Thu, 14 Feb 2019 04:17:41 -0700 (MST) |
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/