mutopia/J.S.Bach/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 one = \melodic{
  25         \octave c`;
  26         \textstyle "italic";
  27 %#      s(^c@ ^es@ ^g@ ^\p(\<@ ^\!@ ^)\!@ ^\>@)
  28         t(c,es,g,^\p(\<@,\!,^)\!@,\>)
  29 %#      s(c es g ^(@ ^@ ^)@)
  30         t(c,es,g,^(@,^@,^)@)
  31 %#      s(c f as ^(@ ^@ ^)@)
  32         t(c,f,as,^(@,^@,^)@)
  33         s(c f as)
  34         s(b` d f \< \!)
  35         s(b` d f)
  36         s(g` c es \> \!)
  37         s(g` c es)
  38         s(g` c es \< \!)
  39         s(g` c es)
  40         s(a` c es)
  41         s(a` c es)
  42         s(a` bes` d \> \!)
  43         s(g` bes` d)
  44         s(bes` d g)
  45         s(a` es g \mf)
  46         s(a` c fis)
  47         s(a` c fis)
  48         s(bes` d g)
  49
  50
  51 %#      s(c fis a -"poco a poco cresc.")
  52         t(c,fis,a,-"poco a poco cresc.")
  53         s(d g bes)
  54         s(d fis c`)
  55
  56         s(cis g bes)
  57         s(c es a !-"dim.")
  58         s(bes` e g)
  59         s(a` c g)
  60
  61         s(a` c fis)
  62         s(g` bes` e)
  63         s(fis` a` es)
  64
  65         s(g` bes` d -"dim.")
  66         s(g` a` c)
  67         s(fis` a` c)
  68         s(fis` a` c)
  69         r16\p [g` a` c] [b` g` b` g`] r g` r g`
  70 %#      s(a` c fis -"poco cresc.")
  71         t(a`,c,fis,-"poco cresc.")
  72         s(c fis a)
  73         s(b` d g)
  74         s(b` d f -"dim.")
  75         s(g` c es)
  76         s(fis` c es)
  77         s(fis` c es)
  78         r16 [g`(\< b` d] [b` g` b` d] [es c a` )\!fis] |
  79         <
  80                 {\voiceone g2.-\fermata\mf}
  81                 {\voicetwo <b`2. d>}
  82         >
  83         \onevoice
  84         \bar "|.";
  85 }
  86
  87 two = \melodic{
  88         \octave c;
  89         \clef bass;
  90         % c4 r [g8-.(\ped )es-.\*] |
  91         c4 r [g8-.( )es-.] |
  92         c4 r [g8-.( )es-.] |
  93         c4 r [as8-.( )f-.] |
  94
  95         c4 r [as8-.( )f-.] |
  96         c4 r [as8-.( )f-.] |
  97         c4 r [as8-.( )f-.] |
  98
  99         c4-- r [es8 c] |
 100         bes`!4-- r [es8 c] |
 101         as`!4-- r [es8 c] |
 102
 103         g`4-- r [es8 c] |
 104         fis`4-- r [es8 c] |
 105         fis`4 r [fis8 d] |
 106
 107         g`4 r [d8 bes`] |
 108         g`4 r [bes`8 g`] |
 109         es`4 r [g8 es] |
 110
 111         c4 r [c8 a`] |
 112         d`4 r [d8 a`] |
 113         d`4 r [d8 a`] |
 114         d`4 r [d8 bes`] |
 115
 116
 117         d`4 r [es8 c] |
 118         d`4 r [g8 d] |
 119         d`4 r [a8 fis] |
 120
 121         d`4 r [g8 es] |
 122         d`4 r [fis8 d] |
 123         d`4 r [e8 cis] |
 124         d`4 r [es8 c] |
 125
 126         d`4 r [d8 a`] |
 127         d`4 r [cis8 bes`] |
 128         d`4 r [c!8 a`] |
 129
 130         d`4 r [bes`8 g`] |
 131         d`4 r [es8 c] |
 132         d`4 r [d8 a] |
 133
 134         g`4 r [es8 c] |
 135         g`4 r [d8 b`] |
 136         g`4 r [es8 c] |
 137
 138         g`4 r [es8 c] |
 139         g`4 r [g8 d] |
 140         g`4 r [as8 f] |
 141         g`4 r [es8 c] |
 142
 143         g`4 r [es8 c] |
 144         g`4 r [es8 c] |
 145         g`4 r r |
 146         g`2._\fermata
 147         \bar "|.";
 148 }
 149
 150 global  = \melodic{
 151         \meter 3/4;
 152         \key bes es as;
 153 }
 154
 155 treble_staff = \type Staff = treble <
 156         \global
 157         \one
 158 >
 159
 160 bass_staff = \type Staff = bass <
 161 % bass = Staff <
 162         \clef "bass";
 163         \global
 164         \two
 165 >
 166
 167 grand_staff = \type Grand_staff <
 168         \treble_staff
 169         \bass_staff
 170 >
 171
 172 a4 = \paper{
 173         linewidth= 193.\mm;
 174 }
 175
 176 \score{
 177         % Semplice e non troppo legato
 178         \grand_staff
 179         \paper{ \a4 }
 180         \midi{ \tempo 4 = 100; }
 181 }