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

   1 #(set! point-and-click line-column-location)
   2
   3 opus = "BWV 925"
   4 piece = "4"
   5
   6 \version "1.3.146"
   7
   8 %{
   9
  10 This stretches LilyPond capabilities a little.
  11
  12 %}
  13
  14 one = \context Staff \notes\relative c {
  15         \context Voice=i
  16         \property Voice.TextScript \set #'font-style = #'italic
  17 %       r16_"legato"
  18         r16
  19         \property Voice.TextScript \set #'font-style = #'finger
  20         d' fis d  a' b cis a
  21         d cis d e  d fis e d |
  22         \property Voice.TextScript \set #'font-style = #'finger
  23         \stemUp\tieUp
  24         cis4 fis ~ fis8 fis e4 ~ |
  25         e16 \stemBoth\tieBoth a,16 cis a  d e fis d
  26         g fis g a  g b a g |
  27         \stemUp
  28
  29         fis4 e8 a <fis4 d> <gis e> |
  30         %5
  31         <a4 e> <fis d> < g!16 d> fis g a
  32         \stemBoth
  33         g b a g |
  34         \property Voice.TextScript \set #'font-style = #'italic
  35
  36         fis e fis g  fis a g fis
  37         \property Voice.TextScript \set #'font-style = #'finger
  38 %       e4-"2\\_5" ~ e16 e, fis g  |
  39         e4 ~ e16 e, fis g  |
  40         \property Voice.TextScript \set #'font-style = #'italic
  41
  42         a g a b  a c b a
  43         g fis g a  g b a g |
  44         \stemUp\tieUp
  45         fis4
  46         \skip 4*7 |
  47         %10
  48         \property Voice.TextScript \set #'font-style = #'finger
  49 %       d'4. cis8-"4\\_5" ~ cis b4 a8-"4\\_5" ~ |
  50         d'4. cis8 ~ cis b4 a8 ~ |
  51         \property Voice.TextScript \set #'font-style = #'italic
  52
  53         a g4 fis8 ~ fis16 fis e d
  54         \property Voice.TextScript \set #'font-style = #'finger
  55 %       e4-"3\\_5" ~ |
  56         e4 ~ |
  57         e16 e d cis d4 ~ d16 d cis b cis4 |
  58         \stemBoth
  59         fis,16 a d c  b d g fis
  60         d b' a g  fis e d c! |
  61         b d g a  fis8-\prall e16 d
  62         d8. e16~  e d8 cis16 |
  63         %15
  64         \stemUp\tieUp
  65         r16 d fis d  g a b g  c b c d  c e d c |
  66         b4 a ~ a8 g ~  g16 fis8 e16 |
  67         fis8 e~  e d~ d4 cis |
  68
  69         d2 ~ d16 a b cis d4 |
  70         \bar "|."
  71 }
  72
  73 two = \context Staff \notes\relative c{
  74         \context Voice=ii
  75         \stemUp
  76         \property Voice.TextScript \set #'font-style = #'finger
  77         fis4 e8 a4 a4 gis8 |
  78          a8
  79         \translator Staff=upper \stemDown\tieDown
  80
  81         a'4 a8 b4. cis8 ~ |
  82         cis8
  83         \translator Staff=lower \stemUp\tieUp
  84         a,8 ~ a d ~ d d4-> cis8 |
  85         d8
  86         \translator Staff=upper \stemDown\tieDown
  87         d'4-> cis8 ~ cis b4 b8 |
  88         %5
  89         r8 a4 a8
  90         \translator Staff=lower \stemUp\tieUp
  91         g8 fis e4 ~ |
  92         e4 d ~ d16 d cis b cis4 ~ |
  93         cis8 a d4. d4^> cis8 |
  94         \translator Staff=upper \stemDown\tieDown
  95         d4 \stemBoth\tieBoth r16 b d b~ <g'4 e b>
  96         r16 cis, e cis~ |
  97         <a'4 fis cis> r16 d, fis d~ <b'4 g d>
  98         r16 fis a fis~ |
  99         %10
 100         \stemDown
 101         fis4 e d cis |
 102         b a b4. b8 |
 103         a4
 104         \translator Staff=lower \stemUp
 105         r16 b fis a g4 r16 a e g |
 106         \skip 1*1
 107         s16
 108         \translator Staff=upper \stemDown\tieDown
 109         d'8. ~ d8 c d4 a8 g |
 110         %15
 111         fis8 \translator Staff=lower \stemUp c' b4 \stemDown <a
 112         \translator Staff=upper \stemDown
 113         a'4.>
 114         \stemDown\tieDown
 115         a'8~ |
 116         a g~  g16 e fis8~  fis16 d8.~  d8. cis!16 |
 117 %       \translator Staff=lower \stemUp
 118         \context Staff <
 119 %               \context Voice=i { \stemUp\tieU  d8 a~ a4 }
 120 %               \context Voice=ii { \stemDown a8 g  fis16 e fis d }
 121                 \context Voice=ii {
 122                         \translator Staff = upper
 123                         \stemDown\tieDown d8 a~ a4
 124                 }
 125                 \context Voice=iii {
 126                         \translator Staff = lower
 127                         \stemUp a8 g fis16 e fis d
 128                 }
 129         >
 130         \translator Staff=lower
 131         \stemUp\tieUp
 132         g fis g a  g b a g ~ |
 133         g g fis e fis4 ~ fis2
 134         \bar "|."
 135 }
 136
 137 three = \notes\relative c{
 138         \context Voice=iii
 139         \stemDown
 140         d4 cis b e |
 141         a16 a, cis a  d e fis d
 142         g fis g a  g b a g |
 143         fis4 fis e a |
 144         d16 \stemBoth d, fis d  a' b cis a
 145         d cis d e  d fis e  d |
 146         %5
 147         cis b cis d  c e d c
 148         \stemDown b4 cis8 b |
 149         a fis b a  gis e a g |
 150         fis4. d8 e4 a4 |
 151         \stemBoth
 152         r16 d, fis d  g8 g,
 153         r16 e' g e  a8 a, |
 154         r16 fis' a fis  b8 b, r16 g' b g  d'8 d, |
 155         %10
 156         r16 d,16 fis d  a' b cis a  d b d b
 157         fis' g a fis |
 158         fis16 g, b g  d' e fis d  g8 g, r16 cis e cis |
 159         fis8 fis, \stemDown r16 b d b e8 e,
 160         r16 a cis a |
 161         \stemBoth
 162         d e fis d  g fis e d  cis! a b cis
 163         d e fis d |
 164         g8 e \stemDown\tieDown a a,  b8. g16 a4 |
 165         %15
 166         d8 a'~  a g~  g g fis4 |
 167         \stemUp
 168         r16 g b g  d'8. c16  b8. bes16  a8 g |
 169         \stemDown
 170         r16 a, cis! a'  d, e fis d  e8 d  e a, |
 171         d a~  a16 a b cis d2 |
 172 }
 173
 174 four = \context Staff \notes\relative c{
 175         \skip 1*9
 176         \context Voice=iv
 177         \stemUp
 178         \property Voice.NoteColumn \override #'horizontal-shift = #1
 179         %10
 180         a''2 fis |
 181         d s |
 182         \skip 1*2 |
 183         s4
 184         \translator Staff=lower \stemUp\tieUp
 185         a4 ~ a16 d, g8  fis e |
 186         %15
 187         \stemDown\tieDown
 188         d1 ~ |
 189         % we'll get some warnings, but it looks better
 190         \property Voice.NoteColumn \override #'horizontal-shift = #0
 191         d |
 192         d, ~ |
 193         d2 d2
 194 }
 195
 196 global = \notes{
 197         \time 4/4
 198         \key d \major
 199 }
 200
 201 \score{
 202         % Allegretto
 203         \context PianoStaff <
 204                 \context Staff = upper <
 205                         \global
 206                         \one
 207                         \four
 208                 >
 209                 \context Staff = lower <
 210                         \global
 211                         \clef "bass"
 212                         \two
 213                         \three
 214                 >
 215         >
 216         \paper{
 217                 linewidth = 18.0 \cm
 218                 \translator{
 219                         \VoiceContext
 220                         % consider ending beam at every 1 2 note
 221                         autoBeamSettings \override #'(end 1 8 * *) = #(make-moment 1 4)
 222                 }
 223         }
 224         \midi{ \tempo 4 = 70 }
 225         \header{
 226                 opus = \opus
 227                 piece = \piece
 228         }
 229 }