Add chord track (enable with LILYPOND_USE_CHORDS).
[music/pretentious.git] / 04-white-noise / 04-white-noise.ly
index 1f573777ecfe64f00159ba69ef7a62c1d9131925..27aba8ffde8eb2ce9b4508f3409544a91f82b775 100644 (file)
@@ -3,43 +3,50 @@
 \header {
   title = "White Noise"
   composer = "The very pretentious elephlies"
-  arranger = "Ricardo Wurmus"
-  copyright = "2002--2015 Ricardo Wurmus"
+  copyright = \markup { \char ##x00A9 "2002—2016 Ricardo Wurmus" }
 }
 
-whiteNoise = { R1*5 } % TODO: how long?
 
-\include "parts/bass.ly"
-\include "parts/keys.ly"
-\include "parts/stick.ly"
+\include "music/common.ly"
+\include "music/bass.ly"
+\include "music/keys.ly"
+\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 PianoStaff = "keyboard"
+  \with {
+    instrumentName = #"Synthesizer"
+    shortInstrumentName = #"Synth"
+    pedalSustainStyle = #'bracket
+  } {
+    <<
+      \new Staff {
+        \clef treble
+        \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
-%% other with regular repeats for notation.
-\score {
-  \unfoldRepeats { \AllMusic }
-  \midi { \tempo 4 = 120 }
-}
+AllMusicMIDI = AllMusic
 
-\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
-    }
-  }
-}
+\include "../layouts.ly"