input/test/title-markup.ly

   1 \version "2.3.17"
   2
   3 %{
   4    Markup titles also available for direct PostScript output:
   5
   6    export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
   7    lilypond-bin -fps input/title/title-markup.ly
   8
   9   PostScript fonts: WIP.
  10
  11   * Nonstandardised install directory / how to locate a ps font?
  12   * Nonstandardised filenames?
  13
  14
  15 For century schoolbook font:
  16
  17   Debian:
  18     cp -pv /usr/share/fonts/type1/gsfonts/c*.{afm,pfb} mf/out
  19
  20   Red Hat (untested):
  21
  22     cp -pv /usr/share/fonts/afms/adobe/c*.{afm,pfb} mf/out/
  23
  24     cp -pv /usr/share/fonts/default/Type1/c*.{pfb,afm} mf/out
  25
  26 %}
  27
  28 \paper{
  29     #(define page-breaking ly:optimal-page-breaks)
  30     %% Ughr, this breaks TeX output...
  31     %% fonts = #(make-century-schoolbook-tree 1.0)
  32     inputencoding = #"latin1"
  33 }
  34
  35 latinTest = \markup {
  36     "Hellö"
  37 }
  38
  39 sizeTest = \markup {
  40         \column <
  41             { \normalsize "normalsize"
  42               \hspace #5
  43               \smaller "smaller"
  44               \hspace #5
  45               \smaller \smaller "smaller"
  46               \hspace #5
  47               \smaller \smaller \smaller "smaller"
  48             }
  49             " "
  50             { \normalsize "normalsize"
  51               \hspace #5
  52               \bigger "bigger"
  53               \hspace #5
  54               \bigger \bigger "bigger"
  55               \hspace #5
  56               \bigger \bigger \bigger "bigger"
  57             }
  58        >
  59 }
  60
  61 \encoding "latin1"
  62
  63 spaceTest = \markup { "two space chars" }
  64 \header {
  65     texidoc = "Make titles using markup.  Only in direct PostScript output."
  66
  67     tagline = "my tagline for "
  68
  69     %dedication = "För my dør Lily"
  70     % ugh: encoding char-size
  71     %dedication = "For my öòóôõø so dear Lily"
  72     dedication = \markup { "For my "
  73                            "öòóôõø"
  74                            " so dear Lily" }
  75     title = "Title"
  76     subtitle = "(and (the) subtitle)"
  77     subsubtitle = "Sub sub title"
  78     poet = "Poet"
  79     composer = "Composer"
  80     texttranslator = "Text Translator"
  81     opus = "opus 0"
  82     meter = "Meter (huh?)"
  83     arranger = "Arranger"
  84     instrument = "Instrument"
  85     piece = "Piece"
  86
  87     %% Override automatic book title
  88     %% bookTitle = \markup { \fill-line < \huge\bold \title > > }
  89 }
  90
  91 \book {
  92
  93     \score {
  94         \context Staff  \relative c' {
  95             c2-\sizeTest c2-\spaceTest
  96         }
  97         \paper {
  98             #(paper-set-staff-size (* 11.0 pt))
  99         }
 100     }
 101
 102     \score {
 103         \context Staff  \relative c' {
 104             %% stress page breaking:
 105             %% 35 keep on 3 pages
 106             %% 36 spread evenly over 4 pages
 107             \repeat unfold 6 { a b c d \break }
 108
 109             %% FIXME: TODO factor \pagebreak \noPagebreak into regtest
 110             %% Without this, page breaks are better, after measure: 12
 111             \noPageBreak
 112             \repeat unfold 30 { a b c d \break }
 113             c1
 114         }
 115         \header {
 116             %% Override automatic score title
 117             %% scoreTitle = \markup { "Tweetje" }
 118             opus = "opus 1"
 119             piece = "Second"
 120         }
 121         \paper {
 122         }
 123     }
 124 }