input/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly

   1 %#(ly:set-point-and-click 'line-column)
   2
   3 piece = "5"
   4 opus = "BWV 926"
   5
   6 \version "1.7.18"
   7
   8 upper =  \context Staff \notes\relative c
   9         \context Voice=i {
  10         \property Voice.TextScript \set #'font-style = #'italic
  11
  12
  13          d'8-[ a' f d a' f] |
  14         d a' f d a' f |
  15         d bes' g d bes' g |
  16         d bes' g d bes' g |
  17         %5
  18         cis, g' e cis g' e |
  19         cis bes' g e a g |
  20         f d f a f a |
  21         d a d f d f |
  22         b  f e d c b |
  23         %10
  24         a gis fis e d' b |
  25         <
  26                 {
  27
  28                         \property Voice.TextScript \set #'font-style = #'roman
  29                         c4-\mordent^\markup { \musicglyph #"accidentals-1" } r r |
  30                         c4-\mordent^\markup { \musicglyph #"accidentals-1" } r r
  31                         \property Voice.TextScript \set #'font-style = #'italic
  32                 } \\
  33                 { a4 r r | a4 r r }
  34         > |
  35         a'8 es d c bes a |
  36         g fis e! d c' a |
  37         %15
  38         bes8-\mordent d8 bes g g'4 |
  39         r8 d c bes a-\prall g |
  40         a c a f  f'4 |
  41         r8 c bes a g-\prall f |
  42         g bes a g f e |
  43         %20
  44         f d f a d g, |
  45         <
  46                 {
  47                         % ... textnatural
  48                         cis8-\prall e8 cis a e' cis
  49                 }\\
  50                 { \stemDown a4 }
  51         >
  52         a8 e' cis a bes! a |
  53         g e' cis g e' cis |
  54         g e' cis g a g |
  55
  56         f d' bes f d' bes |
  57         %25
  58         f d' bes f d' bes |
  59
  60         fis c' a fis c' a |
  61         fis c' a fis c' a |
  62         bes g fis g d g |
  63         bes g d bes' g d |
  64         %30
  65         e g fis g bes g |
  66         es bes' g es bes' g |
  67         cis, bes' g cis, bes' g |
  68         cis, bes' g cis, a' g |
  69         f a f d a' f |
  70         %35
  71         d a' f d cis d |
  72         e g e bes g' e |
  73         bes g' e cis a g' |
  74         f16 d c bes \stemUp a s16 s8 s4 |
  75 % ugh
  76 %       s1 |
  77         s4 s4 s4 |
  78         %40
  79         s4 s16  d16-[ f a] \stemDown  d,-[ f a] \stemBoth \stemUp d |
  80         \stemBoth
  81         f a f d  f d b d  gis, b a gis |
  82
  83         % arpeggio
  84         <<g'! e a,>>4. a8
  85         << f  d a >>4 ~
  86          f8-[ e]
  87         < {
  88                 e4.^\prall d8
  89           } \\
  90           {  cis2 }
  91         >
  92         d8 c! a d bes g |
  93         %45
  94         c a fis bes g e  |
  95
  96         a fis d g e cis |
  97
  98         %  the mordent is on the D !
  99         <<fis d a>>2.-\mordent
 100 }
 101
 102
 103 lower =  \context Staff \notes\relative c{
 104         \context Voice=i
 105
 106         d4-\mordent r r |
 107         d,4 r r |
 108         d'-\mordent r r |
 109         d,4 r r |
 110         d'-\mordent r r |
 111
 112         d,4 r r |
 113         d'8 a d f d f |
 114         a f a d a d |
 115         gis,4 r r |
 116         e gis e |
 117         a8 e' c a e' c  |
 118         g! es' c g es' c  |
 119         fis,4 r r
 120         d  fis d |
 121         \property Voice.TextScript \set #'font-style = #'roman
 122         g4-\mordent^\markup { \musicglyph #"accidentals-1" } r r8 f!8 |
 123         \property Voice.TextScript \set #'font-style = #'italic
 124         e4-\prall r r |
 125         f4-\mordent r r8 e |
 126         d4 r8 f e d |
 127         e d cis e d cis |
 128         d4 c! bes |
 129         a a' a, |
 130         a a' a, |
 131         a a' a, |
 132         a a' a, |
 133         bes r r |
 134         bes bes' bes, |
 135         a r r |
 136         a d d, |
 137         g r r |
 138         g g' g, |
 139         g r r |
 140         g g' g, |
 141         a r r |
 142         a a' a, |
 143         a r r |
 144         a a' a, |
 145         cis, r r |
 146         cis cis' cis, |
 147         d s16
 148         \stemDown
 149          g'16-[ f e] f a d, f |
 150         a, \stemUp  d-[ c bes]
 151
 152         a   \stemDown  g-[ f e] d f a d |
 153         \stemUp
 154
 155          f-[ a]
 156         \stemDown
 157          d,-[ f] a s s8 s4 |
 158         \stemBoth
 159 % ugh whole rest has duration of one bar
 160         R2. |
 161 %       r4 r r |
 162         \stemBoth
 163         cis,8 e cis a  d16 c bes a |
 164         g8 g' a g a a, |
 165         % ah, both at last
 166         % what's going on here??
 167         \stemBoth
 168         \stemBoth
 169         \stemBoth
 170         d4 d' d, |
 171         d r r |
 172         d, d' d, |
 173         d2. |
 174 }
 175
 176 global =  \notes{
 177         \time 3/4
 178         \key f \major
 179 }
 180
 181 \score{
 182         % Moderato
 183         \context PianoStaff <
 184                 \context Staff = upper <
 185                         \global
 186                         { \upper \bar "|." }
 187                 >
 188                 \context Staff = lower <
 189                         \global
 190                         \clef "bass"
 191                         \lower
 192                 >
 193         >
 194         \paper{
 195                 linewidth = 18.0 \cm
 196                 \translator {\PianoStaffContext
 197                              VerticalAlignment \set #'forced-distance = #10
 198                          }
 199
 200         }
 201         \midi{ \tempo 4 = 90 }
 202         \header{
 203                 piece = \piece
 204                 opus = \opus
 205         }
 206 }
 207
 208