How about this alternative ? (just a quick thought, could have some mistakes). Cheers Pierre
\version "2.18.2"
#(set-default-paper-size "letter" 'landscape)
#(define (general-column align-dir baseline mols)
(let* ((aligned-mols (map (lambda (x) (ly:stencil-aligned-to x X align-dir)) mols)))
(stack-lines -1 0.0 baseline aligned-mols)))
#(define-markup-command (textLeft layout props args)(markup-list?)
#:properties ((baseline-skip))
(general-column LEFT baseline-skip (wordwrap-internal-markup-list layout props #f args)))
myMusic = {
\repeat unfold 4
\relative c' { c d e f g a b c }
\tweak break-visibility #begin-of-line-invisible
\tweak self-alignment-X #LEFT
\tweak extra-offset #'(2 . -5)
\mark\markup\italic {
\override #'(baseline-skip . 3)
\override #'(line-width . 20)
\textLeft {
Here's a first annotation.
}
}
\repeat unfold 4
\relative c' { c d e f g a b c }
\relative c' {
c d e f
\tweak break-visibility #begin-of-line-invisible
\tweak self-alignment-X #LEFT
\tweak extra-offset #'(2 . -5)
\mark\markup\italic {
\override #'(baseline-skip . 3)
\override #'(line-width . 20)
\textLeft {
Here's a second annotation.
}
}
g a b c
}
\repeat unfold 31
\relative c' { c d e f g a b c }
\tweak break-visibility #begin-of-line-invisible
\tweak self-alignment-X #LEFT
\tweak extra-offset #'(2 . -7)
\mark\markup\italic {
\override #'(baseline-skip . 3)
\override #'(line-width . 20)
\textLeft {
Here's another one, maybe a little longer.
}
}
\repeat unfold 26
\relative c' { c d e f g a b c }
\relative c' {
<<
{
c d e f
\bar "||"
\tweak break-visibility #begin-of-line-invisible
\mark\markup\musicglyph #"scripts.segno"
\break
g a b c
}
\\
\new Voice \with { \consists "Mark_engraver" }
{
s1
\tweak break-visibility #begin-of-line-invisible
\tweak self-alignment-X #LEFT
\tweak extra-offset #'(2 . -10)
\tweak color #red
\mark\markup\bold\italic {
\override #'(baseline-skip . 3)
\override #'(line-width . 20)
\textLeft {
Tricky (see warnings)!
}
}
s
}
>>
}
\repeat unfold 13
\relative c' { c4 d e f g a b c }
\bar "|."
}
\score {
\myMusic
\layout {
line-width = 9\in
}
}
bricAlternative.pdf
Description: Adobe PDF document
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
