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   copyright = \markup { \char ##x00A9 "2002—2016 Ricardo Wurmus" }
   7 }
   8
   9
  10 \include "../settings.ly"
  11 \include "music/common.ly"
  12 \include "music/bass.ly"
  13 \include "music/keys.ly"
  14 \include "music/stick.ly"
  15 \include "music/click.ly"
  16
  17 \layout {
  18   ragged-last = ##t
  19   indent = 2\cm
  20   short-indent = 1.5\cm
  21 }
  22
  23 AllMusic = <<
  24   \new Staff = "keyboard"
  25   \with {
  26     instrumentName = #"Synthesizer"
  27     shortInstrumentName = #"Synth"
  28     pedalSustainStyle = #'bracket
  29   } { \keyboard }
  30   \new StaffGroup = "bass"
  31   \with {
  32     instrumentName = #"Bass"
  33     shortInstrumentName = #"Bass"
  34   } { \bass }
  35   \new PianoStaff = "grand stick"
  36   \with {
  37     instrumentName = #"Grand Stick"
  38     shortInstrumentName = #"Stick"
  39     midiInstrument = #"clav"
  40     pedalSustainStyle = #'bracket
  41   } { \stick }
  42 >>
  43
  44 %% Two scores are needed: one with unfolded repeats for MIDI and the
  45 %% other with regular repeats for notation.
  46 \score {
  47   \unfoldRepeats {
  48     <<
  49       \AllMusic
  50       \new DrumStaff { \click }
  51     >>
  52   }
  53   \midi { \tempo 4 = 120 }
  54 }
  55
  56 \score {
  57   \AllMusic
  58   \layout {
  59     \tempo 4 = 120
  60     \context {
  61       %% add the RemoveEmptyStaffContext that erases rest-only staves
  62       \Staff \RemoveEmptyStaves
  63     }
  64     \context {
  65       \Score
  66       %% Remove all-rest staves also in the first system
  67       \override VerticalAxisGroup.remove-first = ##t
  68       %% If only one non-empty staff in a system exists, still print the starting bar
  69       \override SystemStartBar.collapse-height = #1
  70     }
  71   }
  72 }