From fc28a3c6d91791807436fb2dd88b49bb9c3969cf Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Fri, 2 Sep 2016 08:10:56 +0200
Subject: white noise: Create wrappers for each part.

---
 04-white-noise/04-white-noise.ly | 27 ++++++++++++++++++++++++---
 04-white-noise/music/stick.ly    |  2 +-
 04-white-noise/parts/bass.ly     | 26 ++++++++++++++++++++++++++
 04-white-noise/parts/keys.ly     | 29 +++++++++++++++++++++++++++++
 04-white-noise/parts/stick.ly    | 29 +++++++++++++++++++++++++++++
 5 files changed, 109 insertions(+), 4 deletions(-)
 create mode 100644 04-white-noise/parts/bass.ly
 create mode 100644 04-white-noise/parts/keys.ly
 create mode 100644 04-white-noise/parts/stick.ly

(limited to '04-white-noise')

diff --git a/04-white-noise/04-white-noise.ly b/04-white-noise/04-white-noise.ly
index 2a800c3..3462fa7 100644
--- a/04-white-noise/04-white-noise.ly
+++ b/04-white-noise/04-white-noise.ly
@@ -14,10 +14,31 @@
 \include "music/stick.ly"
 \include "music/click.ly"
 
+\layout {
+  ragged-last = ##t
+  indent = 2\cm
+  short-indent = 1.5\cm
+}
+
 AllMusic = <<
-  \new Staff = "keyboard"    { \keyboard }
-  \new Staff = "bass"        { \bass }
-  \new Staff = "grand stick" { \stick }
+  \new Staff = "keyboard"
+  \with {
+    instrumentName = #"Synthesizer"
+    shortInstrumentName = #"Synth"
+    pedalSustainStyle = #'bracket
+  } { \keyboard }
+  \new StaffGroup = "bass"
+  \with {
+    instrumentName = #"Bass"
+    shortInstrumentName = #"Bass"
+  } { \bass }
+  \new PianoStaff = "grand stick"
+  \with {
+    instrumentName = #"Grand Stick"
+    shortInstrumentName = #"Stick"
+    midiInstrument = #"clav"
+    pedalSustainStyle = #'bracket
+  } { \stick }
 >>
 
 %% Two scores are needed: one with unfolded repeats for MIDI and the
diff --git a/04-white-noise/music/stick.ly b/04-white-noise/music/stick.ly
index 579d733..f7e8630 100644
--- a/04-white-noise/music/stick.ly
+++ b/04-white-noise/music/stick.ly
@@ -197,7 +197,7 @@ stickRight = {
   \repeat unfold 2 \stickShifterRight
 }
 
-stick = \new PianoStaff <<
+stick = <<
   \set PianoStaff.midiInstrument = #"electric guitar (jazz)"
   \set PianoStaff.pedalSustainStyle = #'bracket
 
diff --git a/04-white-noise/parts/bass.ly b/04-white-noise/parts/bass.ly
new file mode 100644
index 0000000..a56d445
--- /dev/null
+++ b/04-white-noise/parts/bass.ly
@@ -0,0 +1,26 @@
+\version "2.19.27"
+
+\header {
+  title = "White Noise"
+  subtitle = "Bass"
+  composer = "The very pretentious elephlies"
+  copyright = \markup { \char ##x00A9 "2002—2016 Ricardo Wurmus" }
+}
+
+\include "../../settings.ly"
+\include "../music/common.ly"
+\include "../music/bass.ly"
+
+\score {
+  \compressMMRests { \bass }
+
+  \layout {
+    \tempo 4 = 120
+    indent = #0
+    short-indent = #0
+    \context {
+      \Score
+      \numericTimeSignature
+    }
+  }
+}
diff --git a/04-white-noise/parts/keys.ly b/04-white-noise/parts/keys.ly
new file mode 100644
index 0000000..797e17c
--- /dev/null
+++ b/04-white-noise/parts/keys.ly
@@ -0,0 +1,29 @@
+\version "2.19.27"
+
+\header {
+  title = "White Noise"
+  subtitle = "Keyboard"
+  composer = "The very pretentious elephlies"
+  copyright = \markup { \char ##x00A9 "2002—2016 Ricardo Wurmus" }
+}
+
+\include "../../settings.ly"
+\include "../music/common.ly"
+\include "../music/keys.ly"
+
+\score {
+  \new PianoStaff = "keyboard" \with {
+    pedalSustainStyle = #'bracket
+  } {
+    \compressMMRests \keyboard
+  }
+  \layout {
+    \tempo 4 = 120
+    indent = #0
+    short-indent = #0
+    \context {
+      \Score
+      \numericTimeSignature
+    }
+  }
+}
diff --git a/04-white-noise/parts/stick.ly b/04-white-noise/parts/stick.ly
new file mode 100644
index 0000000..f74dfd8
--- /dev/null
+++ b/04-white-noise/parts/stick.ly
@@ -0,0 +1,29 @@
+\version "2.19.27"
+
+\header {
+  title = "White Noise"
+  subtitle = "Grand Stick"
+  composer = "The very pretentious elephlies"
+  copyright = \markup { \char ##x00A9 "2002—2016 Ricardo Wurmus" }
+}
+
+\include "../../settings.ly"
+\include "../music/common.ly"
+\include "../music/stick.ly"
+
+\score {
+  \new PianoStaff = "grand stick" \with {
+    pedalSustainStyle = #'bracket
+  } {
+    \compressMMRests \stick
+  }
+  \layout {
+    \tempo 4 = 120
+    indent = #0
+    short-indent = #0
+    \context {
+      \Score
+      \numericTimeSignature
+    }
+  }
+}
-- 
cgit v1.2.3