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
29 #'merge-differently-headed = ##t
32 \override Beam #'positions = #'(8 . 8)
33 \override NoteHead #'transparent = ##t
34 \override NoteHead #'duration-log = #1
36 \override #'(baseline-skip . 0.5)
37 % Add color to markup in top staff
38 \column { \with-color #red \small { ^ 3 } }
41 \override #'(baseline-skip . 0.5)
42 % Add color to markup in top staff
43 \column { \with-color #red \small { ^ 2 } }
46 % Add color to markup in top staff
47 \override #'(baseline-skip . 0.5)
48 \column { \with-color #red \small { ^ 1 } }
51 \revert Beam #'positions
52 \revert NoteHead #'transparent
53 \revert NoteHead #'duration-log
57 % Add color to both Dashed Slurs in top staff
58 \override Slur #'color = #(x11-color "purple")
59 \override Stem #'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
75 \override Staff.NoteCollision
76 #'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 Stem #'length = #0
97 % Add color to text markups in top staff
98 g4_\( fis^(_\markup { \with-color #blue \tiny N } g)\)
99 a^(^\markup { \with-color #blue \tiny P } b2)
100 b4^(^\markup { \with-color #blue \tiny P }
102 \revert Stem #'transparent
103 \override Stem #'length = #10
105 \override Stem #'length = #14
107 \override Stem #'length = #0
108 \override Stem #'transparent = ##t
109 \once \override Slur #'extra-offset = #'(0 . 0.35)
110 % Add color to remaining text markup in top staff
111 c4^\( b_(_\markup { \with-color #blue \tiny P } a)\) s2
112 \revert Stem #'length
116 \override Stem #'transparent = ##t
117 \override NoteHead #'transparent = ##t
118 \override Stem #'length = #0
122 \revert Stem #'transparent
123 \revert NoteHead #'transparent
124 \revert Stem #'length
128 \override Stem #'transparent = ##t
129 \override NoteHead #'transparent = ##t
130 \override Stem #'length = #0
135 \revert Stem #'transparent
136 \revert NoteHead #'transparent
137 \revert Stem #'length
144 \new Staff = "LH" { % Left hand
148 \override Staff.NoteCollision
149 #'merge-differently-headed = ##t
152 \override Beam #'positions = #'(-8 . -8)
153 \override NoteHead #'transparent = ##t
155 % Add color to long beam text markups in bottom staff
156 \I g8[_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
158 \I d8_\markup { \with-color #(x11-color 'LawnGreen) \bold V }
160 \I g,8]_\markup { \with-color #(x11-color 'LawnGreen) \bold I }
162 \revert Beam #'positions
163 \revert NoteHead #'transparent
167 \override Stem #'transparent = ##t
169 \override TextScript #'extra-offset = #'(-11.75 . -12.25)
170 \I g'2 s1 s s2 \I d2 g,2
171 \revert Stem #'transparent
175 % Add color to all single-note Slurs in bottom staff
176 \override Slur #'color = #(x11-color "violet")
177 \override Stem #'transparent = ##t
178 \once \override NoteHead #'transparent = ##t
179 \override Stem #'length = #0
181 \once \override TextScript #'padding = #0.25
182 % Add color to text markups in bottom staff
183 a4_(^\markup { \with-color #blue \tiny P } b)
184 fis4^(^\markup { \with-color #blue \tiny P } e)
185 \once \override NoteHead #'transparent = ##t
186 \once \override Slur #'height-limit = #1.5
187 % Add color to remaining text markup in bottom staff
188 c4^( d)^\markup { \with-color #blue \tiny N }
189 \once \override NoteHead #'transparent = ##t
190 \once \override Slur #'extra-offset = #'(0 . 0.5)
192 \revert Stem #'transparent
193 \override Stem #'length = #10
196 \once \override Slur #'extra-offset = #'(0 . 0.25)
198 \override Stem #'transparent = ##t
199 \revert Stem #'length
201 \once \override NoteHead #'transparent = ##t
206 % Add color to all two-note Slurs in bottom staff
207 \override Slur #'color = #(x11-color "violet")
208 \override Stem #'transparent = ##t
209 \override NoteHead #'transparent = ##t
211 \revert Stem #'transparent
212 \revert NoteHead #'transparent
213 \override Beam #'positions = #'(-4 . 1)
218 \override Beam #'positions = #'(1 . -4)
222 \revert Beam #'positions
223 \override Stem #'transparent = ##t
224 \override NoteHead #'transparent = ##t
229 % Add color to four-note Slur in bottom staff
230 \override Slur #'color = #(x11-color "violet")
231 \override Stem #'transparent = ##t
232 \override NoteHead #'transparent = ##t
233 \override Stem #'length = #0
235 \once \override Slur #'height-limit = #3
236 \once \override Slur #'extra-offset = #'(0 . 0.25)
237 \I g4_( s2. e4) s2. s2 s1 s2
238 \revert Stem #'transparent
239 \revert NoteHead #'transparent
243 % Add color to dashed Slur in bottom staff
244 \override Slur #'color = #(x11-color "purple")
245 \override Stem #'transparent = ##t
246 \override NoteHead #'transparent = ##t
248 \once \override Slur #'height-limit = #6.0
249 \once \override Slur #'extra-offset = #'(0.5 . -0.25)
250 \override Stem #'length = #0
251 g4_( s2. s1 g,4) s s1 s2
252 \revert Stem #'transparent
253 \revert NoteHead #'transparent
269 \context { \Staff \remove "Time_signature_engraver" }