Re: Rapprocher deux portées comportant des markup (flèches)

[Gilles TIAR]

Merci Jean,

C’est exactement, exactement, ce que je cherchais, et depuis des années

Comme tu le dis, c’est « infiniment plus simple » ; mais je n’ai pas cessé de me casser la tête sans succès pour ne pas parvenir à cette simplicité. Je suis passé à côté du petit paragraphe que tu cites.

Je suis enfin parvenu au rendu que je voulais, ci-dessous se trouve mon code actuel. Je le partage, car je suis toujours à l’affût de conseils d’amélioration et de simplification

J’ai souvent souhaité qu’il puisse exister sur la liste une sorte de section consacrée, non aux problèmes, mais à l’élégance des codes :

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

\version "2.23.0"

\language français

\include "teamim_code.ly"

clefAjout = { \break \set Staff.explicitClefVisibility = #end-of-line-invisible \set Staff.forceClef = ##t \clef treble }

melody = \relative do' {

mi8 [mi] fa^\markup {

\center-column {

\combine

\draw-line #'(0 . 3) % (épaisseur.longueur de la ligne)

\arrow-head #Y #DOWN ##f

}

} mi [mi] sold mi mi16 [(re)] mi8\noBeam \breathe\clefAjout

mi mi [mi] mi16 [(fa^\markup {

\center-column {

\combine

\draw-line #'(0 . 3) % (épaisseur.longueur de la ligne)

\arrow-head #Y #DOWN ##f

}

})] mi8 mi [mi] re

}

\paper {

annotate-spacing = ##t

page-breaking = #ly:one-page-breaking

system-system-spacing.basic-distance = #22

indent = 6\mm

paper-width = 13\cm

line-width = 13\cm

bottom-margin = -7.5\mm

top-margin = 0

tagline = ##f

top-system-spacing = #'(

(basic-distance . 0)

(minimum-distance . 0)

(stretchability . 0))

last-bottom-spacing = #'(

(basic-distance . 0)

(minimum-distance . 0)

(stretchability . 0))

}

traduc = \lyricmode {

16se leva8. / Abraham4 de8 bon matin, 8.il4 sangla son âne

}

paroles = \lyricmode {

va -- Yash -- kém av -- ra -- ham ba -- bo -- kér

va -- Ya -- \markup\concat{\underline "h""a"} -- vosch

ét \markup\concat{\underline "h""a"} -- mo -- ro

}

teamiminf = \lyricmode {

\hide \sillouk _ _ _ _ _ _ _ _ _

\sillouk

}

teamimsup = \lyricmode {

_ _ \pashta _ _ \geresh _ \revia _

_ _ _ \tweak X-offset #4 \pashta _ _ _ \zakef_katon

}

\layout {

\context {

\Staff

\remove Time_signature_engraver

\remove Bar_engraver

}

\context {

\Score

\remove Timing_translator

\remove Bar_number_engraver

\override SpacingSpanner.spacing-increment = 3

}

}

\score {

<<

\new Lyrics \with {

\override LyricText.font-shape = #'italic

fontSize = -2

}\traduc

\new Staff

<<

\new Voice = "chant" \melody

\new Lyrics \with {

fontSize = -0.75

\override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #3

\override VerticalAxisGroup.nonstaff-nonstaff-spacing

= #'((basic-distance . 0)

(minimum-distance . 0)

(padding . 0))

}

\lyricsto "chant" \paroles

\new Lyrics \with {

fontSize = 9.5

}

\lyricsto "chant" \teamiminf

\new Lyrics \with {

fontSize = 9.5

}

\lyricsto "chant" \teamimsup

>>

>>

}

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

Cordialement,