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

   1 #(set! point-and-click line-column-location)
   2
   3 opus= "BWV 999"
   4 piece = "3"
   5
   6 %{
   7
   8 TODO: this file needs additional layouting: the upper voice should
   9 switch staffs to avoid leger lines.
  10
  11 Not all editions agree on the last note: ed. Lemoine has a quarter
  12 note, some have dotted half notes.
  13
  14 This file was partly generated using m4.
  15 %}
  16
  17 \version "1.3.146"
  18
  19
  20 upper =   \notes \transpose c'' {
  21         r16 [c es g] [es c es c] r c r c |
  22         r16 [c es g] [es c es c] r c r c |
  23         r16 [c f as] [f c f c] r c r c |
  24         r16 [c f as] [f c f c] r c r c |
  25         r16 [b, d f] [d b, d b,] r b, r b, |
  26         r16 [b, d f] [d b, d b,] r b, r b, |
  27         r16 [g, c es] [c g, c g,] r g, r g, |
  28         r16 [g, c es] [c g, c g,] r g, r g, |
  29         r16 [g, c es] [c g, c g,] r g, r g, |
  30         r16 [g, c es] [c g, c g,] r g, r g, |
  31         r16 [a, c es] [c a, c a,] r a, r a, |
  32         r16 [a, c es] [c a, c a,] r a, r a, |
  33         r16 [a, bes, d] [bes, a, bes, a,] r a, r a, |
  34         r16 [g, bes, d] [bes, g, bes, g,] r g, r g, |
  35         r16 [bes, d g] [d bes, d bes,] r bes, r bes, |
  36         r16 [a, es g] [es a, es a,] r a, r a, |
  37         r16 [a, c fis] [c a, c a,] r a, r a, |
  38         r16 [a, c fis] [c a, c a,] r a, r a, |
  39         r16 [bes, d g] [d bes, d bes,] r bes, r bes, |
  40
  41         r16 [c fis a] [fis c fis c] r c r c |
  42         r16 [d g bes] [g d g d] r d r d |
  43         r16 [d fis c'] [fis d fis d] r d r d |
  44
  45         r16 [cis g bes] [g cis g cis] r cis r cis |
  46         r16 [c! es a] [es c es c] r c r c |
  47         r16 [bes, e g] [e bes, e bes,] r bes, r bes, |
  48         r16 [a, c g] [c a, c a,] r a, r a, |
  49
  50         r16 [a, c fis] [c a, c a,] r a, r a, |
  51         r16 [g, bes, e] [bes, g, bes, g,] r g, r g, |
  52         r16 [fis, a, es] [a, fis, a, fis,] r fis, r fis, |
  53         r16 [g, bes, d] [bes, g, bes, g,] r g, r g, |
  54         r16 [g, a, c] [a, g, a, g,] r g, r g, |
  55         r16 [fis, a, c] [a, fis, a, fis,] r fis, r fis, |
  56         r16 [fis, a, c] [a, fis, a, fis,] r fis, r fis, |
  57         r16 [g, a, c] [b, g, b, g,] r g, r g,
  58         r16 [a, c fis] [c a, c a,] r a, r a, |
  59         r16 [c fis a] [fis c fis c] r c r c |
  60         r16 [b, d g] [d b, d b,] r b, r b, |
  61         r16 [b, d f] [d b, d b,] r b, r b, |
  62         r16 [g, c es] [c g, c g,] r g, r g, |
  63         r16 [fis, c es] [c fis, c fis,] r fis, r fis, |
  64         r16 [fis, c es] [c fis, c fis,] r fis, r fis, |
  65         r16 [g, b, d] [b, g, b, d] [es c a, fis] |
  66
  67
  68         <g4 d b>
  69         \bar "|."
  70 }
  71
  72 lower =   \notes{
  73         c4 r [g8 es] |
  74         c4 r [g8 es] |
  75         c4 r [as8 f] |
  76
  77         c4 r [as8 f] |
  78         c4 r [as8 f] |
  79         c4 r [as8 f] |
  80
  81         c4 r [es8 c] |
  82         bes,!4 r [es8 c] |
  83         as,!4 r [es8 c] |
  84
  85         g,4 r [es8 c] |
  86         fis,4 r [es8 c] |
  87         fis,4 r [fis8 d] |
  88
  89         g,4 r [d8 bes,] |
  90         g,4 r [bes,8 g,] |
  91         es,4 r [g8 es] |
  92
  93         c4 r [c8 a,] |
  94         d,4 r [d8 a,] |
  95         d,4 r [d8 a,] |
  96         d,4 r [d8 bes,] |
  97
  98
  99         d,4 r [es8 c] |
 100         d,4 r [g8 d] |
 101         d,4 r [a8 fis] |
 102
 103         d,4 r [g8 es] |
 104         d,4 r [fis8 d] |
 105         d,4 r [e8 cis] |
 106         d,4 r [es8 c] |
 107
 108         d,4 r [d8 a,] |
 109         d,4 r [cis8 bes,] |
 110         d,4 r [c!8 a,] |
 111
 112         d,4 r [bes,8 g,] |
 113         d,4 r [es8 c] |
 114         d,4 r [d8 a,] |
 115
 116         g,4 r [es8 c] |
 117         g,4 r [d8 b,] |
 118         g,4 r [es8 c] |
 119
 120         g,4 r [es8 c] |
 121         g,4 r [g8 d] |
 122         g,4 r [as8 f] |
 123         g,4 r [es8 c] |
 124
 125         g,4 r [es8 c] |
 126         g,4 r [es8 c] |
 127         g,4 r r |
 128         %% FIXME: \fermata?
 129         g,4_\fermata
 130         \bar "|."
 131 }
 132
 133 global  = \notes{
 134         \time 3/4
 135         \key es \major
 136 }
 137
 138 \score{
 139         \context PianoStaff <
 140                 \context Staff = up <
 141                         \global
 142                         \upper
 143                 >
 144                 \context Staff = down <
 145                         \global
 146                         \clef "bass"
 147                         \lower
 148                 >
 149         >
 150         \paper{
 151                 \translator {\OrchestralScoreContext }
 152         }
 153         \midi{ \tempo 4 = 100 }
 154         \header{
 155                 opus = \opus
 156                 piece = \piece
 157         }
 158 }