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

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