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 \transpose c'' {
  16 handymeasure(c' es d c)
  17 handymeasure(as f e c)
  18 handymeasure(b f es d)
  19 handymeasure(c g f es)
  20 handymeasure(es' as g es)
  21 handymeasure(d' fis e d)
  22 handymeasure(d' g fis d)
  23 handymeasure(c' e d c)
  24 handymeasure(c' f e c)
  25 handymeasure(bes f es d)
  26 handymeasure(bes g f es)
  27 handymeasure(as g f es)
  28 handymeasure(as d c Bes)
  29 handymeasure(g Bes As es)
  30 handymeasure(f c Bes A)
  31 handymeasure(f d c B)
  32 handymeasure(es c B G)
  33 handymeasure(F es d f)
  34 handymeasure(Fis c b es)
  35 handymeasure(es c B G)
  36 handymeasure(fis c B A)
  37 handymeasure(g c B d)
  38 handymeasure(as c B d)
  39 }
  40
  41 bassIntro = \melodic {
  42 handymeasure(c g f es)
  43 handymeasure(c as g f)
  44 handymeasure(c as g f)
  45 handymeasure(c es d g)
  46 handymeasure(c c' bes as)
  47 handymeasure(c a g fis)
  48 handymeasure(Bes bes a g)
  49 handymeasure(Bes g f e)
  50 handymeasure(As as g f)
  51 handymeasure(As d c f)
  52 handymeasure(G es d g)
  53 handymeasure(c es d As)
  54 handymeasure(d f es as)
  55 handymeasure(es g f as)
  56 handymeasure(es a g f)
  57 handymeasure(d f es as)
  58 handymeasure(c f e as)
  59 preludehalfmeasure(c, es, d, f)
  60 preludehalfmeasure(bes, es, d, f)|
  61 handymeasure(As c b d)
  62 handymeasure(A es d c)
  63 handymeasure(G es d f)
  64 handymeasure(G es d c)
  65 handymeasure(G es d f)
  66 handymeasure(G es d f)
  67 }
  68
  69
  70 middlepiece = \melodic
  71 {
  72         \stemdown
  73         [G B d]
  74         \stemup f [as f ef] [b f d' b'] [as f e f] |
  75         \stemdown [G c es]]
  76         \stemup g [c' g fis g ] [es' c' g' es'] [c' as g as]|
  77         \stemdown [G A fis]
  78         \translator Staff=treble
  79         \stemsboth \transpose c'' { c [es c B c] [fis  c a fis] [es c B c] }
  80 }
  81
  82
  83
  84