From 2167c03ae51b326d1360f49e21257823c557d2d2 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Fri, 16 Oct 2015 22:19:18 +0200
Subject: white noise: move to subdir.

---
 04-white-noise/04-white-noise.ly | 45 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 04-white-noise/04-white-noise.ly

(limited to '04-white-noise/04-white-noise.ly')

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
+    }
+  }
+}
-- 
cgit v1.2.3