\version "2.12.3"
myText = \markup {
\override #'(line-width . 50)
\wordwrap {
blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah
}
}
\markup {
\fill-line { "" "" \myText }
}
\version "2.12.3"
myText = \markup {
\override #'(line-width . 50)
\override #'(text-direction . -1 )
\justify {
Die Worte sind in der falschen Reihenfolge blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah
}
}
\markup {
\fill-line { "" "" \myText }
}
\version "2.12.3"
#(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 (wordwrapRight layout props args)
(markup-list?)
(general-column RIGHT 3 (wordwrap-internal-markup-list layout props #f args)))
% Beispiel:
\markup { \fill-line {
" "
\override #'(line-width . 70) \wordwrapRight {
Dieses Text bleibt auch beim Zeilenbruch RECHTS. Dieses Text bleibt auch beim Zeilenbruch
RECHTS. Dieses Text bleibt auch beim Zeilenbruch RECHTS. Dieses Text bleibt auch beim
Zeilenbruch RECHTS. Dieses Text bleibt auch beim Zeilenbruch RECHTS. Dieses Text bleibt auch
beim Zeilenbruch RECHTS. Dieses Text bleibt auch beim Zeilenbruch RECHTS. Dieses Text bleibt
auch beim Zeilenbruch RECHTS. Dieses Text bleibt auch beim Zeilenbruch RECHTS. Dieses Text
bleibt auch beim Zeilenbruch RECHTS. Dieses Text bleibt auch beim Zeilenbruch RECHTS.
Dieses Text bleibt auch beim Zeilenbruch RECHTS. Dieses Text bleibt auch beim Zeilenbruch
RECHTS. Dieses Text bleibt auch beim Zeilenbruch RECHTS. Dieses Text bleibt auch beim
Zeilenbruch RECHTS. Dieses Text bleibt auch beim Zeilenbruch RECHTS. Dieses Text bleibt auch
beim Zeilenbruch RECHTS.}
" "
}
}
\markup { \fill-line {
" "
\override #'(line-width . 40) \fontsize #'4 \wordwrapRight {
Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
do eiusmod tempor incididunt ut labore et dolore magna aliqua.
Ut enim ad minim veniam, quis nostrud exercitation ullamco
laboris nisi ut aliquip ex ea commodo consequat. }
" "
}
}
%{
Anmerkung:
Die baseline-skip ist jetzt hard-coded und kann nur noch in der Definition geändert werden.
Hier ist es die 3 in:
#(define-markup-command (wordwrapRight layout props args)
(markup-list?)
(general-column RIGHT 3 (wordwrap-internal-markup-list layout props #f args)))
Das habe ich leider nicht anders hinbekommen.
%}
\version "2.14.0"
% Defines right-aligned and centered text.
% Code is taken from ./scm/define-mark-up-commands.scm and just slightly modified.
#(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 (textRight layout props args)(markup-list?)
#:properties ((baseline-skip))
(general-column RIGHT baseline-skip (wordwrap-internal-markup-list layout props #f args)))
#(define-markup-command (textCenter layout props args)(markup-list?)
#:properties ((baseline-skip))
(general-column CENTER baseline-skip (wordwrap-internal-markup-list layout props #f args)))
% ------------------------------------------------------------------------------
% example
\markup {
\column {
\fill-line {
\null
\override #'(baseline-skip . 4)
\override #'(line-width . 40)\textRight {
Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
do eiusmod tempor incididunt ut labore et dolore magna aliqua.
Ut enim ad minim veniam, quis nostrud exercitation ullamco
laboris nisi ut aliquip ex ea commodo consequat.}
}
\null\null\null
\fill-line {
\null
\override #'(baseline-skip . 6)
\override #'(line-width . 40)\textCenter {
Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
do eiusmod tempor incididunt ut labore et dolore magna aliqua.
Ut enim ad minim veniam, quis nostrud exercitation ullamco
laboris nisi ut aliquip ex ea commodo consequat.}
\null
}
\null\null\null
% common wordwrap:
\fill-line {
\override #'(line-width . 40)\wordwrap {
Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
do eiusmod tempor incididunt ut labore et dolore magna aliqua.
Ut enim ad minim veniam, quis nostrud exercitation ullamco
laboris nisi ut aliquip ex ea commodo consequat.}
\null
}
}
}