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--2016 Ricardo Wurmus"
   8 }
   9
  10 whiteNoise = \repeat unfold 3 { r2. r2 } % TODO: how long?
  11
  12 \include "parts/bass.ly"
  13 \include "parts/keys.ly"
  14 \include "parts/stick.ly"
  15 \include "parts/click.ly"
  16
  17 AllMusic = <<
  18   \new Staff = "keyboard"    { \keyboard }
  19   \new Staff = "bass"        { \bass }
  20   \new Staff = "grand stick" { \stick }
  21 >>
  22
  23 %% Two scores are needed: one with unfolded repeats for MIDI and the
  24 %% other with regular repeats for notation.
  25 \score {
  26   \unfoldRepeats {
  27     <<
  28       \AllMusic
  29       \new DrumStaff { \click }
  30     >>
  31   }
  32   \midi { \tempo 4 = 120 }
  33 }
  34
  35 \score {
  36   \AllMusic
  37   \layout {
  38     \tempo 4 = 120
  39     \context {
  40       %% add the RemoveEmptyStaffContext that erases rest-only staves
  41       \Staff \RemoveEmptyStaves
  42     }
  43     \context {
  44       \Score
  45       %% Remove all-rest staves also in the first system
  46       \override VerticalAxisGroup.remove-first = ##t
  47       %% If only one non-empty staff in a system exists, still print the starting bar
  48       \override SystemStartBar.collapse-height = #1
  49     }
  50   }
  51 }