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

   1 #(ly:set-point-and-click 'line-column)
   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.7.18"
  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         \property Voice.TextScript \set #'font-style = #'italic
  30
  31         r16 g'' c e r g, c e
  32         r g, c d r b d g |
  33         r16 a, d  g r a, d f
  34         r a, d e r c e a |
  35         r16 b, e a r b, e g
  36         r c, e f r g, d' f |
  37
  38         r g, d' e r g, c e
  39         r a, c d r e, b' d |
  40         r e, b' c r e, a c
  41         r f, a bes r c, g' bes |
  42         r c, g' a r c, f a
  43         r d, f b r e, g c |
  44         r d, g c r d, g b
  45         r c, g' b r c, fis a |
  46         r b, d a' r b, d g
  47         r a, c g' r a, c f! |
  48
  49         % ugh arpeggio FIXME: is that so?
  50         <<f d b>>4
  51         r4
  52
  53         \lowstaff
  54         \stemUp
  55         r16 g,, b d
  56          f-[ \upstaff \stemDown g16 b d ] |
  57         \stemUp b
  58         \lowstaff \stemDown
  59          g-[ b d ] f
  60         \upstaff
  61          g16-[ b d ] b
  62          g-[ b d ]
  63         \stemUp
  64
  65         % urg, below translator change affects previous beam too!?
  66         % howto separate translator command from previous beam end?
  67         \upstaff f g b f |
  68         \stemBoth
  69         e c' g f  e c' g e
  70         d c' f, e  d b' f d |
  71         c b' e, d  c a' e c
  72         b a' d, c  b g' d b |
  73         a g' c, b  a fis' c a
  74         b f' d c  b f' d b |
  75         g e' c b  a e' c a
  76         fis d' b a  g d' b g |
  77         e c' a g  fis c' a fis
  78         d c' b a  b g d' f, |
  79         g e f d'  c b a g
  80         f' d es c  fis, es' d c |
  81         b d b g  as f g d
  82         es fis a c
  83         <
  84                 { r c8 b16 } \\
  85                 { d,8 f }
  86         >
  87         <<c g e>>1
  88         \bar "|."
  89 }
  90
  91 lower =  \context Staff=lower \notes\relative c{
  92         \property Voice.TextScript \set #'font-style = #'roman
  93         c4 e g^\markup { \musicglyph #"accidentals-1" } -\mordent g,4 |
  94         d'4-\mordent f a-\mordent^\markup { \musicglyph #"accidentals-1" }  a,4 |
  95         e' e'-\mordent a, b-\upprall |
  96         c4 e, fis gis-\upprall |
  97         a4 c, d e-\upprall |
  98         f4 e d-\prall c |
  99         g'-\mordent^\markup { \musicglyph  #"accidentals-1" }  g, g'-\mordent g, |
 100         g'-\mordent g, g'-\mordent g, |
 101         g' r s s | s s s s \clef "bass" |
 102         < { g1 ~ g ~ g ~ g ~ g ~ g ~ g } \\
 103           { g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
 104         >
 105         <<c, c,>>1
 106         \bar "|."
 107 }
 108
 109 global =  \notes{
 110         \time 4/4
 111 }
 112
 113 \score{
 114         % Moderato
 115         \context PianoStaff <
 116                 \context Staff = upper <
 117                         \global
 118                         \upper
 119                 >
 120                 \context Staff = lower <
 121                         \global
 122                         \clef "bass"
 123                         \lower
 124                 >
 125         >
 126         \paper { linewidth = 18.0 \cm  }
 127         \midi{ \tempo 4 = 80 }
 128         \header {
 129                 opus = \opus
 130                 piece = \piece
 131         }
 132 }
 133 %% new-chords-done %%