song2: stick: Bring stanza B part closer to what I play.
[music/pretentious.git] / 02-song2 / parts / stick.ly
1 stickIntroLeft = \relative c {
2 \repeat unfold 2 {
3 <b a' d>8 r16 <b a' d>8 r16
4 <b gis' d'>4 b8 ~ <b gis' d'> b |
5 <b g' d'>8 r16 <b g' d'>8 r16
6 <b fis' d'>4 b8 ~ <b fis' d'>4 |
7
8 <b a' d>8 r16 <b a' d>8 r16
9 <b gis' d'>4 b8 ~ <b gis' d'> b |
10 <b g' d'>8 r16 <b g' d'>8 r16
11 <b fis' d'>8 ~ <b fis' d'>2 |
12 }
13 }
14
15 stickIntroRight = \relative c' {
16 %% TODO: make this solo more interesting
17 fis8. fis e4 r16 ais,16 b cis d gis, |
18 e'8. e d4 r4. |
19 fis8. fis e4 r4. |
20 d8. cis b4 r4. |
21
22 fis'8. a8 fis16 e4 r16 ais,16 b cis d gis, |
23 fis'8. fis8 r16 e d e d8. r8*2 |
24 \grace{ e8 \glissando s8 } fis8 ~ <fis d'>16 r8 <e cis'>16 r8 <d b'>2 |
25 \grace{d32 g32} b16 r8 g r16 fis8 ~ fis2 |
26 }
27
28 stickStanzaLeft = \relative c {
29 \repeat unfold 2 {
30 <b fis'>8 r16 <b fis'>8 r16
31 <b fis'>4 <b fis'>8 r <b fis'> |
32 <b g'>8 r16 <b g'>8 r16
33 <b fis'>4 <b fis'>8 ~ <b fis'>4 |
34
35 <b fis'>8 r16 <b fis'>8 r16
36 <e b>4 <e b>8 r <e b> |
37 } \alternative {
38 { <b g'>8 r16 <b g'>8 r16 <b fis'>2 r8 |}
39 { <b g' d'>8 r16 <a e'>8 r16 <d, a'>8 ~ <d a'>2 |}
40 }
41 }
42
43 stickStanzaRight = \relative c' {
44 \repeat unfold 2 {
45 <a d>8 r16 <a d>8 r16
46 <gis d'>4 r8 <gis d'> r |
47 <d' g>8 r16 <d g>8 r16
48 <d fis>4 r8 <d fis> r |
49
50 <a d>8 r16 <a d>8 r16
51 <gis d'>4 r8 <gis d'> r |
52 } \alternative {
53 { <d' g>8 r16 <d g>8 r16 <d fis>4. r4 |}
54 { <d g>8 r16 <d g>8 r16 <d fis>8 ~ <d fis>2 |}
55 }
56 }
57
58 stickBLeft = \relative c {
59 \repeat unfold 2 {
60 <cis gis'>4. <fis, cis'>4\sustainOn fis4 cis'8\sustainOff |
61 } \alternative {
62 { a,8 cis'4 e,4\sustainOn b'8 gis' e,\sustainOff |}
63 %% TODO: not happy with this
64 { cis r16 dis8 r16 e8 ~ e2 |}
65 }
66 }
67
68 stickBRight = \relative c' {
69 <b e>8 r16 <b e>8 r16
70 <ais e'>4 r8 <ais e'> r |
71 a8. ~ <a e'>8 a16 gis2 r8 |
72
73 <b e>8 r16 <b e>8 r16 <ais e'>4 r8 <ais e'> r |
74 <e' a>8 r16 fis8 r16 <e gis>4. r4 |
75 }
76
77 stickTransitionLeft = \relative c, {
78 \repeat volta 2 {
79 R1 | R1 | R1 | R1 |
80 %% TODO: support chords
81 %%<cis fis a>1 | <b e gis>1 |
82 %%<a d fis>1 | <a cis fis>1 |
83 }
84 \repeat volta 4 {
85 r16 <fis cis'>8 <e b'>16 <fis cis'>8 <e b'>16
86 <fis cis'>8 <fis cis'>8 r16 r4 |
87 r16 <fis cis'>8 <e b'>16 <fis cis'>8 <e b'>16
88 <fis cis'>16 r16 <fis cis'>16 <e b'>4 r8 |
89 }
90 }
91
92 stickTransitionRight = \relative c' {
93 \repeat volta 2 {
94 <cis fis a>1 | <b e gis>1 |
95 <a d fis>1 | <a cis fis>1 |
96 }
97 \repeat volta 4 { R1 | R1 }
98 }
99
100
101
102 stick = \new PianoStaff <<
103 \set PianoStaff.midiInstrument = #"clav"
104 \set PianoStaff.pedalSustainStyle = #'bracket
105
106 \new Staff \relative c' {
107 \set Staff.midiPanPosition = #-0.5
108 \key b \minor
109 \clef "treble_8"
110
111 %% intro
112 \time 4/4
113 \stickIntroRight
114 \stickStanzaRight
115
116 \key e \major
117 \stickBRight
118
119 \key b \minor
120 \stickStanzaRight
121
122 \key e \major
123 \stickBRight
124
125 \key fis \minor
126 \stickTransitionRight
127 }
128
129 %% staff for left hand side
130 \new Staff \relative c {
131 \set Staff.midiPanPosition = #0.5
132 \key b \minor
133 \clef "bass"
134
135 %% intro
136 \time 4/4
137 \stickIntroLeft
138 \stickStanzaLeft
139
140 \key e \major
141 \stickBLeft
142
143 \key b \minor
144 \stickStanzaLeft
145
146 \key e \major
147 \stickBLeft
148
149 \key fis \minor
150 \stickTransitionLeft
151 }
152 >>
153