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