Is there a more elegant and less verbose way than the following approach to add a 3-column section for documenting editorial changes to scores?
%% BEGIN \version "2.16.0" % LSR snippet: http://lsr.dsi.unimi.it/LSR/Snippet?id=464 #(define-markup-command (columns layout props args) (markup-list?) (let ((line-width (/ (chain-assoc-get 'line-width props (ly:output-def-lookup layout 'line-width)) (max (length args) 1)))) (interpret-markup layout props (make-line-markup (map (lambda (line) (markup #:pad-to-box `(0 . ,line-width) '(0 . 0) #:override `(line-width . ,line-width) line)) args))))) \markup { \rounded-box \center-column { \huge \bold \fill-line { \hspace #1 Bemerkungen \hspace #2 \italic { Remarques } \hspace #2 Notes \hspace #1 } \normalsize \columns { \column { \wordwrap { % Deutsch \bold {N° 30.} Crantz Ausgabe T. 11: cis \bold { e } gis: } } \column { \wordwrap \italic { % Français \bold {N° 30.} Édition Crantz, mesure 11: do dièse \bold { mi } sol dièse: } } \column { \wordwrap { % English \bold {N° 30.} Crantz Edition, mesure 11: C sharp \bold { E natural } G sharp: } } } % Music annotation \score { \new Staff \with { \override Fingering #'add-stem-support = ##t \override Fingering #'avoid-slur = #'outside \override TupletBracket #'bracket-visibility = ##t fontSize = #-3 \override StaffSymbol #'staff-space = #(magstep -3) \override StaffSymbol #'thickness = #(magstep -3) \remove "Time_signature_engraver" } { \key fis \minor \time 4/4 \clef bass \bar "" \set Score.currentBarNumber = #11 cis2 ~ cis8 cis-. e?-. gis-. } \layout { ragged-right = ##t } } } } %% END Best regards, Olivier
_______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
