circus: keys: Add comping for solo.
[music/pretentious.git] / 03-circus / parts / keyboard.ly
1 keyboardIntroUpper = \relative c' {
2 <cis e g>8 ~ <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
3 r <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r
4
5 <cis e g>8 ~
6 <cis e g>8 ~ <cis e gis>-.
7 r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
8 r <cis e gis>-. r <cis e gis>-.
9
10 <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
11 <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
12 }
13
14 keyboardIntroLower = \relative c {
15 cis4-. gis-. cis-. gis-.
16 cis-. gis-. cis-. r8 cis ~
17 cis4 gis-. cis-. gis-.
18 cis-. gis-.
19 dis8 r r d ~ d2 |
20 dis8 r r d ~ d2 |
21 }
22
23 keysIntroEndUpper = \relative c' {
24 r8 <cis e gis>-. r <cis e gis>-. |
25 r <cis e gis>-. r <cis e gis>-. |
26 r <cis e gis>-. r <cis e gis>-. |
27 r <cis e gis>-. r <cis e gis>-. |
28 }
29
30 keysIntroEndLower = \relative c {
31 cis4-. gis-. | cis-. gis-. |
32 cis-. gis-. | cis-. gis-. |
33 }
34
35 keysSoloUpper = \relative c' {
36 \time 2/4
37 r8 <cis e gis>-. r <cis e gis>-. |
38 r <cis e gis>-. r <cis e gis>-. |
39 r <cis e gis>-. r <cis e gis>-. |
40 \time 3/4
41 r <cis e gis>-. r r <cis e gis>-. r |
42 \time 2/4
43 r8 <c e a>-. r <c e a>-. |
44 r <c e a>-. r <c e a>-. |
45 r <c e a>-. r <c e a>-. |
46 r <c e a>-. r r |
47 <c e a>-. r r <c e a>-. |
48 }
49
50 keysSoloLower = \relative c {
51 \time 2/4
52 cis4-. gis-. | cis-. gis-. |
53 cis-. gis-. |
54 \time 3/4
55 cis8 r gis gis r gis |
56 \time 2/4
57 a4-. e-. | a-. e-. | a-. e-. |
58 a-. c8 b | r f f r |
59 }
60
61
62
63 keyboard = \new PianoStaff <<
64 \set PianoStaff.midiInstrument = #"reed organ"
65 \new Staff \relative c' {
66 \time 2/4
67 \key cis \minor
68 r4 r8 <cis e g> ~ |
69 \repeat volta 2 \keyboardIntroUpper
70 \alternative {
71 { r2 | }
72 { \keysIntroEndUpper }
73 }
74
75 \repeat unfold 2 \keysSoloUpper
76 }
77
78 \new Staff \relative c {
79 \clef bass
80 \key cis \minor
81 r2 |
82 \repeat volta 2 \keyboardIntroLower
83 \alternative {
84 { r2 | }
85 { \keysIntroEndLower }
86 }
87
88 \repeat unfold 2 \keysSoloLower
89 }
90 >>