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