Re: Adding 3-column section to score

[Thomas Morley]

2012/11/17 Olivier Biot <address@hidden>:
> 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?)
[...]

Hi Olivier,

I do like this \columns-command and from my point of view it
_is_elegant and _not_ verbose.
I'd recommend to store more stuff in variables.

If you prefer a version without \columns you may want to use this:

\version "2.16.0"

txt¹ = \markup {
   \override #'(line-width . 32) {
      \column {
         \huge \bold \fill-line { Bemerkungen }
         \wordwrap { % Deutsch
            \bold { N° 30. } Crantz Ausgabe T. 11: cis \bold { e } gis:
         }
      }
   }
}

txt² = \markup {
   \override #'(line-width . 36) {
      \column {
         \huge \bold \fill-line \italic { Remarques }
         \wordwrap \italic { % Français
            \bold {N° 30.} Édition Crantz, mesure 11: do dièse  \bold
{ mi } sol dièse:
         }
      }
   }
}

txt³ = \markup {
   \override #'(line-width . 36) {
      \column {
         \huge \bold \fill-line { Notes }
         \wordwrap { % English
            \bold {N° 30.} Crantz Edition, mesure 11: C sharp \bold {
E natural } G sharp:
         }
      }
   }
}

mus = \markup {
    % 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 }
    }
}

\markup
   \override #'(box-padding . 1)
   \rounded-box \center-column {
        \fill-line { \txt¹ \txt² \txt³ }
        \vspace #0.1
        \mus
}


HTH,
  Harm