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.1.60";
  21
  22
  23 upper = \type Staff \notes \transpose c'' {
  24         \type Voice=i
  25         \property Voice . textstyle = "italic"
  26 %#      s(^c@ ^es@ ^g@ ^\p(\<@ ^\!@ ^)\!@ ^\>@)
  27         t(c,es,g,^\p(\<@,\!,^)\!@,\>)
  28 %#      s(c es g ^(@ ^@ ^)@)
  29         t(c,es,g,^(@,^@,^)@)
  30 %#      s(c f as ^(@ ^@ ^)@)
  31         t(c,f,as,^(@,^@,^)@)
  32         s(c f as)
  33         s(b` d f \< \!)
  34         s(b` d f)
  35         s(g` c es \> \!)
  36         s(g` c es)
  37         s(g` c es \< \!)
  38         s(g` c es)
  39         s(a` c es)
  40         s(a` c es)
  41         s(a` bes` d \> \!)
  42         s(g` bes` d)
  43         s(bes` d g)
  44         s(a` es g \mf)
  45         s(a` c fis)
  46         s(a` c fis)
  47         s(bes` d g)
  48
  49
  50 %#      s(c fis a -"poco a poco cresc.")
  51 %#      t(c,fis,a,-"poco a poco cresc.")
  52         s(c fis a)
  53         s(d g bes)
  54         s(d fis c`)
  55
  56         s(cis g bes)
  57 %#      s(c es a !-"dim.")
  58         s(c es a !)
  59         s(bes` e g)
  60         s(a` c g)
  61
  62         s(a` c fis)
  63         s(g` bes` e)
  64         s(fis` a` es)
  65
  66         s(g` bes` d -"dim.")
  67         s(g` a` c)
  68         s(fis` a` c)
  69         s(fis` a` c)
  70         r16\p [g` a` c] [b` g` b` g`] r g` r g`
  71 %#      s(a` c fis -"poco cresc.")
  72 %#      t(a`,c,fis,-"poco cresc.")
  73         s(a` c fis)
  74         s(c fis a)
  75         s(b` d g)
  76 %#      s(b` d f -"dim.")
  77         s(b` d f)
  78         s(g` c es)
  79         s(fis` c es)
  80         s(fis` c es)
  81         r16 [g`(\< b` d] [b` g` b` d] [es c a` \!fis] |
  82         <
  83                 {\stemup ) g2.-\fermata\mf}
  84                 \type Voice=ii {\stemdown <b`2. d>}
  85         >
  86         \stemboth
  87         \bar "|.";
  88 }
  89
  90 lower = \type Staff \notes{
  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         \time 3/4;
 153         \key es;
 154 }
 155
 156 \score{
 157         % Semplice e non troppo legato
 158         \type GrandStaff <
 159                 \type Staff = upper <
 160                         \global
 161                         \upper
 162                 >
 163                 \type Staff = lower <
 164                         \global
 165                         \clef "bass";
 166                         \lower
 167                 >
 168         >
 169         \paper{
 170                 \include "preludes-paper.ly";
 171                 gourlay_maxmeasures = 4.0;
 172         }
 173         \midi{ \tempo 4 = 100; }
 174         \header{
 175                 opus =  "BWV 999";
 176                 piece = "3";
 177         }
 178 }