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
59 \override Flag.transparent = ##t
61 \once \override Slur.height-limit = #6
62 \once \override Slur.extra-offset = #'(1.25 . 0)
65 \once \override NoteHead.transparent = ##t
67 \once \override Slur.height-limit = #3.25
68 \once \override Slur.extra-offset = #'(.75 . 0)
70 \once \override NoteHead.transparent = ##t
72 \revert Stem.transparent
73 \revert Flag.transparent
76 \override Staff.NoteCollision.merge-differently-headed = ##t
78 \override Beam.positions = #'(4 . -3.25)
82 \once \override NoteHead.transparent = ##t
84 \override Beam.positions = #'(3 . -2.25)
92 % Add color to all remaining Slurs in top staff
93 \override Slur.color = #(x11-color "violet")
94 \override PhrasingSlur.color = #(x11-color "violet")
95 \override Stem.transparent = ##t
96 \override Flag.transparent = ##t
97 \override Stem.length = #0
98 % Add color to text markups in top staff
99 g4_\( fis^(_\markup { \with-color #blue \tiny N } g)\)
100 a^(^\markup { \with-color #blue \tiny P } b2)
101 b4^(^\markup { \with-color #blue \tiny P }
103 \revert Stem.transparent
104 \revert Flag.transparent
105 \override Stem.length = #10
107 \override Stem.length = #14
109 \override Stem.length = #0
110 \override Stem.transparent = ##t
111 \override Flag.transparent = ##t
112 \once \override Slur.extra-offset = #'(0 . 0.35)
113 % Add color to remaining text markup in top staff
114 c4^\( b_(_\markup { \with-color #blue \tiny P } a)\) s2
119 \override Stem.transparent = ##t
120 \override Flag.transparent = ##t
121 \override NoteHead.transparent = ##t
122 \override Stem.length = #0
126 \revert Stem.transparent
127 \revert Flag.transparent
128 \revert NoteHead.transparent
133 \override Stem.transparent = ##t
134 \override Flag.transparent = ##t
135 \override NoteHead.transparent = ##t
136 \override Stem.length = #0
141 \revert Stem.transparent
142 \revert Flag.transparent
143 \revert NoteHead.transparent
151 \new Staff = "LH" { % Left hand
155 \override Staff.NoteCollision.merge-differently-headed = ##t
158 \override Beam.positions = #'(-8 . -8)
159 \override NoteHead.transparent = ##t
161 % Add color to long beam text markups in bottom staff
162 \I g8[_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
164 \I d8_\markup { \with-color #(x11-color 'LawnGreen) \bold V }
166 \I g,8]_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
168 \revert Beam.positions
169 \revert NoteHead.transparent
173 \override Stem.transparent = ##t
174 \override Flag.transparent = ##t
176 \override TextScript.extra-offset = #'(-11.75 . -12.25)
177 \I g'2 s1 s s2 \I d2 g,2
178 \revert Stem.transparent
179 \revert Flag.transparent
183 % Add color to all single-note Slurs in bottom staff
184 \override Slur.color = #(x11-color "violet")
185 \override Stem.transparent = ##t
186 \override Flag.transparent = ##t
187 \once \override NoteHead.transparent = ##t
188 \override Stem.length = #0
190 \once \override TextScript.padding = #0.25
191 % Add color to text markups in bottom staff
192 a4_(^\markup { \with-color #blue \tiny P } b)
193 fis4^(^\markup { \with-color #blue \tiny P } e)
194 \once \override NoteHead.transparent = ##t
195 \once \override Slur.height-limit = #1.5
196 % Add color to remaining text markup in bottom staff
197 c4^( d)^\markup { \with-color #blue \tiny N }
198 \once \override NoteHead.transparent = ##t
199 \once \override Slur.extra-offset = #'(0 . 0.5)
201 \revert Stem.transparent
202 \revert Flag.transparent
203 \override Stem.length = #10
206 \once \override Slur.extra-offset = #'(0 . 0.25)
208 \override Stem.transparent = ##t
209 \override Flag.transparent = ##t
212 \once \override NoteHead.transparent = ##t
217 % Add color to all two-note Slurs in bottom staff
218 \override Slur.color = #(x11-color "violet")
219 \override Stem.transparent = ##t
220 \override Flag.transparent = ##t
221 \override NoteHead.transparent = ##t
223 \revert Stem.transparent
224 \revert Flag.transparent
225 \revert NoteHead.transparent
226 \override Beam.positions = #'(-4 . 1)
231 \override Beam.positions = #'(1 . -4)
235 \revert Beam.positions
236 \override Stem.transparent = ##t
237 \override Flag.transparent = ##t
238 \override NoteHead.transparent = ##t
243 % Add color to four-note Slur in bottom staff
244 \override Slur.color = #(x11-color "violet")
245 \override Stem.transparent = ##t
246 \override Flag.transparent = ##t
247 \override NoteHead.transparent = ##t
248 \override Stem.length = #0
250 \once \override Slur.height-limit = #3
251 \once \override Slur.extra-offset = #'(0 . 0.25)
252 \I g4_( s2. e4) s2. s2 s1 s2
253 \revert Stem.transparent
254 \revert Flag.transparent
255 \revert NoteHead.transparent
259 % Add color to dashed Slur in bottom staff
260 \override Slur.color = #(x11-color "purple")
261 \override Stem.transparent = ##t
262 \override Flag.transparent = ##t
263 \override NoteHead.transparent = ##t
265 \once \override Slur.height-limit = #6.0
266 \once \override Slur.extra-offset = #'(0.5 . -0.25)
267 \override Stem.length = #0
268 g4_( s2. s1 g,4) s s1 s2
269 \revert Stem.transparent
270 \revert Flag.transparent
271 \revert NoteHead.transparent
287 \context { \Staff \remove "Time_signature_engraver" }