input/regression/typography-demo.ly

   1 \header {
   2   title = "LilyPond demo"
   3   enteredby="Han-Wen Nienhuys"
   4   maintainer="hanwen@xs4all.nl"
   5
   6   texidoc = "
   7 heavily mutilated Edition Peters Morgenlied by Schubert"
   8
   9 }
  10
  11 \version "2.19.21"
  12 #(ly:expect-warning (_ "(De)crescendo with unspecified starting volume in MIDI."))
  13
  14 ignoreMelisma = \set ignoreMelismata = ##t
  15 ignoreMelismaOff = \unset ignoreMelismata
  16
  17 #(set-global-staff-size 21)
  18
  19 \paper  {
  20                                 %#(set-global-staff-size (* 5.8 mm))
  21   indent = #(* mm 4)
  22   line-width = #(* mm 140)
  23   system-system-spacing.basic-distance = #10.3
  24   ragged-bottom = ##t
  25
  26   % Font settings for Cyrillic and Hebrew
  27   % Linux Libertine fonts contain Cyrillic and Hebrew glyphs.
  28   #(define fonts
  29     (set-global-fonts
  30      #:roman "Linux Libertine O,serif"
  31      #:sans "Linux Biolinum O,sans-serif"
  32      #:typewriter "Linux Libertine Mono O,monospace"
  33    ))
  34 }
  35
  36 modernAccidentals = {
  37   \set Staff.extraNatural =  ##f
  38   \set Staff.autoAccidentals =  #'(Staff (same-octave . 1) (any-octave . 0))
  39   \set Staff.autoCautionaries =  #'()
  40 }
  41
  42
  43 melody =    \relative c'' \repeat volta 2 \context Voice = "singer" {
  44   \time 6/8
  45   \autoBeamOff
  46   << s2.^\markup {  \larger \line { \hspace #-3.1 Lieblich, etwas geschwind } }
  47      R2.
  48   >>
  49   r4 r8 c4 g8 |
  50   \acciaccatura { f16 }  e4 c8
  51   <<
  52     \new Voice { \stemUp f8. g16 }
  53     { \stemDown f8.[ g16] } >> \stemNeutral a8 |
  54   fis4  g8 c16[ b a g] f[ e] |
  55   d4 f8
  56   \transpose a' e' \relative { a'16[ g fis! g] f![ d]  } |
  57   g4. r8 gis gis |
  58   a4 a16.[ b32] c8[( a]) fis8 |
  59   g4.~ 8-\fermata
  60 }
  61
  62
  63 firstVerse = \lyricmode {
  64   \set stanza = "1."
  65
  66   Sü -- ßes Licht! Aus
  67   \ignoreMelisma
  68   gol --
  69   \ignoreMelismaOff
  70
  71   de -- nen  Pfor -- ten brichst du __ |
  72   sie -- gend durch __ die Nacht. Schö -- ner Tag, du __ bist er -- wacht. __
  73 }
  74
  75 secondVerse = \lyricmode {
  76   \set stanza = "2."
  77   いろはに כיף та та ほへど ちり  ぬるを
  78
  79   Жъл  дю ля זה
  80
  81   いろ はに כיף та та ほへ ちり ぬる
  82
  83   Жъл дю ля __
  84
  85 }
  86
  87 pianoRH =  \relative c''' \repeat volta 2\new Voice {
  88   \accidentalStyle modern
  89   \voiceOne
  90   g16( fis a g fis g f e d c b
  91   \oneVoice
  92   a ) |
  93   <g e>8( <es fis a> <d e bes'> <c e c'>\arpeggio) r8 r |
  94   r8 c'( e,) f r a |
  95   \once \override DynamicLineSpanner.padding =#3
  96   r8
  97   << { fis( g) } \\
  98      << { a4 } { s8\> s8\! } >>
  99    >>
 100
 101   r8 <e c g>8[  <e c g>] |
 102   <d c a>4. r8 \clef bass  <d b f> <d b f> |
 103                 \crescTextCresc
 104                 e,16_" "\<
 105                 g c g e g d gis b gis d gis |
 106                 c, e a e c e a,-\f\! d fis d a d |
 107                 b d g  d b g e16. r32\fermata
 108               }
 109
 110 pianoLH =  \relative c'' \repeat volta 2\new Voice {
 111     \accidentalStyle modern
 112     \voiceTwo
 113     g16( fis a g fis g
 114
 115     f e d c b
 116
 117     \change Staff = down
 118         \oneVoice
 119     d,) |
 120      g4.( b,8) r r
 121     \clef treble \grace s16 r8 <bes'>8-> <bes c>8->([ <a c>)] r <f c'> |
 122     \clef bass
 123     r8 dis( e) r c c |
 124     f,4.  g8[ r8 g] |
 125     <c, c,>4. <e e,>4. |
 126     a,4. <d d,>4. |
 127     g,8 r r g16 r16\fermata
 128     }
 129
 130   \book {
 131     \score {
 132       << \time 6/8
 133          \new Staff \with {
 134            fontSize = #-3
 135            \override StaffSymbol.staff-space = #(magstep -3)
 136          } <<
 137            \context Staff \accidentalStyle modern
 138            \melody >>
 139          \new Lyrics \lyricsto "singer" \firstVerse
 140          \new Lyrics \lyricsto "singer" \secondVerse
 141          \new PianoStaff <<
 142            \set PianoStaff.instrumentName = \markup {
 143              \bold
 144              \larger\larger\larger\larger
 145              \huge
 146              "2."
 147            }
 148            \context Staff = up <<
 149              \pianoRH
 150              \pianoLH
 151            >>
 152            \context Staff = down { \clef bass \skip 1*2 }
 153          >>
 154        >>
 155
 156       \layout {
 157         \context {
 158           \Lyrics
 159           \override LyricText.font-size = #-1
 160         }
 161         \context {
 162           \Score
 163           \override Beam.beam-thickness = #0.55
 164           \override Beam.auto-knee-gap = #4.0
 165           \override SpacingSpanner.spacing-increment = #1.0
 166           \override Stem.stemlet-length = #0.5
 167           \override Slur.height-limit = #1.5
 168         }
 169       }
 170
 171   \midi {
 172     \tempo 4 = 70
 173     }
 174
 175
 176     }
 177   }
 178