Re: ligne supplémentaire de guidon

[Jean Abou Samra]

Le 25/01/2022 à 11:40, Xavier Scheuer a écrit :
> On Tue, 25 Jan 2022 at 11:13, <joel.gauvrit@free.fr> wrote:
> >
> > Bonjour à tous,
> >
> > Je cherche à graver une ligne supplémentaire pour un guidon situé 
> hors portée.
> > Savez-vous comment procéder ?
>
> Bonjour,
>
> Il y a un bug ouvert à ce sujet, avec un workaround.
> https://gitlab.com/lilypond/lilypond/-/issues/6055


Bonjour,

Permettez-moi de saisir l'occasion de ce fil pour poser
une question. Il est très facile de régler le bug en question,
sauf que la manière dont la taille des lignes supplémentaires
est calculée par défaut les rend trop courtes, comme on
peut le voir sur l'image en pièce jointe. C'est pour
cela que le code d'Aaron modifie la taille, avec des
valeurs qu'il a choisies. Voici une version de ce code
légèrement modifiée pour qu'il soit possible de régler
indépendamment la longueur à gauche et la longueur à
droite :


\version "2.22.1"

#(define custos-ledger-paddings
   '((vaticana . (-0.25 . 0.25))
     (medicaea . (-0.25 . 0.25))
     (hufnagel . (-0.15 . 0.15))
     (mensural . (-0.0 . 0.0))))

Custos_Ledger_Lines_engraver =
#(make-engraver
   (acknowledgers
     ((custos-interface engraver custos source)
       (let ((pad (assq-ref custos-ledger-paddings (ly:grob-property 
custos 'style)))
             (sten (ly:grob-property custos 'stencil))
             (nh (ly:engraver-make-grob engraver 'NoteHead custos)))
         (ly:grob-set-property! nh 'non-musical #t)
         (ly:grob-set-property!
          nh
          'stencil
          (ly:make-stencil
           (ly:stencil-expr sten)
           (coord-translate (ly:stencil-extent sten X)
                            pad)
           (ly:stencil-extent sten Y)))
         (ly:grob-set-parent! nh X custos)
         (ly:grob-set-parent! nh Y custos)))))

\paper { indent = 0 ragged-right = ##t }
\new Staff \with { \omit TimeSignature
   \consists Custos_engraver
   \consists \Custos_Ledger_Lines_engraver }
{ <a c'''>2. r4 \override Staff.Custos.style = #'vaticana \break
   <a c'''>2. r4 \override Staff.Custos.style = #'medicaea \break
   <a c'''>2. r4 \override Staff.Custos.style = #'hufnagel \break
   <a c'''>2. r4 \override Staff.Custos.style = #'mensural \break
   <a c'''>2. r4^\markup \transparent \draw-line #'(9 . 0) }



Ma question aux experts de musique ancienne est : les
valeurs d'Aaron vous semblent-elles bonnes du point de
vue typographique, et sinon, quelles valeurs choisiriez-vous ?
Vous pouvez les ajuster dans la définition de
custos-ledger-paddings au début du code et voir le rendu
sur l'exemple.

Merci,
Jean

Lignes_supplémentaires_guidons.png
Description: PNG image