Subject: Re: trilles de contemporains

From: Éditions IN NOMINE<[email-masked]>
Date: Tue, 30 Aug 2011 13:09:37 +0200

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 }

---

From: Éditions IN NOMINE<[email-masked]>
Date: Tue, 30 Aug 2011 13:10:41 +0200

plus précisément il s'agit du mi suivant : \relative c' {e}

Éditions IN NOMINE a écrit :
> 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é :
>
> _______________________________________________
> liste de diffusion lilypond-user-fr
> [email-masked]
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
>

---

From: Éditions IN NOMINE<[email-masked]>
Date: Tue, 30 Aug 2011 14:42:42 +0200

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 }