365びぼーろく; lilypondでの表紙

lilypondを使っているとデフォルトでは楽譜の表紙を作成してくれない。
そこで表紙を出力してくれる様に設定をすると書いてくれるようになったのでそのメモ。
見栄えもなかなか良いので個人的にかなりお気に入り。

ちなみにbookpart セクションにscoreを付け加えると、最初にスコア次いでパート譜とすることができる。
これで副業で写譜屋ができるかも。

\header {
  title = "TITLE"
  subtitle = "SUBTITLE"
  subsubtitle = ""
  composer = "COMPOSER"
  arrange = ""
  tagline = ""
}


titlePageMarkup = \markup \abs-fontsize #10 \center-column {
 \vspace #6
 \fill-line { \fontsize #8 \fromproperty #'header:composer }
 \vspace #8
 \fill-line { \fontsize #10 \bold \fromproperty #'header:title }
 \vspace #1
 \fill-line { \fontsize #2 \bold from  }
 \vspace #1
 \fill-line { \fontsize #5 \bold \italic \fromproperty #'header:subtitle }
 \vspace #1
 \fill-line { \postscript #"-20 0 moveto 40 0 rlineto stroke" }
 \vspace #13
 \fill-line { \bold \fontsize #6 \rounded-box{"Violin I"} }
 \vspace #10
 \fill-line { \fromproperty #'header:subtitle }
}

originalBookTitleMarkup = \markup {
  \override #'(baseline-skip . 3.5)
  \column {
    \fill-line { \fromproperty #'header:dedication }
    \override #'(baseline-skip . 3.5)
    \column {
      \huge \larger \bold
      \fill-line {
        \larger \fromproperty #'header:title
      }
      \fill-line {
        \large \smaller \bold
        \larger \fromproperty #'header:subtitle
      }
      \fill-line {
        \smaller \bold
        \fromproperty #'header:subsubtitle
      }
      \fill-line {
        \fromproperty #'header:poet
        { \large \bold \fromproperty #'header:instrument }
        \fromproperty #'header:composer
      }
      \fill-line {
        \fromproperty #'header:meter
        %\fromproperty #'header:arranger
      }
    }
  }
}


violin = \new Voice \relative c'' {
  \set Staff.instrumentName = #"Violin I"
   \time 4/4 
   \key c \minor
   \compressFullBarRests
   \set Score.markFormatter = #format-mark-box-alphabet

  c4 d e f g a b c

}

\paper {
#(set-default-paper-size "b4")
 top-margin = 22
 bottom-margin = 22
 left-margin = 22
 right-margin = 22
 bookTitleMarkup = \titlePageMarkup
 scoreTitleMarkup = \originalBookTitleMarkup
}

\bookpart{%%%%%%%%%%%%%%%%%%%%%%%%  1stvn
\pageBreak
\score {
  \new StaffGroup <<
    \new Staff <<  \violin >>
  >>
 \layout {
     #(layout-set-staff-size 18)
       }
 \midi{}
}
}