input/wohltemperirt.ly

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