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
  16 AllMusic = <<
  17   \new Staff = "keyboard"    { \keyboard }
  18   \new Staff = "bass"        { \bass }
  19   \new Staff = "grand stick" { \stick }
  20 >>
  21
  22 %% Two scores are needed: one with unfolded repeats for MIDI and the
  23 %% other with regular repeats for notation.
  24 \score {
  25   \unfoldRepeats { \AllMusic }
  26   \midi { \tempo 4 = 120 }
  27 }
  28
  29 \score {
  30   \AllMusic
  31   \layout {
  32     \tempo 4 = 120
  33     \context {
  34       %% add the RemoveEmptyStaffContext that erases rest-only staves
  35       \Staff \RemoveEmptyStaves
  36     }
  37     \context {
  38       \Score
  39       %% Remove all-rest staves also in the first system
  40       \override VerticalAxisGroup.remove-first = ##t
  41       %% If only one non-empty staff in a system exists, still print the starting bar
  42       \override SystemStartBar.collapse-height = #1
  43     }
  44   }
  45 }