input/wohltemperirt.ly

   1 % JS Bach, Das Wohltemperirtes Clavier I, Fuga II (c-minor)
   2 %
   3 % a 7 bar fragment
   4 %
   5 %       Public Domain -- by HWN
   6 %
   7
   8 dux = music { $
   9         \duration { \last }
  10         \stem{-1}  r8 ['c16 b] ['c8 g] [as 'c16 b] ['c8 'd] |
  11         [g 'c16 b] ['c8 'd] [f16 g] as4 [g16 f] |
  12         [es 'c b a] [ g f es d] [c8 'es 'd 'c] |
  13         [bes a bes 'c] [fis g a fis] |
  14         g4 r16 [c d es] [f g as8(] [)as16 d es f ]|
  15         [g a bes8(] [)bes16 es f g ] [as g f es] [d8 'c16 b]|
  16         'c4 r4 r8 ['f 'es 'd] |
  17         r8 [as g f] [g f16 es] [f8 d] |
  18 $}
  19
  20 comes = music { $
  21         r1 r1
  22         \stem{1}
  23         \octave {'}
  24         r8 [g16 fis] [g8 c] [es g16 f] [g8 a]|
  25         [d8 g16 fis] [g8 a] [c16 d] es4 [d16 c] |
  26         [`bes8 es16 d] [es8 `g8] [`as f16 es] [f8 `a] |
  27         [`bes8 g16 f] [g8 `b] [c8 d16 es] f4( |
  28         [) f8 es16 d] [c16 `bes `as `g] [`f8 as g f] |
  29         [es d es f] [`b c d `b] |
  30
  31 $}
  32
  33 bassdux = music { $
  34         r1 r1 r1 r1 r1 r1
  35         \stem{1}        \octave { }
  36         r8 [c16 B] [c8 G] [As c16 Bes] [c8 d] |
  37         [G c16 B] [c8 d] [F16 G] As4 [G16 F] | $
  38 }
  39
  40 % will make it look even uglier
  41 basstaf = staff { melodic
  42         music { bassdux }
  43         commands {
  44                 clef bass
  45                 key $bes es as$
  46         }
  47 }
  48
  49 score {
  50         staff { melodic
  51                 music { dux }
  52                 music { comes }
  53
  54                 commands {
  55                         key $bes es as$
  56                 }
  57         }
  58         staff { basstaf }
  59         commands {
  60                 meter 4*4
  61                 skip 8:0
  62         }
  63         paper { unitspace 2.5cm
  64                 geometric 1.1
  65         }
  66 }