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