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 one = \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 two = \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 treble_staff = \type Staff = treble <
 147         \global
 148         \one
 149 >
 150
 151 bass_staff = \type Staff = bass <
 152 % bass = Staff <
 153         \clef "bass";
 154         \global
 155         \two
 156 >
 157
 158 grand_staff = \type Grandstaff <
 159         \treble_staff
 160         \bass_staff
 161 >
 162
 163 a4 = \paper{
 164         \paper_twenty
 165         linewidth= 195.\mm;
 166 }
 167
 168 \score{
 169         % Semplice e non troppo legato
 170         \grand_staff
 171         \paper{ \a4 }
 172         \midi{ \tempo 4 = 100; }
 173 }