white noise: Add click.
[music/pretentious.git] / 04-white-noise / 04-white-noise.ly
1 \version "2.19.27"
2
3 \header {
4 title = "White Noise"
5 composer = "The very pretentious elephlies"
6 arranger = "Ricardo Wurmus"
7 copyright = "2002--2015 Ricardo Wurmus"
8 }
9
10 whiteNoise = { R1*5 } % TODO: how long?
11
12 \include "parts/bass.ly"
13 \include "parts/keys.ly"
14 \include "parts/stick.ly"
15 \include "parts/click.ly"
16
17 AllMusic = <<
18 \new Staff = "keyboard" { \keyboard }
19 \new Staff = "bass" { \bass }
20 \new Staff = "grand stick" { \stick }
21 >>
22
23 %% Two scores are needed: one with unfolded repeats for MIDI and the
24 %% other with regular repeats for notation.
25 \score {
26 \unfoldRepeats {
27 <<
28 \AllMusic
29 \new DrumStaff { \click }
30 >>
31 }
32 \midi { \tempo 4 = 120 }
33 }
34
35 \score {
36 \AllMusic
37 \layout {
38 \tempo 4 = 120
39 \context {
40 %% add the RemoveEmptyStaffContext that erases rest-only staves
41 \Staff \RemoveEmptyStaves
42 }
43 \context {
44 \Score
45 %% Remove all-rest staves also in the first system
46 \override VerticalAxisGroup.remove-first = ##t
47 %% If only one non-empty staff in a system exists, still print the starting bar
48 \override SystemStartBar.collapse-height = #1
49 }
50 }
51 }