Re: trilles de contemporains

[Éditions IN NOMINE]

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