mutopia/J.S.Bach/preludes-3.ly.m4

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