%{
	LilyPond file definitions for Highland snare drum scores.

	Author : Simon Froger

	Please save the following definitions as scottish-drums.ily and add this line to your score :
	\include "[path]/scottish-drums.ily"

	Music has to be put into :
	\new DrumStaff {
		\drummode {
		 [musique]
		}
	}

%}


%% Note names defs : "d" for the right hand and "g" for the left hand
drumPitchNames =
#(append
  '(
    (d . main-droite)
    (g . main-gauche)
   )
  drumPitchNames)

%%% other syntax:
%drumPitchNames #'d = #'main-droite
%drumPitchNames #'g = #'main-gauche
%%% since ~ 2.19.39 also
%drumPitchNames.d = #'main-droite
%drumPitchNames.g = #'main-gauche

% position according to the line : right hand up and left hand down
#(define mysnaredrums
  '(
    (main-droite        default #f      1)
    (main-gauche        default #f      -1)
   ))

\layout {
  % no indent
  indent = 0
  % rolls number : markups should be preceeded by
  \textLengthOn
  % dynamics up
  \dynamicUp
  \set DrumStaff.drumStyleTable = #(alist->hash-table mysnaredrums)
  \context {
    \DrumStaff
    % one line par staff
    \override StaffSymbol.line-positions = #'(0)
    % bar line length
    \override BarLine.bar-extent = #'(-2 . 2)
    % stems
    \override Stem.direction = #-1                        % stems down
    \override Stem.length = #11                           % unbeamed stems lenght
    \override Stem.stemlet-length = #1.5                  % short stem length
    % beam at same height
    \override Beam.positions = #'(-5.5 . -5.5)
    % slurs bellow rolls number
    \override TextScript.outside-staff-priority = ##f
    \override TextScript.side-axis = #0
    \override TextScript.staff-padding = #3
    \override TextScript.X-offset = #2                    % padding to stems
    \override TextScript.extra-offset = #'(-0.3 . 0)
    % tremolos (rolls)
    \override StemTremolo.slope = #0.5                    % slope
    \override StemTremolo.beam-width = #1.5               % beam-width
    \override StemTremolo.beam-thickness = #0.3           % beam-thickness
    \override StemTremolo.extra-offset = #'(0 . 0.6)      % vertical pos. position
    %\override StemTremolo.Y-offset = #-3.3
    % repeat brackets
    \consists "Horizontal_bracket_engraver"
    \override HorizontalBracket.staff-padding = #6.5      % staff-padding
    \override HorizontalBracket.direction = #DOWN         % brackets under the staff
    \override HorizontalBracket.bracket-flare = #'(0 . 0) % vertical brackets
  }
  \context {
    \Score
    \override RehearsalMark.break-align-symbols = #'(clef)
    \override RehearsalMark.padding = #3
    \override VoltaBracket.edge-height = #'(1.5 . 1.5)
  }
}

% dynamics
v = #(define-event-function (parser location) ()
  #{ \upbow #})

% repeat brackets
dr = #(define-event-function (parser location) ()
  #{ \startGroup #})

fr = #(define-event-function (parser location) ()
  #{ \stopGroup #})

% dynamics with extended lines
dynLine =
#(define-music-function
  (parser location text)
  (markup?)
  #{
    \once \override TextSpanner.style = #'line
    \once \override TextSpanner.bound-details.left.text =
      \markup {
        \combine
          \draw-line #'(0 . -1)
          \draw-line #'(1 . 0)
        \dynamic #text
      }
    \once \override TextSpanner.bound-details.right.text =
      \markup { \draw-line #'(0 . -1) }
  #})

% grace notes
startGraceMusic = {
  \stemUp
  \tiny
  \override Flag.stroke-style = #"grace"
  \once \override Beam.positions = #'(3 . 3)
  \once \override DrumStaff.Stem.length = #7
}

stopGraceMusic =  {
  \revert Flag.stroke-style
  \normalsize
  \stemNeutral
}

% FLAS & DRAGS :
flad = \drummode { \grace { g8 } }                      % right Fla
fladdr = \drummode { \grace { g8\startGroup } }         % with start repeat
flag = \drummode { \grace { d8 } }                      % left Fla
flagdr = \drummode { \grace { d8\startGroup } }         % with start repeat
dragd = \drummode { \grace{ g16[ g] }}                  % right Drag
dragddr = \drummode { \grace{ g16[\startGroup g] }}     % with start repeat
dragg = \drummode { \grace{ d16[ d] }}                  % left Drag
draggdr = \drummode { \grace{ d16[\startGroup d] }}     % with start repeat