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