]> git.donarmstrong.com Git - lilypond.git/blob - input/bach-schenker.ly
We are using git, not CVS...
[lilypond.git] / input / bach-schenker.ly
1 % -*-coding: utf-8 -*-
2
3 \header{
4   composer = "J.S. Bach"
5   title = "Wenn wir in höchsten Nöten sein"
6   subtitle = "Analysis from Gene Biringer's Schenker Text, Ex. 5-27"
7 % "BWV641"
8   enteredby = "Kris Shaffer"
9 }
10
11 %%
12 %% See http://www.shaffermusic.com/doc/schenker/index.html for more information
13 %%
14
15 I = \once \override NoteColumn #'ignore-collision = ##t
16
17 \version "2.11.32"
18
19 staffPiano = \new PianoStaff {
20   \set Score.timing = ##f
21   \set PianoStaff.followVoice = ##t
22
23   <<
24     \new Staff = "RH" {  % Right hand
25       \clef treble
26       \key g \major
27       \relative c'' {
28         \override Staff.NoteCollision
29         #'merge-differently-headed = ##t
30         <<
31           {
32             \override Beam #'positions = #'(8 . 8)
33             \override NoteHead #'transparent = ##t
34             \override NoteHead #'duration-log = #1
35             s1 b8[^\markup {
36               \override #'(baseline-skip . 0.5)
37               \column { \small {^ 3} }
38             }
39             s4. s1 a8^\markup {
40               \override #'(baseline-skip . 0.5)
41               \column { \small {^ 2} }
42             }
43             s4. s2 g8]^\markup {
44               \override #'(baseline-skip . 0.5)
45               \column { \small {^ 1} }
46             }
47             s4.
48             \revert Beam #'positions
49             \revert NoteHead #'transparent
50             \revert NoteHead #'duration-log
51           }
52           \\
53           {
54             \override Stem #'transparent = ##t
55             s1
56             \once \override Slur #'height-limit = #6
57             \once \override Slur #'extra-offset = #'(1.25 . 0)
58             \slurDashed
59             \I b2_( s2
60             \once \override NoteHead #'transparent = ##t
61             b4) s
62             \once \override Slur #'height-limit = #3.25
63             \once \override Slur #'extra-offset = #'(.75 . 0)
64             a2_( s4
65             \once \override NoteHead #'transparent = ##t
66             a)
67             g2
68             \revert Stem #'transparent
69           }
70           \\
71           \override Staff.NoteCollision
72           #'merge-differently-headed = ##t
73           {
74             \override Beam #'positions = #'(4 . -3.25)
75             \stemUp
76             g8[ s s4 s2
77               \stemDown
78               \once \override NoteHead #'transparent = ##t
79               \I b8] s8
80             \override Beam #'positions = #'(3 . -2.25)
81             \stemUp
82             a8[ s s4
83               \stemDown
84               c8] s s2 s s
85           }
86           \\
87           {
88             \override Stem #'transparent = ##t
89             \override Stem #'length = #0
90             g4_\( fis^(_\markup { \tiny N } g)\)
91             a^(^\markup { \tiny P } b2)
92             b4^(^\markup { \tiny P }
93             \stemUp
94             \revert Stem #'transparent
95             \override Stem #'length = #10
96             c8)^( s
97             \override Stem #'length = #14
98             b4) s s
99             \override Stem #'length = #0
100             \override Stem #'transparent = ##t
101             \once \override Slur #'extra-offset = #'(0 . 0.35)
102             c4^\( b_(_\markup { \tiny P } a)\) s2
103             \revert Stem #'length
104           }
105           \\
106           {
107             \override Stem #'transparent = ##t
108             \override NoteHead #'transparent = ##t
109             \override Stem #'length = #0
110             s1 s4 e4 s
111             \change Staff = "LH"
112             fis,4 s2
113             \revert Stem #'transparent
114             \revert NoteHead #'transparent
115             \revert Stem #'length
116           }
117           \\
118           {
119             \override Stem #'transparent = ##t
120             \override NoteHead #'transparent = ##t
121             \override Stem #'length = #0
122             s1 s s2
123             fis'4 s
124             \change Staff = "LH"
125             g,4 s s2
126             \revert Stem #'transparent
127             \revert NoteHead #'transparent
128             \revert Stem #'length
129           }
130         >>
131         \bar "|."
132       }
133     }
134
135     \new Staff = "LH" {  % Left hand
136       \clef bass
137       \key g \major
138       \relative c' {
139         \override Staff.NoteCollision
140         #'merge-differently-headed = ##t
141         <<
142           {
143             \override Beam #'positions = #'(-8 . -8)
144             \override NoteHead #'transparent = ##t
145             \stemDown
146             \I g8[_\markup { \bold I } s4. s1 s s2
147               \I d8_\markup { \bold V } s4.
148               \I g,8]_\markup { \bold I } s4.
149             \revert Beam #'positions
150             \revert NoteHead #'transparent
151           }
152           \\
153           {
154             \override Stem #'transparent = ##t
155             \stemDown
156             \override TextScript #'extra-offset = #'(-11.75 . -12.25)
157             \I g'2 s1 s s2 \I d2 g,2
158             \revert Stem #'transparent
159           }
160           \\
161           {
162             \override Stem #'transparent = ##t
163             \once \override NoteHead #'transparent = ##t
164             \override Stem #'length = #0
165             g'4
166             \once \override TextScript #'padding = #0.25
167             a4_(^\markup { \tiny P } b)
168             fis4^(^\markup { \tiny P } e)
169             \once \override NoteHead #'transparent = ##t
170             \once \override Slur #'height-limit = #1.5
171             c4^(
172             d)^\markup { \tiny N }
173             \once \override NoteHead #'transparent = ##t
174             \once \override Slur #'extra-offset = #'(0 . 0.5)
175             \I fis,4_(
176             \revert Stem #'transparent
177             \override Stem #'length = #10
178             \stemDown
179             g4) s
180             \once \override Slur #'extra-offset = #'(0 . 0.25)
181             \I c8_( s
182             \override Stem #'transparent = ##t
183             \revert Stem #'length
184             a4)
185             \once \override NoteHead #'transparent = ##t
186             \I d4^( d,4) s2
187           }
188           \\
189           {
190             \override Stem #'transparent = ##t
191             \override NoteHead #'transparent = ##t
192             \I g'4^( s b) s2
193             \revert Stem #'transparent
194             \revert NoteHead #'transparent
195             \override Beam #'positions = #'(-4 . 1)
196             \stemDown
197             c,8[ s s4
198               \stemUp
199               fis,8] s
200             \override Beam #'positions = #'(1 . -4)
201             g8[ s
202               \stemDown
203               b8] s
204             \revert Beam #'positions
205             \override Stem #'transparent = ##t
206             \override NoteHead #'transparent = ##t
207             c4^( s d4) s s2
208           }
209           \\
210           {
211             \override Stem #'transparent = ##t
212             \override NoteHead #'transparent = ##t
213             \override Stem #'length = #0
214             \stemDown
215             \once \override Slur #'height-limit = #3
216             \once \override Slur #'extra-offset = #'(0 . 0.25)
217             \I g4_( s2. e4) s2. s2 s1 s2
218             \revert Stem #'transparent
219             \revert NoteHead #'transparent
220           }
221           \\
222           {
223             \override Stem #'transparent = ##t
224             \override NoteHead #'transparent = ##t
225             \slurDashed
226             \once \override Slur #'height-limit = #6.0
227             \once \override Slur #'extra-offset = #'(0.5 . -0.25)
228             \override Stem #'length = #0
229             g4_( s2. s1 g,4) s s1 s2
230             \revert Stem #'transparent
231             \revert NoteHead #'transparent
232           }
233         >>
234         \bar "|."
235       }
236     }
237   >>
238 }
239
240
241 \score {
242   <<
243     \staffPiano
244   >>
245
246   \midi {
247   }
248
249   \layout {
250     indent = 0.0
251     ragged-right = ##t
252     \context { \Staff \remove "Time_signature_engraver" }
253   }
254 }
255
256
257 \paper {
258 }