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

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