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

   1 %#(ly:set-point-and-click 'line-column)
   2
   3 opus = "BWV 925"
   4 piece = "4"
   5
   6 \version "1.7.18"
   7
   8
   9 one = \context Staff \notes\relative c {
  10         \context Voice=i
  11         r16
  12         d' fis d  a' b cis a
  13         d cis d e  d fis e d |
  14         \stemUp\tieUp
  15         cis4 fis ~ fis8 fis e4 ~ |
  16         e16 \stemBoth\tieBoth a,16 cis a  d e fis d
  17         g fis g a  g b a g |
  18         \stemUp
  19
  20         fis4 e8 a <<fis d>>4 <<gis e>> |
  21         %5
  22         <<a e>>4 <<fis d>> << g! d>>16 fis g a
  23         \stemBoth
  24         g b a g |
  25         fis e fis g  fis a g fis
  26         e4 ~ e16 e, fis g  |
  27
  28         a g a b  a c b a
  29         g fis g a  g b a g |
  30         \stemUp\tieUp
  31         fis4
  32         \skip 4*7 |
  33         %10
  34         d'4. cis8 ~ cis b4 a8 ~ |
  35         a g4 fis8 ~ fis16 fis e d
  36         e4 ~ |
  37         e16 e d cis d4 ~ d16 d cis b cis4 |
  38         \stemBoth
  39         fis,16 a d c  b d g fis
  40         d b' a g  fis e d c! |
  41         b d g a  fis8-\prall e16 d
  42         d8. e16~  e d8 cis16 |
  43         %15
  44         \stemUp\tieUp
  45         r16 d fis d  g a b g  c b c d  c e d c |
  46         b4 a ~ a8 g ~  g16 fis8 e16 |
  47         fis8 e~  e d~ d4 cis |
  48
  49         d2 ~ d16 a b cis d4 |
  50         \bar "|."
  51 }
  52
  53 two = \context Staff \notes\relative c
  54         \context Voice=ii
  55 {
  56
  57         \stemUp
  58         fis4 e8 a4 a4 gis8 |
  59          a8
  60         \translator Staff=upper \stemDown\tieDown
  61
  62         a'4 a8 b4. cis8 ~ |
  63         cis8
  64         \translator Staff=lower \stemUp\tieUp
  65         a,8 ~ a d ~ d d4-> cis8 |
  66         d8
  67         \translator Staff=upper \stemDown\tieDown
  68         d'4-> cis8 ~ cis b4 b8 |
  69         %5
  70         r8 a4 a8
  71         \translator Staff=lower \stemUp\tieUp
  72         g8 fis e4 ~ |
  73         e4 d ~ d16 d cis b cis4 ~ |
  74         cis8 a d4. d4^> cis8 |
  75         \translator Staff=upper \stemDown\tieDown
  76         d4 \stemBoth\tieBoth r16 b d b~ <<g' e b>>4
  77         r16 cis, e cis~ |
  78         <<a' fis cis>>4 r16 d, fis d~ <<b' g d>>4
  79         r16 fis a fis~ |
  80         %10
  81         \stemDown
  82         fis4 e d cis |
  83         b a b4. b8 |
  84         a4
  85         \translator Staff=lower \stemUp
  86         r16 b fis a g4 r16 a e g |
  87         \skip 1*1
  88         s16
  89         \translator Staff=upper \stemDown\tieDown
  90         d'8. ~ d8 c d4 a8 g |
  91         %15
  92         fis8 \translator Staff=lower \stemUp c' b4 \stemDown
  93         \translator Staff=upper <<a a'>>4.
  94         \stemDown\tieDown
  95         a'8~ |
  96         a g~  g16 e fis8~  fis16 d8.~  d8. cis!16 |
  97 %       \translator Staff=lower \stemUp
  98         \context Staff <
  99                  {
 100                 \translator Staff = lower
 101                   a8 g fis16 e fis d
 102                 }\\
 103                  {
 104                 \translator Staff = upper
 105                   d8 a~ a4
 106                 }
 107         >
 108         \translator Staff=lower
 109         \stemUp\tieUp
 110         g16 fis g a  g b a g ~ |
 111         g g fis e fis4 ~ fis2
 112         \bar "|."
 113 }
 114
 115 three = \notes\relative c       \context Voice=iii
 116 {
 117         \stemDown
 118         d4 cis b e |
 119         a16 a, cis a  d e fis d
 120         g fis g a  g b a g |
 121         fis4 fis e a |
 122         d16 \stemBoth d, fis d  a' b cis a
 123         d cis d e  d fis e  d |
 124         %5
 125         cis b cis d  c e d c
 126         \stemDown b4 cis8 b |
 127         a fis b a  gis e a g |
 128         fis4. d8 e4 a4 |
 129         \stemBoth
 130         r16 d, fis d  g8 g,
 131         r16 e' g e  a8 a, |
 132         r16 fis' a fis  b8 b, r16 g' b g  d'8 d, |
 133         %10
 134         r16 d,16 fis d  a' b cis a  d b d b
 135         fis' g a fis |
 136         fis16 g, b g  d' e fis d  g8 g, r16 cis e cis |
 137         fis8 fis, \stemDown r16 b d b e8 e,
 138         r16 a cis a |
 139         \stemBoth
 140         d e fis d  g fis e d  cis! a b cis
 141         d e fis d |
 142         g8 e \stemDown\tieDown a a,  b8. g16 a4 |
 143         %15
 144         d8 a'~  a g~  g g fis4 |
 145         \stemUp
 146         r16 g b g  d'8. c16  b8. bes16  a8 g |
 147         \stemDown
 148         r16 a, cis! a'  d, e fis d  e8 d  e a, |
 149         d a~  a16 a b cis d2 |
 150 }
 151
 152 four = \context Staff \notes\relative c{
 153         \skip 1*9
 154         \context Voice=iv
 155         \stemUp
 156         \property Voice.NoteColumn \override #'horizontal-shift = #1
 157         %10
 158         a''2 fis |
 159         d s |
 160         \skip 1*2 |
 161         s4
 162         \translator Staff=lower \stemUp\tieUp
 163         a4 ~ a16 d, g8  fis e |
 164         %15
 165         \stemDown\tieDown
 166         d1 ~ |
 167         % we'll get some warnings, but it looks better
 168         \property Voice.NoteColumn \override #'horizontal-shift = #0
 169         d |
 170         d, ~ |
 171         d2 d2
 172 }
 173
 174 global = \notes{
 175         \time 4/4
 176         \key d \major
 177 }
 178
 179 \score{
 180         % Allegretto
 181         \context PianoStaff <
 182                 \context Staff = upper <
 183                         \global
 184                         \one
 185                         \four
 186                 >
 187                 \context Staff = lower <
 188                         \global
 189                         \clef "bass"
 190                         \two
 191                         \three
 192                 >
 193         >
 194         \paper{
 195                 linewidth = 18.0 \cm
 196                 \translator{
 197                         \VoiceContext
 198                         % consider ending beam at every 1 2 note
 199                         autoBeamSettings \override #'(end 1 8 * *) = #(ly:make-moment 1 4)
 200                 }
 201         }
 202         \midi{ \tempo 4 = 70 }
 203         \header{
 204                 opus = \opus
 205                 piece = \piece
 206         }
 207 }
 208