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

   1 % #(ly:set-point-and-click 'line-column)
   2
   3 opus= "BWV 939"
   4 piece = "2"
   5
   6
   7 \version "1.7.18"
   8 upper =  \context Staff \notes\relative c{
   9         \context Voice=i
  10         \property Voice.TextScript \set #'font-style = #'italic
  11         r8 c' e g  e c bes' g |
  12         a c, f a  f c c' a |
  13         b g b d  b g f' d |
  14         <<e c g>>2
  15         r4
  16         <<e c g >>
  17         <<d c a>>2
  18         r4
  19         <<d c a>>
  20         < { d8-[ g, 8 b d] } \\
  21           { << b g >> }
  22         >
  23
  24         <<b g>>4
  25         <<e b>>
  26         c2
  27         r4
  28         <
  29             {  c ~ c8} \\
  30                 % We get a warning: No ties created!
  31                 % but they are too!
  32             { <<e, a>>4 ~ <<e a>>8 }
  33         >
  34         \stemBoth
  35         d, fis a  fis d c' a |
  36         b g b d  b g f'! d |
  37         e g, c e  c g g' e |
  38         fis a, c fis  c a a' fis |
  39         <<g d b>>2
  40         r4 b,4 |
  41         c8 e g c  g e bes' g |
  42         a16 g f e  d c b ! a
  43         b g a b  c d e f |
  44         g4
  45         <<g, c>>2
  46         <<d b'>>4
  47         <<e c'>>1
  48         \bar "|."
  49 }
  50
  51 lower =  \context Staff \notes\relative c{
  52         <
  53                 { c1 ~ | c ~ | c } \\
  54                 { c,1 ~ | c ~ | c }
  55         >
  56         \stemBoth |
  57         r8 c e g  e c c' e, |
  58         fis d fis a  fis d d' fis, |
  59         g2 r4 g |
  60         a8 a, c e  c a g' e |
  61         fis2 r4 d |
  62         g-\mordent-\markup  { \musicglyph #"accidentals-1" } g, 4 g'-\mordent g, |
  63         % mordents in brackets...
  64         g'-\mordent g, g'-\mordent g, |
  65         g'-\mordent g, g'-\mordent g, |
  66         g'8 g, b d  b g f'! d |
  67         e c e g  e c c' e, |
  68
  69         f1 ~ |
  70         f8 d e c g'4 g, |
  71         c,1
  72         \bar "|."
  73 }
  74
  75 global =  \notes{
  76         \time 4/4
  77 }
  78
  79 \score{
  80         \context GrandStaff <
  81                 \context Staff = upper <
  82                         \global
  83                         \upper
  84                 >
  85                 \context Staff = lower <
  86                         \global
  87                         \clef "bass"
  88                         \lower
  89                 >
  90         >
  91         \paper{
  92           linewidth = 18.0 \cm
  93         }
  94         \midi{ \tempo 4 = 100 }
  95         \header {
  96                 opus = \opus
  97                 piece = \piece
  98         }
  99 }
 100
 101