circus: Add beginning of notation.
[music/pretentious.git] / 03-circus.ly
1 \version "2.19.27"
2
3 \header {
4 title = "Circus"
5 composer = "The very pretentious elephlies"
6 arranger = "Ricardo Wurmus"
7 copyright = "2002--2015 Ricardo Wurmus"
8 }
9
10 \f
11 bassA = \relative cis, {
12 \time 2/4
13 r4 r8 cis ~ |
14 cis4 gis | cis gis |
15 cis gis | cis r8 cis ~ |
16 cis4 gis | cis gis |
17 cis gis |
18
19 dis'8 ais r d8 ~ d8 a4 d,8 |
20 dis'8 ais r d8 ~ d2 |
21 cis4 gis |
22
23 cis, gis' cis gis |
24 cis gis cis gis |
25 cis gis cis gis |
26 cis gis |
27
28 dis'8 ais r d8 ~ d8 a4 d,8 |
29 dis'8 ais r d8 ~ d2 |
30
31 cis4 gis | cis4 gis |
32 cis4 gis | cis4 gis |
33 }
34
35 bassB = \relative cis, {
36 \time 2/4
37 cis4 gis cis gis cis gis |
38 \time 3/4
39 cis8 e8 gis, gis r gis |
40 \time 2/4
41 a4 e a e a e |
42 a c8 b r f f r |
43 }
44
45 bassSpooky = \relative fis,, {
46 \time 2/4
47 fis8 fis fis fis fis fis fis fis fis fis fis fis
48 \time 3/4
49 fis8 a8 cis, cis r cis |
50 \time 2/4
51 d8 d d d d d d d d d d d
52 d4 f8 e r ais, ais r
53 }
54
55 bassC = \relative cis, {
56 \time 2/4
57 b4 fis b fis b fis |
58 \time 3/4
59 b8 d8 fis, fis r fis |
60 \time 2/4
61 g4 d g d g d
62 g ais8 a r dis, dis r
63 }
64
65 \f
66 bass = {
67 \set Staff.midiInstrument = #"electric bass (finger)"
68 \clef "bass_8"
69 \key cis \minor
70
71 \time 4/4 \bassA
72 \tempo 4 = 150
73 \bassB \bassB
74
75 \key fis \minor
76 \bassSpooky \bassSpooky
77
78 \key b \minor
79 \bassC \bassC
80 }
81
82 keyboard = \new PianoStaff <<
83 \new Staff \relative c' {
84 \set Staff.midiInstrument = #"accordion"
85 \time 2/4
86 \key cis \minor
87 r4 r8 <cis e g> ~ |
88 <cis e g> ~ <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
89 r <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r
90
91 <cis e g>8 ~
92 <cis e g>8 ~ <cis e gis>-.
93 r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
94 r <cis e gis>-. r <cis e gis>-.
95
96 <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
97 <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
98 }
99
100 \new Staff \relative c {
101 \set Staff.midiInstrument = #"accordion"
102 \clef bass
103 \key cis \minor
104 r2 |
105 cis4-. gis-. cis-. gis-.
106 cis-. gis-. cis-. r8 cis ~
107 cis4 gis-. cis-. gis-.
108 cis-. gis-.
109 dis8 r r d ~ d2
110 dis8 r r d ~ d2
111 }
112 >>
113
114 stickDance = \relative c' {
115 \time 5/8
116 r8 b cis d fis |
117 \time 5/4
118 g4. fis16 dis e4
119 \tuplet 3/2 { fis,8 c' dis } g4 |
120 fis4. e16 d b4
121 \tuplet 3/2 { f8 b d }
122 fis4
123
124 \time 3/4
125 e ais,,16 d fis8 g gis
126 d' cis ais4 r4
127 }
128
129 stickHalfTimeFeel = \relative c' {
130 \time 2/4
131 b8 d r b16 d |
132 \time 3/4
133 fis8-. r8*4 b,16 d
134 \time 2/4
135 fis g fis8 e16 d cis b d cis c b
136 \tuplet 3/2 { fis8 g b } |
137 ais8 r8. g16 a ais d4 r8*5
138 d,4 dis eis fis r
139
140 %% TODO
141 }
142
143 stick = {
144 \set Staff.midiInstrument = #"electric guitar (jazz)"
145 \key cis \minor
146
147 %% count-in
148 \time 2/4 { R2 }
149
150 %% intro
151 { R2*12 }
152 { R2*11 } { R2*4 }
153
154 %% TODO solo
155 \repeat unfold 2 {
156 \time 2/4 R2*3
157 \time 3/4 R2.
158 \time 2/4 R2*5
159 }
160
161 %% TODO spooky
162 \key fis \minor
163 \repeat unfold 2 {
164 \time 2/4 R2*3
165 \time 3/4 R2.
166 \time 2/4 R2*5
167 }
168
169 \key b \minor
170 \stickHalfTimeFeel
171 \stickDance
172 \stickHalfTimeFeel
173 }
174
175
176 \f
177 AllMusic = <<
178 \new Staff = "keyboard" { \keyboard }
179 \new Staff = "bass" { \bass }
180 \new Staff = "grand stick" { \stick }
181 >>
182
183 %% Two scores are needed: one with unfolded repeats for MIDI and the
184 %% other with regular repeats for notation.
185 \score {
186 \unfoldRepeats { \AllMusic }
187 \midi { \tempo 4 = 120 }
188 }
189
190 \score {
191 \AllMusic
192 \layout {
193 \tempo 4 = 120
194 \context {
195 %% add the RemoveEmptyStaffContext that erases rest-only staves
196 \Staff \RemoveEmptyStaves
197 }
198 \context {
199 \Score
200 %% Remove all-rest staves also in the first system
201 \override VerticalAxisGroup.remove-first = ##t
202 %% If only one non-empty staff in a system exists, still print the starting bar
203 \override SystemStartBar.collapse-height = #1
204 }
205 }
206 }