[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: trilles de contemporains
From: |
Éditions IN NOMINE |
Subject: |
Re: trilles de contemporains |
Date: |
Tue, 30 Aug 2011 14:42:42 +0200 |
User-agent: |
Thunderbird 2.0.0.24 (X11/20101027) |
Je continue mes investigations.
J'ai finalement retrituré le code de Cécile (cf ci-dessous -
essentiellement des centrages et redimensionnements, rien de bien cérébral).
J'ai donc deux soucis à résoudre :
1. les ledger lines des petites notes du markup
2. je viens de m'apercevoir de l'apparition d'une ligne verticale
discontinue sous la courbe. Sorte de Stem accroché à cette courbe qui,
rappellons-le est une noteHead.
Any idea ?
Merci d'avance !
JMarc
courbepostscript = #"
% Largeur de ligne
0.2 setlinewidth
% Une tite vague
% x y moveto : place le curseur au point de coordonnées x y
% x1 y1 x2 y2 x3 y3 curveto : trace une courbe tangente aux
points (x1 y1) (x2 y2) (x3 y3)
0 0 moveto 0 0 0.5 -0.4 1 0 curveto
1 0 moveto 1 0 1.45 0.45 1.9 0 curveto
1.9 0 moveto 1.9 0 2.3 -0.5 2.7 0 curveto
2.7 0 moveto 2.7 0 3.05 0.55 3.4 0 curveto
3.4 0 moveto 3.4 0 3.7 -0.6 4 0 curveto
4 0 moveto 4 0 4.25 0.65 4.5 0 curveto
4.5 0 moveto 4.5 0 4.7 -0.7 4.9 0 curveto
4.9 0 moveto 4.9 0 5.05 0.75 5.2 0 curveto
5.2 0 moveto 5.2 0 5.3 -0.8 5.4 0 curveto
5.4 0 moveto 5.4 0 5.5 0.8 5.6 0 curveto
5.6 0 moveto 5.6 0 5.7 -0.8 5.8 0 curveto
5.8 0 moveto 5.8 0 5.95 0.75 6.1 0 curveto
6.1 0 moveto 6.1 0 6.3 -0.7 6.5 0 curveto
6.5 0 moveto 6.5 0 6.75 0.65 7 0 curveto
7 0 moveto 7 0 7.3 -0.6 7.6 0 curveto
7.6 0 moveto 7.6 0 7.95 0.55 8.3 0 curveto
8.3 0 moveto 8.3 0 8.7 -0.5 9.1 0 curveto
9.1 0 moveto 9.1 0 9.55 0.45 10 0 curveto
10 0 moveto 10 0 10.5 -0.4 11 0 curveto
% Des p'tits points
% x y r a b arc : trace un arc de centre x y, de rayon r, l'angle
est défini par a et b
% ici on voulait un cercle, donc un arc de 360°
% en fait c'est plutôt un point que l'on voulait, donc le rayon
est de la moitié de l'épaisseur du trait
0 1 moveto 0 1 0.1 0 360 arc
5.5 1 moveto 5.5 1 0.1 0 360 arc
11 1 moveto 11 1 0.1 0 360 arc
stroke
"
trillContempo = {
\once \override NoteHead #'stencil = #ly:text-interface::print
\once \override NoteHead #'text = \markup { \postscript
#courbepostscript }
\once \override Stem #'transparent = ##t
\once \override LedgerLineSpanner #'transparent = ##t
}
trillNoteMarkup = \markup {
\tiny {
\translate #'(-0.2 . 0) \column{\line{\hspace #0.2 \raise #-1.8
\flat} \line{\note-by-number #2 #0 #0 }}
\translate #'(0.2 . -1) \rotate #10
\line {
\combine
\draw-line #'(2.7 . 0)
\hspace #2.7 \arrow-head #X #RIGHT ##f
}
\translate #'(-0.2 . 0.8) \column{\line{\hspace #0.2 \raise #-1
\natural} \line{\note-by-number #2 #0 #0 }}
\translate #'(0 . -1) \rotate #-10
\line {
\combine
\draw-line #'(2.7 . 0)
\hspace #2.7 \arrow-head #X #RIGHT ##f
}
\translate #'(-0.2 . 0) \column{\line{\hspace #0.2 \raise #-1.8
\flat} \line{\note-by-number #2 #0 #0 }}
} }
\score {
{
\clef F
\afterGrace e'1*1/4\trill {\override TextScript #'extra-offset =
#'(-0.4 . -1) \trillContempo e'8^\trillNoteMarkup} s2.
}
}
\paper { ragged-right = ##f }
Éditions IN NOMINE a écrit :
plus précisément il s'agit du mi suivant : \relative c' {e}
Éditions IN NOMINE a écrit :
Bonjour à toute la troupe !
J'ai pu modifier légèrement le code de Cécile pour ajouter sous les
altérations une noteHead, mais le souci est que la noteHead en
question est un mi aigu en clé de Fa, et que j'ai besoin de
ledgerLines... Sauriez-vous me dire comment insérer la note avec ses
lignes supplémentaires ?
Merci d'avance !
JMarc
Voici le code modifié :
trillNoteMarkup = \markup {
\tiny {
\translate #'(-0.2 . 0) \center-column{\line{\raise #-1.5 \flat}
\line{\note-by-number #2 #0 #0 }}
\translate #'(0 . 0.2) \rotate #10
\line {
\combine
\draw-line #'(2.7 . 0)
\hspace #2.7 \arrow-head #X #RIGHT ##f
}
\translate #'(0 . 0.5) \center-column{\line{\raise #-1.5 \natural}
\line{\note-by-number #2 #0 #0 }}
\translate #'(0 . 0.2) \rotate #-10
\line {
\combine
\draw-line #'(2.7 . 0)
\hspace #2.7 \arrow-head #X #RIGHT ##f
}
\translate #'(-0.2 . 0) \center-column{\line{\raise #-1.5 \flat}
\line{\note-by-number #2 #0 #0 }}
} }
\score {
{
\clef F
\afterGrace e1*1/4\trill {\trillContempo e8^\trillNoteMarkup} s2.
}
}
\paper { ragged-right = ##f }
_______________________________________________
liste de diffusion lilypond-user-fr
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr