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

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