Hi Martin and David,

> I've adapted scoreTitleMarkup to get the increased space you want:

For [IMO] an even more elegant solution, use the \put-mm function (can't 
remember who wrote it? and shouldn't it be in the base code by now??).
This allows you to avoid all those \column groupings and baseline overrides, 
and the adjustments (in mm) are more intuitive.

Hope this helps!
Kieren.
_____________________

\version "2.14.2"

#(define-markup-command (mm-feed layout props amount) (number?)
(let ((o-s (ly:output-def-lookup layout 'output-scale)))
  (ly:make-stencil "" '(0 . 0) (cons 0 (abs (/ amount o-s))))))

#(define-markup-command (put-mm layout props dir amount arg)
(ly:dir? number? markup?) (interpret-markup layout props
  (markup #:put-adjacent Y dir arg #:mm-feed amount)))

\paper { 
  ragged-right = ##f
  scoreTitleMarkup = \markup {
    \column {
      \fill-line { \huge \larger \bold \fromproperty #'header:title }
      \fill-line { \put-mm #UP #5 \bold \fromproperty #'header:subtitle }
      \fill-line { \smaller \bold \fromproperty #'header:subsubtitle }
      \fill-line {
        \fromproperty #'header:poet
        \fromproperty #'header:composer
      }
      \fill-line {
        \fromproperty #'header:meter
        \fromproperty #'header:arranger
      }
    }
  }
}

\score {
  \new Staff { c''1 }
  \header {
    title = "Title"
    subtitle = "Subtitle"
    composer = "Composer"
    arranger = "Arranger"
  }
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to