mutopia/J.S.Bach/wtk1-prelude2.ly.m4

   1 %% under construction
   2
   3 define(preludepattern, `[' $1 $2 $3 $2 `]')
   4 define(preludehalfmeasure, preludepattern($1, $2, $3)
   5         preludepattern($4, $2, $3))
   6
   7 define(intromeasure,
   8         preludehalfmeasure($1, $2, $3, $4)
   9         preludehalfmeasure($1, $2, $3, $4)|
  10 )
  11 define(handymeasure, `intromeasure(translit($*,` ', `,'))')
  12
  13
  14
  15 trebleIntro=\melodic {
  16 \octave c';
  17 handymeasure(c' es d c)
  18 handymeasure(as f e c)
  19 handymeasure(b f es d)
  20 handymeasure(c g f es)
  21 handymeasure(es' as g es)
  22 handymeasure(d' fis e d)
  23 handymeasure(d' g fis d)
  24 handymeasure(c' e d c)
  25 handymeasure(c' f e c)
  26 handymeasure(bes f es d)
  27 handymeasure(bes g f es)
  28 handymeasure(as g f es)
  29 handymeasure(as d c Bes)
  30 handymeasure(g Bes As es)
  31 handymeasure(f c Bes A)
  32 handymeasure(f d c B)
  33 handymeasure(es c B G)
  34 handymeasure(F es d f)
  35 handymeasure(Fis c b es)
  36 handymeasure(es c B G)
  37 handymeasure(fis c B A)
  38 handymeasure(g c B d)
  39 handymeasure(as c B d)
  40 }
  41
  42 bassIntro = \melodic {
  43 \octave c;
  44 handymeasure(c g f es)
  45 handymeasure(c as g f)
  46 handymeasure(c as g f)
  47 handymeasure(c es d g)
  48 handymeasure(c c' bes as)
  49 handymeasure(c a g fis)
  50 handymeasure(Bes bes a g)
  51 handymeasure(Bes g f e)
  52 handymeasure(As as g f)
  53 handymeasure(As d c f)
  54 handymeasure(G es d g)
  55 handymeasure(c es d As)
  56 handymeasure(d f es as)
  57 handymeasure(es g f as)
  58 handymeasure(es a g f)
  59 handymeasure(d f es as)
  60 handymeasure(c f e as)
  61 preludehalfmeasure(c, es, d, f)
  62 preludehalfmeasure(bes, es, d, f)|
  63 handymeasure(As c b d)
  64 handymeasure(A es d c)
  65 handymeasure(G es d f)
  66 handymeasure(G es d c)
  67 handymeasure(G es d f)
  68 handymeasure(G es d f)
  69 }
  70
  71
  72 middlepiece = \melodic
  73 {
  74         \octave c;
  75         \stemdown
  76         [G B d]
  77         \stemup f [as f ef] [b f d' b'] [as f e f] |
  78         \stemdown [G c es]]
  79         \stemup g [c' g fis g ] [es' c' g' es'] [c' as g as]|
  80         \stemdown [G A fis]
  81         \translator Staff=treble
  82         \stemsboth \octave c';
  83         c [es c B c] [fis  c a fis] [es c B c] |
  84 }
  85
  86
  87
  88 }