1 files changed, 45 insertions, 0 deletions
diff --git a/04-white-noise/04-white-noise.ly b/04-white-noise/04-white-noise.ly
new file mode 100644
index 0000000..1f57377
--- /dev/null
+++ b/04-white-noise/04-white-noise.ly
@@ -0,0 +1,45 @@
+\version "2.19.27"
+
+\header {
+  title = "White Noise"
+  composer = "The very pretentious elephlies"
+  arranger = "Ricardo Wurmus"
+  copyright = "2002--2015 Ricardo Wurmus"
+}
+
+whiteNoise = { R1*5 } % TODO: how long?
+
+\include "parts/bass.ly"
+\include "parts/keys.ly"
+\include "parts/stick.ly"
+
+AllMusic = <<
+  \new Staff = "keyboard"    { \keyboard }
+  \new Staff = "bass"        { \bass }
+  \new Staff = "grand stick" { \stick }
+>>
+
+%% Two scores are needed: one with unfolded repeats for MIDI and the
+%% other with regular repeats for notation.
+\score {
+  \unfoldRepeats { \AllMusic }
+  \midi { \tempo 4 = 120 }
+}
+
+\score {
+  \AllMusic
+  \layout {
+    \tempo 4 = 120
+    \context { 
+      %% add the RemoveEmptyStaffContext that erases rest-only staves
+      \Staff \RemoveEmptyStaves 
+    }
+    \context {
+      \Score
+      %% Remove all-rest staves also in the first system
+      \override VerticalAxisGroup.remove-first = ##t
+      %% If only one non-empty staff in a system exists, still print the starting bar
+      \override SystemStartBar.collapse-height = #1
+    }
+  }
+}