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

   1 #(ly:set-point-and-click 'line-column)
   2
   3 opus = "BWV 940"
   4 piece = "6"
   5
   6 \version "1.7.6"
   7
   8
   9
  10 one =  \context Staff \notes\relative c{
  11         \context Voice=i
  12         \skip 1 |
  13         \stemUp
  14         r4 d''2 cis4 |
  15         \stemBoth
  16         d16 a' g f  e f cis d
  17         e8.-\mordent f16  d8.-\prall cis16 |
  18         \stemUp\tieUp
  19         cis4 ~ cis16 a d8 ~ d4 a |
  20         %5
  21         b2 ~ b4 a ~ |
  22         a16 a \stemUp g! f g4 ~ g f ~ |
  23         f16 a g f  e16 g8. ~  g16 g f e  d f8. ~ |
  24         f16 f e d b'4 a g |
  25
  26         fis4 g r8 g16 bes e4 |
  27         %10
  28         d1
  29         \bar "|."
  30 }
  31
  32 two =  \context Staff \notes\relative c{
  33         \context Voice=ii
  34         r16 d'' c bes  a bes f g
  35         a8.-\mordent bes16  g8.-\prall f16 |
  36         \stemDown
  37         f2 e2 |
  38         \translator Staff=lower \stemUp
  39         r4 a, bes b |
  40         \translator Staff=upper \stemDown\tieDown
  41         r16 b' a g  f8. f16 e2 ~ |
  42         %5
  43         e2 ~ e4 ~ e16 e f! d |
  44         s4 e32 d e8.~ e4 d4 ~ |
  45         d4. cis16 d cis4 d ~ |
  46         d8 r r16 e f d r16 e f d r d e cis |
  47         r16 e d c!  bes! d8. s4 r16 bes' a g |
  48         %10
  49         fis1
  50 }
  51
  52 three =  \context Staff \notes\relative c{
  53         \context Voice=iii
  54         \stemUp
  55         f2 e |
  56         \stemBoth
  57         d16 d' c bes  a bes f g
  58         a8.-\mordent bes16
  59         g8.-\prall f16 |
  60         f2 g4 gis |
  61         a2 ~ a16 a g f  e f c d |
  62         %5
  63         e8.-\mordent f16  d8.-\prall c16 \stemBoth c4. d8 |
  64         \stemDown
  65         e4 ~ e16 f e d  cis a b cis  d e f d |
  66         \property Voice.TextScript \set #'font-style = #'finger
  67         bes!2 a ~ |
  68         a a |
  69         d, cis' |
  70         %10
  71         a'1
  72         \bar "|."
  73 }
  74
  75 four =  \context Staff \notes\relative c{
  76         \context Voice=iv
  77         \stemDown
  78         d2 cis |
  79         \skip 1*2 |
  80         \skip 4*3
  81         \translator Staff=upper \stemUp
  82         \property Voice.NoteColumn \override #'horizontal-shift = #1
  83         c''4 |
  84         %5
  85         a gis ~ gis16 gis fis e
  86         \skip 4*1
  87         \translator Staff=lower \stemDown
  88         \property Voice.NoteColumn \override #'horizontal-shift = #0
  89         \stemUp\tieUp
  90         b2 a |
  91         g a4. gis16 a |
  92         gis2 << g cis,>>8 <<f d>> e4 |
  93         d4. fis16 g r16 bes8. ~ bes4 |
  94         %10
  95         \stemDown
  96         d,1
  97 }
  98
  99 global =  \notes{
 100         \time 4/4
 101         \key f \major
 102 }
 103
 104 \score{
 105         % Allegretto
 106         \context PianoStaff <
 107                 \context Staff = upper <
 108                         \global
 109                         \one
 110                         \two
 111                 >
 112                 \context Staff = lower <
 113                         \global
 114                         \clef "bass"
 115                         \three
 116                         \four
 117                 >
 118         >
 119         \paper{
 120                 linewidth = 18.0 \cm
 121
 122         }
 123         \midi{ \tempo 4 = 40 }
 124         \header{
 125                 piece = \piece
 126                 opus = \opus
 127         }
 128 }
 129
 130 %% new-chords-done %%