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         t(c,fis,a,-"poco a poco cresc.")
  44         s(d g bes)
  45         s(d fis c')
  46
  47         s(cis g bes)
  48         s(c es a !-"dim.")
  49         s('bes e g)
  50         s('a c g)
  51
  52         s('a c fis)
  53         s('g 'bes e)
  54         s('fis 'a es)
  55
  56         s('g 'bes d -"dim.")
  57         s('g 'a c)
  58         s('fis 'a c)
  59         s('fis 'a c)
  60         r16\p ['g 'a c] ['b 'g 'b 'g] r 'g r 'g
  61 %#      s('a c fis -"poco cresc.")
  62         t('a,c,fis,-"poco cresc.")
  63         s(c fis a)
  64         s('b d g)
  65         s('b d f -"dim.")
  66         s('g c es)
  67         s('fis c es)
  68         s('fis c es)
  69         r16 ['g(\< 'b d] ['b 'g 'b d] [es c 'a )\!fis] |
  70         \multi 2 <
  71                 {\stemup; g2.-\fermata\mf}
  72                 {\stemdown; <'b2. d>}
  73         >
  74         \stemboth;
  75         \bar "|.";
  76 }
  77
  78 lh = \melodic{
  79         \octave c;
  80         \clef bass;
  81         % c4 r [g8-.(\ped )es-.\*] |
  82         c4 r [g8-.( )es-.] |
  83         c4 r [g8-.( )es-.] |
  84         c4 r [as8-.( )f-.] |
  85
  86         c4 r [as8-.( )f-.] |
  87         c4 r [as8-.( )f-.] |
  88         c4 r [as8-.( )f-.] |
  89
  90         c4-- r [es8 c] |
  91         'bes!4-- r [es8 c] |
  92         'as!4-- r [es8 c] |
  93
  94         'g4-- r [es8 c] |
  95         'fis4-- r [es8 c] |
  96         'fis4 r [fis8 d] |
  97
  98         'g4 r [d8 'bes] |
  99         'g4 r ['bes8 'g] |
 100         'es4 r [g8 es] |
 101
 102         c4 r [c8 'a] |
 103         'd4 r [d8 'a] |
 104         'd4 r [d8 'a] |
 105         'd4 r [d8 'bes] |
 106
 107
 108         'd4 r [es8 c] |
 109         'd4 r [g8 d] |
 110         'd4 r [a8 fis] |
 111
 112         'd4 r [g8 es] |
 113         'd4 r [fis8 d] |
 114         'd4 r [e8 cis] |
 115         'd4 r [es8 c] |
 116
 117         'd4 r [d8 'a] |
 118         'd4 r [cis8 'bes] |
 119         'd4 r [c!8 'a] |
 120
 121         'd4 r ['bes8 'g] |
 122         'd4 r [es8 c] |
 123         'd4 r [d8 a] |
 124
 125         'g4 r [es8 c] |
 126         'g4 r [d8 'b] |
 127         'g4 r [es8 c] |
 128
 129         'g4 r [es8 c] |
 130         'g4 r [g8 d] |
 131         'g4 r [as8 f] |
 132         'g4 r [es8 c] |
 133
 134         'g4 r [es8 c] |
 135         'g4 r [es8 c] |
 136         'g4 r r |
 137         'g2._\fermata
 138         \bar "|.";
 139 }
 140
 141 global  = \melodic{
 142         \meter 3/4;
 143         \key bes es as;
 144 }
 145
 146 \score{
 147         % Semplice e non troppo legato
 148         \melodic \type Grandstaff <
 149                 <
 150                         \global
 151                         \rh
 152                 >
 153                 <
 154                         \global
 155                         \lh
 156                 >
 157         >
 158         \paper{
 159                 \paper_twenty
 160                 linewidth= 195.\mm;
 161         }
 162         \midi{
 163                 \tempo 4 = 90;
 164         }
 165 }