5 title = "Wenn wir in höchsten Nöten sein"
6 subtitle = "Analysis from Gene Biringer's Schenker Text, Ex. 5-27"
8 enteredby = "Kris Shaffer"
11 % See http://kris.shaffermusic.com/tech.html. for more information
13 % 'Add color...' sections are not the original author's, but added
14 % afterwards specifically for illustration in LilyPond's Documentation.
16 I = \once \override NoteColumn.ignore-collision = ##t
20 staffPiano = \new PianoStaff {
21 \set Score.timing = ##f
22 \set PianoStaff.followVoice = ##t
24 \new Staff = "RH" { % Right hand
28 \override Staff.NoteCollision.merge-differently-headed = ##t
31 \override Beam.positions = #'(8 . 8)
32 \override NoteHead.transparent = ##t
33 \override NoteHead.duration-log = #1
35 \override #'(baseline-skip . 0.5)
36 % Add color to markup in top staff
37 \column { \with-color #red \small { ^ 3 } }
40 \override #'(baseline-skip . 0.5)
41 % Add color to markup in top staff
42 \column { \with-color #red \small { ^ 2 } }
45 % Add color to markup in top staff
46 \override #'(baseline-skip . 0.5)
47 \column { \with-color #red \small { ^ 1 } }
50 \revert Beam.positions
51 \revert NoteHead.transparent
52 \revert NoteHead.duration-log
56 % Add color to both Dashed Slurs in top staff
57 \override Slur.color = #(x11-color "purple")
58 \override Stem.transparent = ##t
60 \once \override Slur.height-limit = #6
61 \once \override Slur.extra-offset = #'(1.25 . 0)
64 \once \override NoteHead.transparent = ##t
66 \once \override Slur.height-limit = #3.25
67 \once \override Slur.extra-offset = #'(.75 . 0)
69 \once \override NoteHead.transparent = ##t
71 \revert Stem.transparent
74 \override Staff.NoteCollision.merge-differently-headed = ##t
76 \override Beam.positions = #'(4 . -3.25)
80 \once \override NoteHead.transparent = ##t
82 \override Beam.positions = #'(3 . -2.25)
90 % Add color to all remaining Slurs in top staff
91 \override Slur.color = #(x11-color "violet")
92 \override PhrasingSlur.color = #(x11-color "violet")
93 \override Stem.transparent = ##t
94 \override Stem.length = #0
95 % Add color to text markups in top staff
96 g4_\( fis^(_\markup { \with-color #blue \tiny N } g)\)
97 a^(^\markup { \with-color #blue \tiny P } b2)
98 b4^(^\markup { \with-color #blue \tiny P }
100 \revert Stem.transparent
101 \override Stem.length = #10
103 \override Stem.length = #14
105 \override Stem.length = #0
106 \override Stem.transparent = ##t
107 \once \override Slur.extra-offset = #'(0 . 0.35)
108 % Add color to remaining text markup in top staff
109 c4^\( b_(_\markup { \with-color #blue \tiny P } a)\) s2
114 \override Stem.transparent = ##t
115 \override NoteHead.transparent = ##t
116 \override Stem.length = #0
120 \revert Stem.transparent
121 \revert NoteHead.transparent
126 \override Stem.transparent = ##t
127 \override NoteHead.transparent = ##t
128 \override Stem.length = #0
133 \revert Stem.transparent
134 \revert NoteHead.transparent
142 \new Staff = "LH" { % Left hand
146 \override Staff.NoteCollision.merge-differently-headed = ##t
149 \override Beam.positions = #'(-8 . -8)
150 \override NoteHead.transparent = ##t
152 % Add color to long beam text markups in bottom staff
153 \I g8[_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
155 \I d8_\markup { \with-color #(x11-color 'LawnGreen) \bold V }
157 \I g,8]_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
159 \revert Beam.positions
160 \revert NoteHead.transparent
164 \override Stem.transparent = ##t
166 \override TextScript.extra-offset = #'(-11.75 . -12.25)
167 \I g'2 s1 s s2 \I d2 g,2
168 \revert Stem.transparent
172 % Add color to all single-note Slurs in bottom staff
173 \override Slur.color = #(x11-color "violet")
174 \override Stem.transparent = ##t
175 \once \override NoteHead.transparent = ##t
176 \override Stem.length = #0
178 \once \override TextScript.padding = #0.25
179 % Add color to text markups in bottom staff
180 a4_(^\markup { \with-color #blue \tiny P } b)
181 fis4^(^\markup { \with-color #blue \tiny P } e)
182 \once \override NoteHead.transparent = ##t
183 \once \override Slur.height-limit = #1.5
184 % Add color to remaining text markup in bottom staff
185 c4^( d)^\markup { \with-color #blue \tiny N }
186 \once \override NoteHead.transparent = ##t
187 \once \override Slur.extra-offset = #'(0 . 0.5)
189 \revert Stem.transparent
190 \override Stem.length = #10
193 \once \override Slur.extra-offset = #'(0 . 0.25)
195 \override Stem.transparent = ##t
198 \once \override NoteHead.transparent = ##t
203 % Add color to all two-note Slurs in bottom staff
204 \override Slur.color = #(x11-color "violet")
205 \override Stem.transparent = ##t
206 \override NoteHead.transparent = ##t
208 \revert Stem.transparent
209 \revert NoteHead.transparent
210 \override Beam.positions = #'(-4 . 1)
215 \override Beam.positions = #'(1 . -4)
219 \revert Beam.positions
220 \override Stem.transparent = ##t
221 \override NoteHead.transparent = ##t
226 % Add color to four-note Slur in bottom staff
227 \override Slur.color = #(x11-color "violet")
228 \override Stem.transparent = ##t
229 \override NoteHead.transparent = ##t
230 \override Stem.length = #0
232 \once \override Slur.height-limit = #3
233 \once \override Slur.extra-offset = #'(0 . 0.25)
234 \I g4_( s2. e4) s2. s2 s1 s2
235 \revert Stem.transparent
236 \revert NoteHead.transparent
240 % Add color to dashed Slur in bottom staff
241 \override Slur.color = #(x11-color "purple")
242 \override Stem.transparent = ##t
243 \override NoteHead.transparent = ##t
245 \once \override Slur.height-limit = #6.0
246 \once \override Slur.extra-offset = #'(0.5 . -0.25)
247 \override Stem.length = #0
248 g4_( s2. s1 g,4) s s1 s2
249 \revert Stem.transparent
250 \revert NoteHead.transparent
266 \context { \Staff \remove "Time_signature_engraver" }