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

   1 #(set! point-and-click line-column-location)
   2
   3 opus= "BWV 939"
   4 piece = "2"
   5
   6
   7 \version "1.3.146"
   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         <e2 c g>
  15         r4
  16         <e c g >
  17         <d2 c a>
  18         r4
  19         <d c a>
  20         < { \stemUp [d8 g, 8 b d] }
  21           \context Voice = ii < \stemDown b g >
  22         >
  23
  24         <b4 g>
  25         <e b>
  26         c2
  27         r4
  28         <
  29                 { \stemUp\tieUp c ~ c8}
  30                 % We get a warning: No ties created!
  31                 % but they are too!
  32                 \context Voice=ii { \stemDown\tieDown <e,4 a> ~ <e8 a> }
  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         <g2 d b>
  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,2 c>
  46         <d4 b'>
  47         <e1 c'>
  48         \bar "|."
  49 }
  50
  51 lower =  \context Staff \notes\relative c{
  52         \context Voice=i
  53         <
  54                 { \stemUp\tieUp c1 ~ | c ~ | c }
  55                 \context Voice=ii { \stemDown\tieDown c,1 ~ | c ~ | c }
  56         >
  57         \stemBoth |
  58         r8 c e g  e c c' e, |
  59         fis d fis a  fis d d' fis, |
  60         g2 r4 g |
  61         a8 a, c e  c a g' e |
  62         fis2 r4 d |
  63         g-\mordent-#'(music "accidentals-1") g, 4 g'-\mordent g, |
  64         % mordents in brackets...
  65         g'-\mordent g, g'-\mordent g, |
  66         g'-\mordent g, g'-\mordent g, |
  67         g'8 g, b d  b g f'! d |
  68         e c e g  e c c' e, |
  69
  70         f1 ~ |
  71         f8 d e c g'4 g, |
  72         c,1
  73         \bar "|."
  74 }
  75
  76 global =  \notes{
  77         \time 4/4
  78 }
  79
  80 \score{
  81         \context GrandStaff <
  82                 \context Staff = upper <
  83                         \global
  84                         \upper
  85                 >
  86                 \context Staff = lower <
  87                         \global
  88                         \clef "bass"
  89                         \lower
  90                 >
  91         >
  92         \paper{
  93           linewidth = 18.0 \cm
  94         }
  95         \midi{ \tempo 4 = 100 }
  96         \header {
  97                 opus = \opus
  98                 piece = \piece
  99         }
 100 }
 101