[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Forcer l'espace vertical dans un markup
From: |
joel . gauvrit |
Subject: |
Forcer l'espace vertical dans un markup |
Date: |
Sat, 22 Jan 2022 16:49:12 +0100 (CET) |
Bonjour à tous,
Je souhaite que la dernière ligne de texte dans l'exemple ci-dessous soit plus
proche de la ligne de texte située juste au-dessus.
Je ne vois pas comment faire...
\markup \column {
\justify {
Voici une série de 5 solfèges contrepointant la gamme.
}
\vspace #0.25
\justify {
Observez le traitement de la gamme essentiellement en \italic gymel...
}
\justify {
Notez les \italic "cadences d’alto" sous les \italic "cadences de soprano" ou
de \italic tenor.
}
\justify { C’est l’occasion d’aborder la \italic "cadence longue" dont voici
l’archétype à quatre
voix :
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\score {
<<
\new Staff \with {
\override Clef.stencil = #
(lambda (grob)(grob-interpret-markup grob
#{ \markup
\raise #2.6
\concat
{ \hspace #2 \fontsize #-3 \musicglyph #"clefs.G"
\hspace #-3.6 \lower #2.6 \fontsize #-3.4
\musicglyph
#"clefs.C"
\hspace #0.2 \lower #5.4 \fontsize #-1.2 \musicglyph #"clefs.F"
}
#}))
\omit TimeSignature
\override StaffSymbol.line-count = #7
\override StaffSymbol.staff-space = #1.4
\override StaffSymbol.thickness = #1.4
}
<<
\new Voice \with {}
\transpose c c {\relative c'' { \time 7/4
\accidentalStyle forget \clef "mensural-c3"
\override NoteHead.color = "#FF3333"
\override Accidental.color = "#FF3333"
\set Timing.defaultBarType = ""
\omit Stem
\override NoteColumn.ignore-collision = ##t
\small
c4 c c b c
}}
%--------------------
\new Voice \with { }
\transpose c c {\relative c'' {
\accidentalStyle forget
\set Timing.defaultBarType = ""
\override NoteHead.color = "#33FF33"
\override Accidental.color = "#33FF33"
\omit Stem
\override NoteColumn.ignore-collision = ##t
\small
g4 a a g g
}}
%--------------------
\new Voice \with { }
\transpose c c {\relative c' {
\accidentalStyle forget
\override NoteHead.color = "#3333FF"
\override Accidental.color = "#3333FF"
\set Timing.defaultBarType = ""
\omit Stem
\override NoteColumn.ignore-collision = ##t
\small
e4 e d d e
}}
%--------------------
\new Voice \with { }
\transpose c c {\relative c' {
\accidentalStyle forget
\set Timing.defaultBarType = ""
\override NoteHead.color = "#663300"
\override Accidental.color = "#663300"
\omit Stem
\override NoteColumn.ignore-collision = ##t
\small
c4 a f g c,
}}
>>
%--------------------
>>
%%%%%%%%%%%%%%%%%
\layout {
ragged-last = ##t
indent = #0
\override Staff.BarLine.transparent = ##t
\override Staff.Slur.transparent = ##f
\context {
\Score
\omit BarNumber
}
}
}
}}
- Forcer l'espace vertical dans un markup,
joel . gauvrit <=