mutopia/J.S.Bach/Petites-Preludes/preludes-3.lym4

   1 % URG
   2
   3 changequote(^, @)
   4 define(comma, r16 [$1$4 $2 $3] [$2 $1 $2 $6$1] r $1$7 r $5$1 |)
   5 define(s, ^comma(translit($*,^ @, ^,@))@)
   6 define(t, r16 [$1$4 $2 $3] [$2 $1 $2 $6$1] r $1$7 r $5$1 |)
   7
   8 \header{
   9 filename =       "preludes-3.ly";
  10 %
  11 % page 16
  12 %
  13 % Pr"aludum in C Moll f"ur Laute
  14 %
  15 % Six Petits Preludes`
  16 % Collection Johann Peter Kellner
  17 % ca 1703 - 1707
  18 composer =       "Johann Sebastian Bach (1685-1750)";
  19 enteredby =      "jcn";
  20 copyright =      "public domain";
  21 }
  22
  23 \version "1.1.60";
  24
  25
  26 upper = \context Staff \notes \transpose c'' {
  27         \context Voice=i
  28         \property Voice . textstyle = "italic"
  29 %#      s(^c@ ^es@ ^g@ ^\p(\<@ ^\!@ ^)\!@ ^\>@)
  30         t(c,es,g,^\p(\<@,\!,^)\!@,\>)
  31 %#      s(c es g ^(@ ^@ ^)@)
  32         t(c,es,g,^(@,^@,^)@)
  33 %#      s(c f as ^(@ ^@ ^)@)
  34         t(c,f,as,^(@,^@,^)@)
  35         s(c f as)
  36         s(b` d f \< \!)
  37         s(b` d f)
  38         s(g` c es \> \!)
  39         s(g` c es)
  40         s(g` c es \< \!)
  41         s(g` c es)
  42         s(a` c es)
  43         s(a` c es)
  44         s(a` bes` d \> \!)
  45         s(g` bes` d)
  46         s(bes` d g)
  47         s(a` es g \mf)
  48         s(a` c fis)
  49         s(a` c fis)
  50         s(bes` d g)
  51
  52
  53 %#      s(c fis a -"poco a poco cresc.")
  54 %#      t(c,fis,a,-"poco a poco cresc.")
  55         s(c fis a)
  56         s(d g bes)
  57         s(d fis c')
  58
  59         s(cis g bes)
  60 %#      s(c es a !-"dim.")
  61         s(c es a !)
  62         s(bes` e g)
  63         s(a` c g)
  64
  65         s(a` c fis)
  66         s(g` bes` e)
  67         s(fis` a` es)
  68
  69         s(g` bes` d -"dim.")
  70         s(g` a` c)
  71         s(fis` a` c)
  72         s(fis` a` c)
  73         r16\p [g` a` c] [b` g` b` g`] r g` r g`
  74 %#      s(a` c fis -"poco cresc.")
  75 %#      t(a`,c,fis,-"poco cresc.")
  76         s(a` c fis)
  77         s(c fis a)
  78         s(b` d g)
  79 %#      s(b` d f -"dim.")
  80         s(b` d f)
  81         s(g` c es)
  82         s(fis` c es)
  83         s(fis` c es)
  84         r16 [g`(\< b` d] [b` g` b` d] [es c a` \!fis] |
  85         \context Staff <
  86                 \context Voice=i {\stemup ) g2.-\fermata\mf}
  87                 \context Voice=ii {\stemdown <b`2. d>}
  88         >
  89         \stemboth
  90         \bar "|.";
  91 }
  92
  93 lower = \context Staff \notes{
  94         % c4 r [g8-.(\ped )es-.\*] |
  95         c4 r [g8-.( )es-.] |
  96         c4 r [g8-.( )es-.] |
  97         c4 r [as8-.( )f-.] |
  98
  99         c4 r [as8-.( )f-.] |
 100         c4 r [as8-.( )f-.] |
 101         c4 r [as8-.( )f-.] |
 102
 103         c4-- r [es8 c] |
 104         bes`!4-- r [es8 c] |
 105         as`!4-- r [es8 c] |
 106
 107         g`4-- r [es8 c] |
 108         fis`4-- r [es8 c] |
 109         fis`4 r [fis8 d] |
 110
 111         g`4 r [d8 bes`] |
 112         g`4 r [bes`8 g`] |
 113         es`4 r [g8 es] |
 114
 115         c4 r [c8 a`] |
 116         d`4 r [d8 a`] |
 117         d`4 r [d8 a`] |
 118         d`4 r [d8 bes`] |
 119
 120
 121         d`4 r [es8 c] |
 122         d`4 r [g8 d] |
 123         d`4 r [a8 fis] |
 124
 125         d`4 r [g8 es] |
 126         d`4 r [fis8 d] |
 127         d`4 r [e8 cis] |
 128         d`4 r [es8 c] |
 129
 130         d`4 r [d8 a`] |
 131         d`4 r [cis8 bes`] |
 132         d`4 r [c!8 a`] |
 133
 134         d`4 r [bes`8 g`] |
 135         d`4 r [es8 c] |
 136         d`4 r [d8 a`] |
 137
 138         g`4 r [es8 c] |
 139         g`4 r [d8 b`] |
 140         g`4 r [es8 c] |
 141
 142         g`4 r [es8 c] |
 143         g`4 r [g8 d] |
 144         g`4 r [as8 f] |
 145         g`4 r [es8 c] |
 146
 147         g`4 r [es8 c] |
 148         g`4 r [es8 c] |
 149         g`4 r r |
 150         g`2._\fermata
 151         \bar "|.";
 152 }
 153
 154 global  = \notes{
 155         \time 3/4;
 156         \key es;
 157 }
 158
 159 \score{
 160         % Semplice e non troppo legato
 161         \context GrandStaff <
 162                 \context Staff = upper <
 163                         \global
 164                         \upper
 165                 >
 166                 \context Staff = lower <
 167                         \global
 168                         \clef "bass";
 169                         \lower
 170                 >
 171         >
 172         \paper{
 173                 \include "preludes-paper.ly";
 174                 gourlay_maxmeasures = 4.0;
 175         }
 176         \midi{ \tempo 4 = 100; }
 177         \header{
 178                 opus =  "BWV 999";
 179                 piece = "3";
 180         }
 181 }