Subject: Underline / Lyrics

From: Remy CLAVERIE <[email-masked]>
Date: Sat, 27 Feb 2016 12:51:11 +0100 (CET)

Bonjour à tous,

Je souhaitais souligner des Lyrics mais j'ai vu sur la liste "lilypind-user" que ce n'était pas possible.

L'un de vous sait-il si c'est en préparation dans une prochaine version ?

Merci

Bon WE,

Rémy

---

From: Christophe Pochon <[email-masked]>
Date: Sat, 27 Feb 2016 15:40:41 +0100

J'ai trouvé une solution ici :

http://lilypond.1069038.n5.nabble.com/underline-in-lyrics-td12599.html

C'est écrit pour la 2.13 (il y a un fichier à télécharger presque tout à la
fin de la discussion), et j'ai testé sur la 2.19 et ça fonctionne :-)

A+

Christophe

Christophe Pochon
http://www.christophe-pochon.com

Le 27 février 2016 à 12:51, Remy CLAVERIE <[email-masked]> a écrit
:

> Bonjour à tous,
>
>
>
> Je souhaitais souligner des Lyrics mais j'ai vu sur la liste
> "lilypind-user" que ce n'était pas possible.
>
> _______________________________________________
> liste de diffusion lilypond-user-fr
> [email-masked]
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
>
>

---

From: Remy CLAVERIE <[email-masked]>
Date: Sat, 27 Feb 2016 17:12:17 +0100 (CET)

Cool merci Christophe, cet artcile m'avait échappé !

Bon WE,

Rémy

 

> Message du 27/02/16 15:41
> De : "Christophe Pochon" 
> A : "Remy CLAVERIE" 
> Copie à : "LilyPond" 

> Objet : Re: Underline / Lyrics
> 
>
J'ai trouvé une solution ici :

C'est écrit pour la 2.13 (il y a un fichier à télécharger presque tout à la fin de la discussion), et j'ai testé sur la 2.19 et ça fonctionne :-)

A+

Christophe

Christophe Pochon

Le 27 février 2016 à 12:51, Remy CLAVERIE  a écrit :

---

From: "Daniel Bernair" <[email-masked]>
Date: Sun, 28 Feb 2016 10:48:08 +0100

Bonjour à tous.
Etant très intéressé par cette possibilité de surlignage des paroles en Lyricmode, j’ai donc exécuté  “ underline-2.13.ly (7K) Download Attachment ” et apparemment il a été bien installé. cependant, cela ne fonctionne que sur une syllabe. faut-il faire un include de ceet attachment dans la source de la partition ?  Voici ce que j’ai simplement fait : 
Dans le  Lyricmode  { ..... 
- y -- - % 10

\markup { \underline son, e} -- - - % 11

- le -- - y -- %12 

"son]" % 12

Et seulement le son, de la mesure 11 est souligné. En fait, je voulais seulement changer la couleur n rouge des corrections pour que le contrôleur ait plus facile. Mais j’avais abandonné car trop compliqué. 

Toutes les idées sont les bienvenues.

Merci

Daniel Bernair

De : Christophe Pochon 
Date : samedi 27 février 2016 15:40
À : Remy CLAVERIE 
Cc : LilyPond 
Objet : Re: Underline / Lyrics

A+

Christophe

Christophe Pochon

Le 27 février 2016 à 12:51, Remy CLAVERIE <[email-masked]> a écrit :

  Bonjour à tous,

  Merci

  Bon WE,

  Rémy

--------------------------------------------------------------------------------
_______________________________________________
liste de diffusion lilypond-user-fr
[email-masked]
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr

---

From: Remy CLAVERIE <[email-masked]>
Date: Sun, 28 Feb 2016 11:10:51 +0100 (CET)

Bonjourr Bernard.

Ci-joint, mon fichier underline.ily, qui fonctionne pour la version 2.16.2, qu'il faut inclure dans ton fichier (\include "underline.ily"}

Dans les Lyrics, il faut faire :

Paroles = \lyricmode {

À \startTextSpan la clai -- re fon -- tai -- ne \stopTextSpan

}

Et cela devrait fonctionner !

Bon dimanche

Rémy

 

> Message du 28/02/16 10:48
> De : "Daniel Bernair" 
> A : "Christophe Pochon" , "Remy CLAVERIE" 
> Copie à : "LilyPond" 

> Objet : Re : Underline / Lyrics et changement de couleur
> 
>

Bonjour à tous.

- le -- - y -- %12

"son]" % 12

Merci

Daniel Bernair

De : Christophe Pochon

 

A+
 
Christophe

Christophe Pochon

Le 27 février 2016 à 12:51, Remy CLAVERIE  a écrit :

---

From: Remy CLAVERIE <[email-masked]>
Date: Sun, 28 Feb 2016 11:32:09 +0100 (CET)

Bonjour Bernard,

Chez moi cela fonctionne. J'ai créer le fichier "underline.ily" ainsi :

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% File from Neil Puttochk
% Works from version 2.13 to 2.16.2
% code adapted from regression test `scheme-text-spanner.ly'

#(define (add-bound-item spanner item)
   (if (null? (ly:spanner-bound spanner LEFT))
       (ly:spanner-set-bound! spanner LEFT item)
       (ly:spanner-set-bound! spanner RIGHT item)))

#(define (axis-offset-symbol axis)
   (if (eq? axis X) 'X-offset 'Y-offset))

#(define (set-axis! grob axis)
   (if (not (number? (ly:grob-property grob 'side-axis)))
       (begin
         (set! (ly:grob-property grob 'side-axis) axis)
         (ly:grob-chain-callback
          grob
          (if (eq? axis X)
              ly:side-position-interface::x-aligned-side
              ly:side-position-interface::y-aligned-side)
          (axis-offset-symbol axis)))))

#(define (underline-engraver context)
   (let ((span '())
         (finished '())
         (current-event '())
         (event-drul '(() . ())))
     (list (cons 'listeners
                 (list (cons 'text-span-event
                             (lambda (engraver event)
                               (if (= START (ly:event-property event 'span-direction))
                                   (set-car! event-drul event)
                                   (set-cdr! event-drul event))))))
           (cons 'acknowledgers
                 (list (cons 'lyric-syllable-interface
                             (lambda (engraver grob source-engraver)
                               (if (ly:spanner? span)
                                   (begin
                                     (ly:pointer-group-interface::add-grob span 'note-columns grob)
                                     (add-bound-item span grob)))
                               (if (ly:spanner? finished)
                                   (begin
                                     (ly:pointer-group-interface::add-grob finished 'note-columns grob)
                                     (add-bound-item finished grob)))))))
           (cons 'process-music
                 (lambda (trans)
                   (if (ly:stream-event? (cdr event-drul))
                       (if (null? span)
                           (ly:warning "cannot find start of underline")
                           (begin (set! finished span)
                                  (ly:engraver-announce-end-grob trans finished current-event)
                                  (set! span '())
                                  (set! current-event '())
                                  (set-cdr! event-drul '()))))
                   (if (ly:stream-event? (car event-drul))
                       (begin (set! current-event (car event-drul))
                              (set! span (ly:engraver-make-grob trans 'TextSpanner current-event))
                              (set-axis! span Y)
                              (set-car! event-drul '())))))
           (cons 'stop-translation-timestep
                 (lambda (trans)
                   (if (and (ly:spanner? span)
                            (null? (ly:spanner-bound span LEFT)))
                       (set! (ly:spanner-bound span LEFT)
                             (ly:context-property context 'currentMusicalColumn)))
                   (if (ly:spanner? finished)
                       (begin
                         (if (null? (ly:spanner-bound finished RIGHT))
                             (set! (ly:spanner-bound finished RIGHT)
                                   (ly:context-property context 'currentMusicalColumn)))
                         (set! finished '())
                         (set! event-drul '(() . ()))))))
           (cons 'finalize
                 (lambda (trans)
                   (if (ly:spanner? finished)
                       (begin
                         (if (null? (ly:spanner-bound finished RIGHT))
                             (set! (ly:spanner-bound finished RIGHT)
                                   (ly:context-property context 'currentMusicalColumn)))
                         (set! finished '())))
                   (if (ly:spanner? span)
                       (begin
                         (ly:warning "unterminated underline")
                         (ly:grob-suicide! span)
                         (set! span '()))))))))

%%% Fin du fichier "underline.ily" %%%%%%%%

Et voici un exemple d'utilisation. Il est important de noter que dans la section \layout, le context Lyrics est trè important :

%%%%%%%%%%%%%%%%%% Exemple %%%%%%%%%%%%%%%%%%%%

\version "2.16.2"

\include "italiano.ly"

\include "underline.ily"

A_XXXIV = \relative do'' {

\key mi \major \time 3/4 \clef treble

\autoBeamOff

R2.*10 sold8.[(la16] si4) si dod8.[( red16] mi4) mi r8 mi([ red]) dod([ si la]) sold4 la sold

la4.( si16[ dod]) si4 red4( mi) la, \grace{sold8} fa2 dod' mi4 red sold, lad2 si r4 la!2 r4 la4 sold r R2.*2 la8.([ si16] dod4) dod si8.[( dod16] re4) re r8 re8[( dod]) si[( la sold]) la4 dod si lad2 si4 r fad mi'4 mi( red)

% Page 4

la!2 fad4 sold( la8) si fad2 mi4 sol sol sol2.\fermata r4 fad4 mi' mi( red!) la2 fad4 sold( la8) si fad2 mi r4 R2.*4 r4 sold8[( fad mi)] sold fad si la[( sold fad]) la \slurUp sold[( red mi la]) \slurNeutral sold4 r sold8[( fad mi])

sold8 fad si la[( sold fad]) la \slurUp sold[( red mi la]) \slurNeutral sold4 r la8[( sold la]) dod si mi re[( dod re]) re re[( dod si] re) dod4 r la8[( sold la]) dod8 si mi re[( dod re]) re re[( dod si re]) do4 r do fad, fa2 fad4 sold8.[( la16] si4) sold

la lad lad si do2 r4 dod red mi1 red4 lad4 do2. dod!2.

}

RAL_XXXIV = \lyricmode {

O \startTextSpan wie brich -- stu mir das Herz, Je -- su, Je -- su welch ein Schmerz, dich al -- so zu se -- hen? O Je -- su, \stopTextSpan o \startTextSpan wie brich -- stu mir das Herz Je -- su Je -- su welch ein Schmerz dich al -- so zu se -- hen, welch ein Schmerz welch ein Schmerz dich al -- so zu se -- hen. \stopTextSpan War \startTextSpan -- test du beÿ al -- ler Pla -- ge ob nicht je -- mand Wie seid tra -- ge, fin -- det solch ein Jam -- mer Rei -- nen men -- schlich gnug dich zu be -- wri -- nen o dir soll ein Le -- bens lang mei -- ne Thrä -- nen und mein Dank nicht ert -- ste -- hen. \stopTextSpan

}

\score {

\new Staff

<<

\new Voice = "A" { \A_XXXIV }

\new Lyrics \lyricsto "A" { \RAL_XXXIV }

%

\layout {

\context {

\Lyrics

\consists #underline-engraver

\override TextSpanner #'direction = #DOWN

\override TextSpanner #'style = #'line

\override TextSpanner #'outside-staff-priority = ##f

\override TextSpanner #'padding = #0.1 % sets the distance of the line from the lyrics

\override TextSpanner #'bound-details =

#`((left . ((Y . 0)

(padding . 0)

(attach-dir . ,LEFT)))

(left-broken . ((end-on-note . #t)))

(right . ((Y . 0)

(padding . 0)

(attach-dir . ,RIGHT))))

}

}

}

%%%%%%%%%%%% Fin de l'exemple %%%%%%%%%%%%%%%%%%

Boin dimanche,

Rémy

 

Bonjour à tous.

- le -- - y -- %12

"son]" % 12

Merci

Daniel Bernair

De : Christophe Pochon

 

A+
 
Christophe

Christophe Pochon

Le 27 février 2016 à 12:51, Remy CLAVERIE  a écrit :

---

From: "Daniel Bernair" <[email-masked]>
Date: Sun, 28 Feb 2016 11:41:10 +0100

Merci pour ton aide Remy, mais cela ne fonctionne pas. Je suis en Version 2.18.2 J’ai bien installé ton fichier.ily dans le dossier de cette partition, et j’ai fait l’include au début , avant toues tes variables contenant les notes et les paroles. Puis j’ai fait :  
- y -- - % 10

\startTextSpan "son," e -- - - % 11

- le -- - y -- %12 

"son]" \stopTextSpan % 12

"[Ky" -- %14

Mais il ignore totalement de souligner le texte. Puis j’ai essayé une de rajouter le \markup underline (avant ou après le satrtTextSpan mais dans ce cas seulement la première syllabe est soulignée. et le reste n’est pas correctement aligné.  

Amicalement

Daniel 

De : Remy CLAVERIE 
Date : dimanche 28 février 2016 11:10
À : Daniel Bernair ; Christophe Pochon 
Cc : LilyPond 
Objet : re: Re : Underline / Lyrics et changement de couleur

Bonjourr Bernard.

Paroles = \lyricmode {

}

Bon dimanche

Rémy

  > De : "Daniel Bernair" <[email-masked]>
  > A : "Christophe Pochon" <[email-masked]>, "Remy CLAVERIE" <[email-masked]>
  > Copie à : "LilyPond" <[email-masked]>
  Bonjour à tous.

  - le -- - y -- %12 

  "son]" % 12 

  Merci

  Daniel Bernair

  De : Christophe Pochon

  A+

  Christophe

  Christophe Pochon

------------------------------------------------------------------------------

---

From: "Daniel Bernair" <[email-masked]>
Date: Sun, 28 Feb 2016 12:06:00 +0100

Cher Remy,
Maintenant cela fonctionne correctement. J’ai effectué la conversion de ton fichier underline.ily vers la version 2.18.2 et j’ai aussi ajouté tes instructions définies dans le \layout  
Si quelqu’un avait une idée similaire pour les changements de couleur cela aiderait, mais ce n’est pas indispensable car qui dit couleurs dit imprimante couleurs photocopieuses couleurs etc... 
Merci,
Daniel

De : Daniel Bernair 
Date : dimanche 28 février 2016 11:41
À : Remy CLAVERIE ; Christophe Pochon 
Cc : LilyPond 
Objet : Re : Underline / Lyrics et changement de couleur

- le -- - y -- %12 

"[Ky" -- %14

Amicalement

Daniel 

De : Remy CLAVERIE 

Bonjourr Bernard.

Paroles = \lyricmode {

}

Bon dimanche

Rémy

  Bonjour à tous.

  - le -- - y -- %12 

  "son]" % 12 

  Merci

  Daniel Bernair

  De : Christophe Pochon

  A+

  Christophe

  Christophe Pochon

---

From: "Daniel Bernair" <[email-masked]>
Date: Sun, 28 Feb 2016 16:50:59 +0100

Cher Remy,
Ce n’est pas aussi simple que cela devrait. J’ai en effet un kyrie à quatre portées. Tout a été compilé sans problème avec les paroles. Puis je corrige le texte de la première voix en soulignant les modifications avec ta procédure et cela fonctionne bien pour toute la partition. J’entame donc la seconde portée des alto.  La première correction est bien soulignée mais à partir de la seconde cela dérape, le soulignage quand je n’ai pas un rejet du compilateur, est placé sur la première voix au lieu de la seconde. Si je supprime dans le score l’impression du lyric de la première voix, les corrections de la seconde voix sont bien imprimées.  
Le rejet du compilateur survient en fonction de la place de l’instruction \startTextSpan, le message est le suivant : 
underline.ily:63:24: wrong type argument in position 1:#<primitive-procedure  ly:spanner-bound  et l’instruction 63 dans underline.ily 
est :  (set! (ly:spanner-bound span LEFT) 
Je sais qu’il serait plus facile d’avoir des exemples mais cela va prendre du temps pour extraire ce qu’il faudrait. 
As-tu déjà rencontré ce problème ? 
Daniel

De : Daniel Bernair 
Date : dimanche 28 février 2016 12:06
À : Remy CLAVERIE ; Christophe Pochon 
Cc : LilyPond 
Objet : Re : Underline / Lyrics et changement de couleur

Cher Remy,

De : Daniel Bernair 

- le -- - y -- %12 

"[Ky" -- %14

Amicalement

Daniel 

De : Remy CLAVERIE 

Bonjourr Bernard.

Paroles = \lyricmode {

}

Bon dimanche

Rémy

  Bonjour à tous.

  - le -- - y -- %12 

  "son]" % 12 

  Merci

  Daniel Bernair

  De : Christophe Pochon

  A+

  Christophe

  Christophe Pochon

---

From: Denis Bitouzé <[email-masked]>
Date: Sun, 28 Feb 2016 17:56:49 +0100

Le 28/02/16 à 16h50, "Daniel Bernair" <[email-masked]> a écrit :

> Ce n’est pas aussi simple que cela devrait. [...]

J'hésitais à intervenir dans ce fil mais, vu les difficulté rencontrées,
je signale juste au passage que le soulignement est en général considéré
comme une mauvaise pratique typographique et qu'il est recommandé de
recourir plutôt à l'italique (quand le contexte est en romain, et en
romain quand le contexte est en italique -- ce qui, en LaTeX, s'obtient
facilement avec la commande \emph).

Avec LilyPond :

--8<---------------cut here---------------start------------->8---
\version "2.18.2"

emph = {
  \override Lyrics.LyricText.font-shape = #'italic
}

normalfont = {
  \revert Lyrics.LyricText.font-shape
}

\relative { \time 3/4 e'4 e4. e8 d4 e d c2. }
\addlyrics { "\"I" am \emph so\normalfont lone- "ly\"" said she }
--8<---------------cut here---------------end--------------->8---
-- 
Denis

---

From: Daniel Cartron <[email-masked]>
Date: Sun, 28 Feb 2016 18:53:23 +0100

Le dimanche 28 février 2016, 17:56:49 Denis Bitouzé a écrit :
> comme une mauvaise pratique typographique

Je plussoie... 

Pour moi la bible en matière de typographie est :
http://jacques-andre.fr/faqtypo/lessons.pdf
où l'auteur explique pages 21 et suivantes pourquoi il ne faut pas souligner.

-- 
Cordialement, Daniel Cartron
« Je concéderais volontiers que les femmes nous sont supérieures si cela 
pouvait les dissuader d'êtres nos égales. »
George Bernard Shaw

---

From: Remy CLAVERIE <[email-masked]>
Date: Sun, 28 Feb 2016 19:24:21 +0100 (CET)

J'ai le lexique de typogrpahie de l'IN au boulot (http://www.amazon.fr/Lexique-r%C3%A8gles-typographiques-lImprimerie-nationale/dp/2743304820).

Je regarderai ce qui est dit à propos du soulignage (pas avant mercredi). Ceci dit, il me semble au moins aussi important de regarder dans le bouquin de Elaine Gould ce qu'elle dit, mais je ne l'ai pas ...

Rémy

> Message du 28/02/16 19:07
> De : "Daniel Cartron" 
> A : [email-masked]
> Copie à : 
> Objet : Re: Underline / Lyrics et changement de couleur
>

---

From: Jean-Jacques Gerbaud <[email-masked]>
Date: Mon, 29 Feb 2016 01:43:04 +0100

Le 28/02/2016 11:32, Remy CLAVERIE a écrit :
> Et voici un exemple d'utilisation. Il est important de noter que dans la
> section \layout, le context Lyrics est trè important :
>
> la4.( si16[ dod]) si4 red4( mi) la, \grace{sold8} fa2 dod' mi4 red sold,
> lad2 si r4 la!2 r4 la4 sold r R2.*2 la8.([ si16] dod4) dod si8.[( dod16]
> re4) re r8 re8[( dod]) si[( la sold]) la4 dod si lad2 si4 r fad mi'4 mi(
> red)
>
> % Page 4
>
> la!2 fad4 sold( la8) si fad2 mi4 sol sol sol2.\fermata r4 fad4 mi' mi(
> red!) la2 fad4 sold( la8) si fad2 mi r4 R2.*4 r4 sold8[( fad mi)] sold
> fad si la[( sold fad]) la \slurUp sold[( red mi la]) \slurNeutral sold4
> r sold8[( fad mi])
>
> sold8 fad si la[( sold fad]) la \slurUp sold[( red mi la]) \slurNeutral
> sold4 r la8[( sold la]) dod si mi re[( dod re]) re re[( dod si] re) dod4
> r la8[( sold la]) dod8 si mi re[( dod re]) re re[( dod si re]) do4 r do
> fad, fa2 fad4 sold8.[( la16] si4) sold
>
> O \startTextSpan wie brich -- stu mir das Herz, Je -- su, Je -- su welch
> ein Schmerz, dich al -- so zu se -- hen? O Je -- su, \stopTextSpan o
> \startTextSpan wie brich -- stu mir das Herz Je -- su Je -- su welch ein
> Schmerz dich al -- so zu se -- hen, welch ein Schmerz welch ein Schmerz
> dich al -- so zu se -- hen. \stopTextSpan War \startTextSpan -- test du
> beÿ al -- ler Pla -- ge ob nicht je -- mand Wie seid tra -- ge, fin --
> det solch ein Jam -- mer Rei -- nen men -- schlich gnug dich zu be --
> wri -- nen o dir soll ein Le -- bens lang mei -- ne Thrä -- nen und mein
> Dank nicht ert -- ste -- hen. \stopTextSpan
>
> }
>
> \score {
>
> \new Staff
>
> <<
>

Bonjour à tous,

Je viens de "vérifier" si tout fonctionnait.

J'ai enregistré le fichier "underline.ily" (pas mal torché !) et le 
fichier "essai_underline.ly".

La compilation se fait normalement mais *tout  le texte* est souligné, 
sans aucune interruption.

Par contre si je modifie la ligne RAL_XXXIV = \lyricmode {
en y rajoutant, tout simplement la ligne

\override LyricText #'color = #blue

Tout le texte est en bleu, ce que demandait notre ami Daniel Bernair

Pour le soulignage avec interruptions je ne suis pas calé du tout en 
Scheme pour m'y atteler.

Bonne continuation

-- 
JJG
Ecoutez la musique "classique", ça détend !
découvrez l'histoire de votre famille : http://memoire-des-hommes.fr/

---

From: "Daniel Bernair" <[email-masked]>
Date: Mon, 29 Feb 2016 07:44:44 +0100

Merci à vous tous pour votre aide. Le résultat des tests est : le surlignage 
dans sa forme actuelle pose problèmes. Le choix typographique en Italic 
fonctionne très bien, mais n'est pas très visible. L'usage de la couleur 
fonctionne très bien en  alternant  \override LyricText #'color = #red  et 
\override LyricText #'color = #black à chaque début et fin de corrections, 
c'est parfait.
Ce sera d'autant plus facile à utiliser que dans les lyrics, j'utilise une 
variable staU que j'avais définie pour ne pas devoir taper à chaque fois 
\startTextSpan et stoU pour \stopTextSpan
ainsi, quand mon vérificateur aura terminé je remplace la couleur rouge par 
noire.
Remy, je t'envoie séparément ma partition complète.
Amicalement,
Daniel Bernair
-----Message d'origine----- 
De : Jean-Jacques Gerbaud
Date : lundi 29 février 2016 01:43
À : Remy CLAVERIE ; Daniel Bernair ; Christophe Pochon
Cc : LilyPond
Objet : Re: Re : Underline / Lyrics et changement de couleur

Bonjour à tous,

Bonne continuation