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