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

   1 #(set! point-and-click #t)
   2
   3 opus = "BWV 924"
   4 piece = "1"
   5
   6
   7 %{
   8
   9 TODO: this file needs additional layouting: the trills look
  10 differently in Lemoine, and the sharps should be below the trill.
  11
  12 Additionally, the performance of trills should be explained.
  13
  14 FIXME (Bach sure didn't)?
  15 Lemoine puts fermatas on ending bar lines everywhere.
  16
  17 %}
  18
  19
  20
  21 \version "1.3.98";
  22
  23
  24 lowstaff =  \translator "Staff" = "lower"
  25 upstaff =  \translator "Staff" = "upper"
  26
  27 % upper = \context Staff \notes\relative c {
  28 upper =  \context Staff=upper \notes\relative c {
  29         \context Voice=i
  30         \property Voice.TextScript \set #'font-style = #'italic
  31
  32         r16 g'' c e r g, c e
  33         r g, c d r b d g |
  34         r16 a, d  g r a, d f
  35         r a, d e r c e a |
  36         r16 b, e a r b, e g
  37         r c, e f r g, d' f |
  38
  39         r g, d' e r g, c e
  40         r a, c d r e, b' d |
  41         r e, b' c r e, a c
  42         r f, a bes r c, g' bes |
  43         r c, g' a r c, f a
  44         r d, f b r e, g c |
  45         r d, g c r d, g b
  46         r c, g' b r c, fis a |
  47         r b, d a' r b, d g
  48         r a, c g' r a, c f! |
  49
  50         % ugh arpeggio FIXME: is that so?
  51         <f4 d b4>
  52         r4
  53
  54         \stemBoth
  55         \lowstaff
  56         \stemUp
  57         r16 g,, b d
  58         [ f \upstaff \stemDown g16 b d ] |
  59         \stemUp b
  60         \lowstaff \stemDown
  61         [ g b d ] f
  62         \upstaff
  63         [ g16 b d ] b
  64         [ g b d ]
  65         \stemUp
  66
  67         % urg, below translator change affects previous beam too!?
  68         % howto separate translator command from previous beam end?
  69         \upstaff f g b f |
  70         \stemBoth
  71         e c' g f  e c' g e
  72         d c' f, e  d b' f d |
  73         c b' e, d  c a' e c
  74         b a' d, c  b g' d b |
  75         a g' c, b  a fis' c a
  76         b f' d c  b f' d b |
  77         g e' c b  a e' c a
  78         fis d' b a  g d' b g |
  79         e c' a g  fis c' a fis
  80         d c' b a  b g d' f, |
  81         g e f d'  c b a g
  82         f' d es c  fis, es' d c |
  83         b d b g  as f g d
  84         es fis a c
  85         <
  86                 { \stemUp r c8 b16 }
  87                 \context Voice=ii { \stemDown  d,8 f }
  88         >
  89         \stemBoth |
  90         <c1 g e>
  91         \bar "|.";
  92 }
  93
  94 % lower = \context Staff \notes\relative c{
  95 lower =  \context Staff=lower \notes\relative c{
  96         \context Voice=i
  97         \property Voice.TextScript \set #'font-style = #'roman
  98         c4 e g^"\\textsharp"-\mordent g,4 |
  99         d'4-\mordent f a-\mordent^"\\textsharp" a,4 |
 100         e' e'-\mordent a, b-\upprall |
 101         c4 e, fis gis-\upprall |
 102         a4 c, d e-\upprall |
 103         f4 e d-\prall c |
 104         g'-\mordent^"\\textsharp" g, g'-\mordent g, |
 105         g'-\mordent g, g'-\mordent g, |
 106         g' r s s | s s s s \clef "bass"; |
 107         <
 108                 { \stemUp\tieUp g1 ~ g ~ g ~ g ~ g ~ g ~ g }
 109                 \context Voice=ii { \stemDown\tieDown g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
 110         >
 111         <c,1 c,>
 112         \bar "|.";
 113 }
 114
 115 global =  \notes{
 116         \time 4/4;
 117 }
 118
 119 \score{
 120         % Moderato
 121         \context PianoStaff <
 122                 \context Staff = upper <
 123                         \global
 124                         \upper
 125                 >
 126                 \context Staff = lower <
 127                         \global
 128                         \clef "bass";
 129                         \lower
 130                 >
 131         >
 132         \paper { linewidth = 18.0 \cm;  }
 133         \midi{ \tempo 4 = 80; }
 134         \header {
 135                 opus = \opus;
 136                 piece = \piece;
 137         }
 138 }