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 title =  "3";
  11 opus =  "BWV 999";
  12 % piece = "\\numfont 3";
  13 piece = "3";
  14 % Pr"aludum in C Moll f"ur Laute
  15 % blz 16
  16 % Six Petits Preludes`
  17 % Collection Johann Peter Kellner
  18 % ca 1703 - 1707
  19 composer =       "Johann Sebastian Bach (1685-1750)";
  20 enteredby =      "jcn";
  21 copyright =      "public domain";
  22 }
  23
  24 \version "1.0.7";
  25
  26
  27 one = \notes  \transpose c`` {
  28         \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(d g bes)
  56         s(d fis c`)
  57
  58         s(cis g bes)
  59         s(c es a !-"dim.")
  60         s(bes` e g)
  61         s(a` c g)
  62
  63         s(a` c fis)
  64         s(g` bes` e)
  65         s(fis` a` es)
  66
  67         s(g` bes` d -"dim.")
  68         s(g` a` c)
  69         s(fis` a` c)
  70         s(fis` a` c)
  71         r16\p [g` a` c] [b` g` b` g`] r g` r g`
  72 %#      s(a` c fis -"poco cresc.")
  73         t(a`,c,fis,-"poco cresc.")
  74         s(c fis a)
  75         s(b` d g)
  76         s(b` d f -"dim.")
  77         s(g` c es)
  78         s(fis` c es)
  79         s(fis` c es)
  80         r16 [g`(\< b` d] [b` g` b` d] [es c a` )\!fis] |
  81         <
  82                 {\voiceone g2.-\fermata\mf}
  83                 {\voicetwo <b`2. d>}
  84         >
  85         \onevoice
  86         \bar "|.";
  87 }
  88
  89 two = \notes{
  90         \clef bass;
  91         % c4 r [g8-.(\ped )es-.\*] |
  92         c4 r [g8-.( )es-.] |
  93         c4 r [g8-.( )es-.] |
  94         c4 r [as8-.( )f-.] |
  95
  96         c4 r [as8-.( )f-.] |
  97         c4 r [as8-.( )f-.] |
  98         c4 r [as8-.( )f-.] |
  99
 100         c4-- r [es8 c] |
 101         bes`!4-- r [es8 c] |
 102         as`!4-- r [es8 c] |
 103
 104         g`4-- r [es8 c] |
 105         fis`4-- r [es8 c] |
 106         fis`4 r [fis8 d] |
 107
 108         g`4 r [d8 bes`] |
 109         g`4 r [bes`8 g`] |
 110         es`4 r [g8 es] |
 111
 112         c4 r [c8 a`] |
 113         d`4 r [d8 a`] |
 114         d`4 r [d8 a`] |
 115         d`4 r [d8 bes`] |
 116
 117
 118         d`4 r [es8 c] |
 119         d`4 r [g8 d] |
 120         d`4 r [a8 fis] |
 121
 122         d`4 r [g8 es] |
 123         d`4 r [fis8 d] |
 124         d`4 r [e8 cis] |
 125         d`4 r [es8 c] |
 126
 127         d`4 r [d8 a`] |
 128         d`4 r [cis8 bes`] |
 129         d`4 r [c!8 a`] |
 130
 131         d`4 r [bes`8 g`] |
 132         d`4 r [es8 c] |
 133         d`4 r [d8 a] |
 134
 135         g`4 r [es8 c] |
 136         g`4 r [d8 b`] |
 137         g`4 r [es8 c] |
 138
 139         g`4 r [es8 c] |
 140         g`4 r [g8 d] |
 141         g`4 r [as8 f] |
 142         g`4 r [es8 c] |
 143
 144         g`4 r [es8 c] |
 145         g`4 r [es8 c] |
 146         g`4 r r |
 147         g`2._\fermata
 148         \bar "|.";
 149 }
 150
 151 global  = \notes{
 152         \meter 3/4;
 153         \key es;
 154 }
 155
 156 treble_staff = \type Staff = treble <
 157         \global
 158         \one
 159 >
 160
 161 bass_staff = \type Staff = bass <
 162 % bass = Staff <
 163         \clef "bass";
 164         \global
 165         \two
 166 >
 167
 168 grand_staff = \type GrandStaff <
 169         \treble_staff
 170         \bass_staff
 171 >
 172
 173 a4 = \paper{
 174         linewidth= 193.\mm;
 175 }
 176
 177 \score{
 178         % Semplice e non troppo legato
 179         \grand_staff
 180         \paper{ \a4 }
 181         \midi{ \tempo 4 = 100; }
 182 }