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