]> git.donarmstrong.com Git - lilypond.git/blob - input/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly
move mutopia subdirectory
[lilypond.git] / input / mutopia / J.S.Bach / Petites-Preludes / preludes-1.ly
1 #(set! point-and-click line-column-location)
2
3 opus = "BWV 924"
4 piece = "1"
5
6
7 %{
8
9 TODO: this file needs additional layouting: the trills look
10 differently in Lemoine, and the sharps should be below the trill.
11
12 Additionally, the performance of trills should be explained.
13
14 FIXME (Bach sure didn't)?
15 Lemoine puts fermatas on ending bar lines everywhere.
16
17 %}
18
19
20
21 \version "1.3.146"
22
23
24 lowstaff =  \translator "Staff" = "lower"
25 upstaff =  \translator "Staff" = "upper"
26
27 % upper = \context Staff \notes\relative c {
28 upper =  \context Staff=upper \notes\relative c {
29         \context Voice=i
30         \property Voice.TextScript \set #'font-style = #'italic
31
32         r16 g'' c e r g, c e 
33         r g, c d r b d g |
34         r16 a, d  g r a, d f 
35         r a, d e r c e a |
36         r16 b, e a r b, e g 
37         r c, e f r g, d' f |
38
39         r g, d' e r g, c e 
40         r a, c d r e, b' d |
41         r e, b' c r e, a c 
42         r f, a bes r c, g' bes |
43         r c, g' a r c, f a 
44         r d, f b r e, g c |
45         r d, g c r d, g b 
46         r c, g' b r c, fis a |
47         r b, d a' r b, d g 
48         r a, c g' r a, c f! |
49         
50         % ugh arpeggio FIXME: is that so?
51         <f4 d b4>
52         r4
53         
54         \stemBoth
55         \lowstaff
56         \stemUp
57         r16 g,, b d  
58         [ f \upstaff \stemDown g16 b d ] | 
59         \stemUp b
60         \lowstaff \stemDown
61         [ g b d ] f
62         \upstaff 
63         [ g16 b d ] b
64         [ g b d ]
65         \stemUp
66
67         % urg, below translator change affects previous beam too!?
68         % howto separate translator command from previous beam end?
69         \upstaff f g b f |
70         \stemBoth
71         e c' g f  e c' g e 
72         d c' f, e  d b' f d |
73         c b' e, d  c a' e c 
74         b a' d, c  b g' d b |
75         a g' c, b  a fis' c a 
76         b f' d c  b f' d b |
77         g e' c b  a e' c a 
78         fis d' b a  g d' b g |
79         e c' a g  fis c' a fis 
80         d c' b a  b g d' f, |
81         g e f d'  c b a g 
82         f' d es c  fis, es' d c |
83         b d b g  as f g d 
84         es fis a c 
85         < 
86                 { \stemUp r c8 b16 }
87                 \context Voice=ii { \stemDown  d,8 f }
88         >
89         \stemBoth |
90         <c1 g e>
91         \bar "|."
92 }
93
94 % lower = \context Staff \notes\relative c{
95 lower =  \context Staff=lower \notes\relative c{
96         \context Voice=i
97         \property Voice.TextScript \set #'font-style = #'roman
98         c4 e g^#'(music "accidentals-1") -\mordent g,4 |
99         d'4-\mordent f a-\mordent^#'(music "accidentals-1")  a,4 |
100         e' e'-\mordent a, b-\upprall |
101         c4 e, fis gis-\upprall |
102         a4 c, d e-\upprall |
103         f4 e d-\prall c |
104         g'-\mordent^#'(music "accidentals-1")  g, g'-\mordent g, |
105         g'-\mordent g, g'-\mordent g, |
106         g' r s s | s s s s \clef "bass" |
107         <
108                 { \stemUp\tieUp g1 ~ g ~ g ~ g ~ g ~ g ~ g }
109                 \context Voice=ii { \stemDown\tieDown g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
110         >
111         <c,1 c,>
112         \bar "|."
113 }
114
115 global =  \notes{
116         \time 4/4
117 }
118
119 \score{
120         % Moderato
121         \context PianoStaff <
122                 \context Staff = upper <
123                         \global
124                         \upper
125                 >
126                 \context Staff = lower <
127                         \global
128                         \clef "bass"
129                         \lower
130                 >
131         >
132         \paper { linewidth = 18.0 \cm  }
133         \midi{ \tempo 4 = 80 }
134         \header {
135                 opus = \opus
136                 piece = \piece
137         }
138 }