More Scheme vector quoting.
[lilypond.git] / input / typography-demo.ly
blob0c1488f46a7e87f64f8610931df1618978a97287
1 \header {
2 title = "LilyPond demo"
3 enteredby="Han-Wen Nienhuys"
4 maintainer="hanwen@xs4all.nl"
6 texidoc = "
7 heavily mutilated Edition Peters Morgenlied by Schubert"
11 \version "2.11.51"
13 ignoreMelisma = \set ignoreMelismata = ##t
14 ignoreMelismaOff = \unset ignoreMelismata
16 #(set-global-staff-size 21)
18 \paper {
19 %#(set-global-staff-size (* 5.8 mm))
20 indent = #(* mm 4)
21 line-width = #(* mm 140)
22 interscoreline = 2.\mm
23 between-system-space = 15\mm
24 ragged-bottom = ##t
27 modernAccidentals = {
28 \set Staff.extraNatural = ##f
29 \set Staff.autoAccidentals = #'(Staff (same-octave . 1) (any-octave . 0))
30 \set Staff.autoCautionaries = #'()
34 melody = \relative c'' \repeat volta 2 \context Voice = "singer" {
35 \time 6/8
36 \autoBeamOff
37 s1*0^\markup { \bigger { \hspace #-3.0 Lieblich, etwas geschwind } }
38 R2.
39 r4 r8 c4 g8 |
40 \acciaccatura { f16 } e4 c8
42 \new Voice { \stemUp f8. g16 }
43 { \stemDown f8.[ g16] } >> \stemNeutral a8 |
44 fis4 g8 c16[ b a g] f[ e] |
45 d4 f8
46 \transpose a' e' \relative c'' { a16[ g fis! g] f![ d] } |
47 g4. r8 gis gis |
48 a4 a16.[ b32] c8[( a]) fis8 |
49 g4.~ g8-\fermata
53 firstVerse = \lyricmode {
54 \set stanza = "1."
56 Sü -- ßes Licht! Aus
57 \ignoreMelisma
58 gol --
59 \ignoreMelismaOff
61 de -- nen Pfor -- ten brichst du __ |
62 sie -- gend durch __ die Nacht. Schö -- ner Tag, du __ bist er -- wacht. __
65 secondVerse = \lyricmode {
66 \set stanza = "2."
67 いろはに כיף та та ほへど ちり ぬるを
69 Жъл дю ля זה
71 いろ はに כיף та та ほへ ちり ぬる
73 Жъл дю ля __
77 pianoRH = \relative c''' \repeat volta 2\new Voice {
78 #(set-accidental-style 'modern)
79 \voiceOne
80 g16( fis a g fis g f e d c b
81 \oneVoice
82 a ) |
83 <g e>8( <es fis a> <d e bes'> <c e c'>\arpeggio) r8 r |
84 r8 c'( e,) f r a |
85 \once \override DynamicLineSpanner #'padding =#3
87 << { fis( g) } \\
88 << { a4 } { s8\> s8\! } >>
91 r8 <e c g>8[ <e c g>] |
92 <d c a>4. r8 \clef bass <d b f> <d b f> |
93 \crescTextCresc
94 e,16_" "\<
95 g c g e g d gis b gis d gis |
96 c, e a e c e a,-\f\! d fis d a d |
97 b d g d b g e16. r32\fermata
100 pianoLH = \relative c'' \repeat volta 2\new Voice {
101 #(set-accidental-style 'modern)
102 \voiceTwo
103 g16( fis a g fis g
105 f e d c b
107 \change Staff = down
108 \oneVoice
109 d,) |
110 g4.( b,8) r r
111 \clef treble \grace s16 r8 <bes'>8-> <bes c>8->([ <a c>)] r <f c'> |
112 \clef bass
113 r8 dis( e) r c c |
114 f,4. g8[ r8 g] |
115 <c, c,>4. <e e,>4. |
116 a,4. <d d,>4. |
117 g,8 r r g16 r16\fermata
120 \book {
121 \score {
122 << \time 6/8
123 \new Staff \with {
124 fontSize = #-3
125 \override StaffSymbol #'staff-space = #(magstep -3)
126 } <<
127 \context Staff #(set-accidental-style 'modern)
128 \melody >>
129 \lyricsto "singer" \new Lyrics \firstVerse
130 \lyricsto "singer" \new Lyrics \secondVerse
131 \new PianoStaff <<
132 \set PianoStaff.instrumentName = \markup {
133 \bold
134 \bigger\bigger\bigger\bigger
135 \huge
136 "2."
138 \context Staff = up <<
139 \pianoRH
140 \pianoLH
142 \context Staff = down { \clef bass \skip 1*2 }
146 \layout {
147 \context {
148 \Lyrics
149 \override VerticalAxisGroup #'minimum-Y-extent = #'(-0.85 . 2.2)
150 \override LyricText #'font-size = #-1
152 \context {
153 \Score
154 \override Beam #'thickness = #0.55
155 \override Beam #'auto-knee-gap = #4.0
156 \override SpacingSpanner #'spacing-increment = #1.0
157 \override Stem #'stemlet-length = #0.5
158 \override Slur #'height-limit = #1.5
162 \midi {
163 \context {
164 \Score
165 tempoWholesPerMinute = #(ly:make-moment 70 4)