input/test/title-markup.ly

   1 \version "2.1.28"
   2 %{
   3    \markup in titles is WIP, only available in direct PostScript output
   4    process and view this file doing:
   5
   6      lilypond-bin -fps title-markup.ly
   7      export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
   8      gs title-markup.ps
   9 %}
  10
  11 sizeTest = \markup {
  12         \column <
  13             { \normalsize "normalsize"
  14               \hspace #5
  15               \smaller "smaller"
  16               \hspace #5
  17               \smaller \smaller "smaller"
  18               \hspace #5
  19               \smaller \smaller \smaller "smaller"
  20             }
  21             " "
  22             { \normalsize "normalsize"
  23               \hspace #5
  24               \bigger "bigger"
  25               \hspace #5
  26               \bigger \bigger "bigger"
  27               \hspace #5
  28               \bigger \bigger \bigger "bigger"
  29             }
  30        >
  31 }
  32
  33 spaceTest = \markup { "two space chars" }
  34 \header {
  35     texidoc = "Make titles using markup (WIP)."
  36
  37
  38     % FIXME
  39     fonts = #'((font-family . roman)
  40                   (word-space . 1)
  41                   (baseline-skip . 2)
  42                   (font-series . medium)
  43                   (font-style . roman)
  44                   (font-shape . upright)
  45                   (font-size . 2))
  46
  47     %dedication = "För my dør Lily"
  48     dedication = "For my öòóôõø so dear Lily"
  49     title = "Title"
  50     subtitle = "(and (the) subtitle)"
  51     subsubtitle = "Sub sub title"
  52     poet = "Poet"
  53     composer = "Composer"
  54     texttranslator = "Text Translator"
  55     opus = "opus 0"
  56     meter = "Meter (huh?)"
  57     arranger = "Arranger"
  58     instrument = "Instrument"
  59     piece = "piece"
  60
  61 %{
  62     makeConditionalTitle = \markup {
  63         \column <
  64             #(if (defined? 'title)
  65              (markup* #:fill-line (#:huge #:bigger #:bigger #:bold title))
  66              (markup* ""))
  67             #(if (defined? 'subtitle)
  68              (markup* #:fill-line ( #:large #:bold subtitle))
  69              (markup* ""))
  70             #(if (defined? 'subsubtitle)
  71              (markup* #:fill-line (subsubtitle))
  72              (markup* ""))
  73          >
  74     }
  75 %}
  76     makeTitle = \markup {
  77         \column <
  78             %\fill-line #linewidth < \huge \bigger \bold \title >
  79             \override #'(baseline-skip . 4) \column <
  80                 \fill-line < \dedication >
  81                 \fill-line < \huge\bigger\bigger\bigger\bigger \bold \title >
  82                 \override #'(baseline-skip . 3) \column <
  83                     \fill-line < \large\bigger\bigger \bold \subtitle >
  84                     \fill-line < \bigger\bigger \bold \subsubtitle >
  85                 >
  86                 \override #'(baseline-skip . 5) \column <
  87                 " "
  88                 >
  89                 \override #'(baseline-skip . 2.5) \column <
  90                     \fill-line < \bigger \poet
  91                                  \large\bigger \caps \composer >
  92                     \fill-line < \bigger \texttranslator
  93                                  \bigger \opus >
  94                     \fill-line < \bigger \meter
  95                                  \bigger \arranger >
  96                     " "
  97                     \fill-line < \large\bigger \instrument >
  98                     " "
  99                     \fill-line < \large\bigger \caps \piece  " ">
 100                 >
 101             >
 102         >
 103     }
 104
 105 %{
 106      foe = \sizeTest
 107      baar = \spaceTest
 108 %}
 109 }
 110
 111 \score {
 112     \context Staff \notes \relative c' {
 113         c2-\sizeTest c2-\spaceTest \break
 114         c2 c2
 115     }
 116 }