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