\version "2.8.0"

pitchnamesPipebandDrum = #`(
  (v . ,(ly:make-pitch 0 5 NATURAL))
  (h . ,(ly:make-pitch 1 0 NATURAL))
)
pitchnames = \pitchnamesPipebandDrum
#(ly:parser-set-note-names parser pitchnames)

\layout {
indent = 0.0\cm
\context {
    \RhythmicStaff
    \name PipebandDrumStaff
    \alias RhythmicStaff
    \remove "Pitch_squash_engraver"
    \consists "Horizontal_bracket_engraver"

    \override Stem #'direction = #DOWN
    \override Slur #'direction = #UP
    \override Tie #'direction = #UP
    \override StemTremolo #'slope = #0.45
    
    \override VoltaBracket #'Y-offset-callbacks = #(list ly:staff-symbol-referencer::callback)
    \override VoltaBracket #'staff-position = #10
    
    \override HorizontalBracket #'Y-offset-callbacks = #(list ly:staff-symbol-referencer::callback)
    \override HorizontalBracket #'staff-position = #7
    \override HorizontalBracket #'direction = #UP
    \override HorizontalBracket #'bracket-flare = #'(0 . 0)
    
    \override Beam #'positions = #'(-5 . -5)
    \override Stem #'lengths = #'(5 5 5 5 5)
}
\context {
    \Score
    \accepts "PipebandDrumStaff"
}
}

% Some common timing tweaks.

% Sets the autobeamer to span quarter notes only. Use for fast music.
% TODO: Needs more tweaking
quarterBeaming = {
  #(override-auto-beam-setting '(end * * * *) 1 4 'Staff)
  #(override-auto-beam-setting '(end * * * *) 1 2 'Staff)
  #(override-auto-beam-setting '(end * * * *) 3 4 'Staff)
  #(override-auto-beam-setting '(end * * * *) 4 4 'Staff)
  #(revert-auto-beam-setting '(end 1 32 2 4 ) 1 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 2 4 ) 3 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 4 4 ) 1 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 4 4 ) 3 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 4 4 ) 5 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 4 4 ) 7 8 'Staff)
  \set subdivideBeams = ##t
  \set Score.beatLength = #(ly:make-moment 1 8)
}

fine = {
  \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
  \once \override Score.RehearsalMark #'self-alignment-X = #right
  \once \override Score.RehearsalMark #'extra-offset = #'(0 . -8)
  \mark \markup { \normalsize \italic "Fine" }
}
dcalfine = {
  \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
  \once \override Score.RehearsalMark #'self-alignment-X = #right
  \once \override Score.RehearsalMark #'extra-offset = #'(0 . -8)
  \mark \markup { \normalsize \italic "d.c. al Fine" }
}

startTutti = \startGroup
stopTutti = \stopGroup

vnick = { \grace { \once \override Stem  #'stroke-style = #"grace" v8 } }
hnick = { \grace { \once \override Stem  #'stroke-style = #"grace" h8 } }