\version "2.18.0"
#(set-default-paper-size "letter")
\paper { bottom-margin = 14\mm }

\header {
  %title = \markup {"F" \small \sharp "/Whirly Tube Piece"}
  title = \markup {"F#/Whirly Tube Piece"}
  composer = "chri d. d."
  copyright = "C#opyrig#ht © 2007, 2010 b#y c#hri d#. d#."
}

common = {
  \key fis \major
  \time 3/4
  \tempo "Gravè" 4=40
}

whirlpart = {
  \set Staff.midiInstrument = "blown bottle"
  fis'2.^"Whirly tube"
  cis''2.
  fis''2.
  cis''2.
}

whirlextra = {
  \noBreak
  \clef treble
  \key fis \major
  \set Staff.midiInstrument = "blown bottle"
  fis'2.^"Whirly tube (opt.)"
  cis''2.
  fis''2.
  cis''2.
  fis'2. cis'' fis'' cis''
  fis' r4
}

percpart = {
  \clef treble
  \common
  \whirlpart
  \set Staff.midiInstrument = "glockenspiel"
  R2.
  \relative c' {
    \set subdivideBeams = ##t
    \set Timing.beamExceptions = #'()
    \set Score.baseMoment = #(ly:make-moment 1/10)
%    \set Score.beatLength = #(ly:make-moment 1/8)
    \tuplet 5/4 {
      gis16^"Glock."\mp ais cis e fis gis ais cis
      e fis
      \set Score.baseMoment = #(ly:make-moment 1/4)
%    }
%    \tuplet 5/4 {
      gis16 ais r r r
    }
    \set subdivideBeams = ##f
  }
  \relative c' {
    fis8^"Crotales"\mp cis ais' fis cis' ais |
    e' cis fis e ais fis |
    cis4 ais gis |
    fis cis2
  }
  \tuplet 5/4 \relative c' {
    fis'32[^"Glock."\mf ais fis16] e32[ fis e16] cis32[ e cis16] ais32[ cis ais16] fis32[ ais fis16]
  }
  e'4 r
  \tuplet 5/4 \relative c' {
    fis'32[^"Crotales"\mp ais fis16] e32[ fis e16] cis32[ e cis16] ais32[ cis ais16] gis32[ ais gis16]
  }
  fis'2.\p | fis'4\pp
  \bar "|."
}

cellopart = {
  \clef bass
  \common

  R2.*2
  fis4 gis ais cis'2 ais4 gis fis e cis2 cis4 cis e fis gis fis e cis2.~ cis
  R2.*3 r4
  \bar "|."
}

pianorh = {
  \clef treble
  \common

  R2. R\p R
  \tuplet 5/4 {
    cis''32[^"norm."\f e'' cis''16] ais'32[ cis'' ais'16] fis'32[ ais' fis'16] e'32[ fis' e'16] cis'8
  }
  r4
  R2.\p
  \clef bass
  \tuplet 5/4 {
    cis'32[^"norm."\f e' cis'16] ais32[ cis' ais16] fis32[ ais fis16] e32[ fis e16] cis8
  }
  r4
  \set subdivideBeams = ##t
  \set Score.baseMoment = #(ly:make-moment 1/4)
  \clef treble
  \relative c' {
    cis'16\mp ais' gis fis\< e cis' ais gis\> fis e cis ais |
    gis ais gis e fis gis fis cis e fis cis ais |
    cis\< e fis gis ais cis e fis gis ais cis e |
    \ottava #1
    fis\f gis ais cis
  }
  \set subdivideBeams = ##f
  \tuplet 5/4 \relative c' {
    ais'''32[ cis ais16] fis32[ ais fis16] e32[ fis e16] cis32[ e cis16] ais32[ cis ais16]
  }
  fis''2
  \ottava #0
  e''16\mf fis'' gis'' cis''' | fis'''2.\p | fis''2.\pp | fis'4\ppp
  \bar "|."
}

pianolh = {
  \clef bass
  \common

  R2.\sustainOn
  fis,2._"Mute (touch end of string with finger)"
  cis2.
  R2.
  gis,2._"Mute"
  ais,2. gis, fis, e, fis, gis, fis,~ fis, r4\sustainOff
}

\book { \score {
<<
  \new Staff \with {
    \remove "Time_signature_engraver"
    fontSize = #-2
    \override StaffSymbol.staff-space = #(magstep -2)
    firstClef = ##f
  } {
    \stopStaff
    \omit Staff.Clef
    s2.*4
    \undo \omit Staff.Clef
    \startStaff
    \set Staff.shortInstrumentName = "Whirl."
    \whirlextra
  }
  \new Staff {
    \set Staff.instrumentName = "Percussion"
    \set Staff.shortInstrumentName = "Perc."
    \set Staff.midiInstrument = "blown bottle"
    \once \override Score.MetronomeMark.Y-offset = #2
    \percpart
  }
  \new Staff {
    \set Staff.instrumentName = "Cello"
    \set Staff.shortInstrumentName = "Cel."
    \set Staff.midiInstrument = "cello"
    \cellopart
  }
  \new PianoStaff <<
    \set PianoStaff.instrumentName = "Piano"
    \set PianoStaff.shortInstrumentName = "Pian."
    \set PianoStaff.midiInstrument = "acoustic grand"
    \new Staff {
      \pianorh
    }
    \new Staff {
      \pianolh
    }
  >>
>>

\layout {}
\midi {}

}}

\book { \score {
  <<
   \new Staff \with {
     \remove "Time_signature_engraver"
     fontSize = #-2
     \override StaffSymbol.staff-space = #(magstep -2)
     firstClef = ##f
   } {
     \stopStaff
     \omit Staff.Clef
     s2.*4
     \undo \omit Staff.Clef
     \startStaff
     \set Staff.shortInstrumentName = "Whirl."
     \whirlextra
   }
   \new Staff {
    \set Staff.instrumentName = "Percussion"
    \set Staff.shortInstrumentName = "Perc."
    \set Staff.midiInstrument = "blown bottle"
    \once \override Score.MetronomeMark.Y-offset = #2
    \percpart
   }
  >>
}}

\book { \score {
  \new Staff {
    \set Staff.instrumentName = "Cello"
    \set Staff.shortInstrumentName = "Cel."
    \set Staff.midiInstrument = "cello"
    \cellopart
  }
}}

\book { \score {
  \new PianoStaff <<
    \set PianoStaff.instrumentName = "Piano"
    \set PianoStaff.shortInstrumentName = "Pian."
    \set PianoStaff.midiInstrument = "acoustic grand"
    \new Staff {
      \pianorh
    }
    \new Staff {
      \pianolh
    }
  >>
}}