pipeband-music/lilydrum.ly

\version "2.16.2"
%{
	LilyPond file definitions for Pipeband drumming scores.
	Primarily focused on Snare drumming,
	occasional bass or tenor scores should be possible.
	Especially with the use of an external eps file with flourishi symbols

	This file builds on work done by Simon Froger.

	Include by using :
	\include "[path]/lilydrum.ly"

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

%}
#(ly:set-option 'point-and-click #f)

% Note name defs :
%	"d" for the right hand ("droite") and
%	"g" for the left hand ("gauche")

drumPitchNames =
#(append '(
	(d . right-hand)
	(g . left-hand)
	(right . right-hand)
	(left . left-hand)

	(dback . right-backstick)
	(gback . left-backstick)
	(rightback . right-backstick)
	(leftback . left-backstick)

	(dcross . right-crossstick)
	(gcross . right-crossstick)
	(rightcross . right-crossstick)
	(leftcross . right-crossstick)
	)
  drumPitchNames
)

% Position according to the line : right hand above and left hand below
#(define pipeband-style '(
	(right-hand	()	#f	1)
	(left-hand	()	#f	-1)
	(right-backstick cross	#f	1)
	(left-backstick	cross	#f	-1)
	(right-backstick xcircle #f	1)
	(left-backstick	xcircle	#f	-1)
	)
)
% Built-in noteheads: default, cross, xcircle, diamond

% ===================================================	%
% 	Layout tweaks for good defaults						%
% ===================================================	%
\layout {
	\context {
		\DrumStaff

		% add hands to note definitions
		drumStyleTable = #(alist->hash-table pipeband-style)

		% one line per staff
		\override StaffSymbol.line-positions = #'(0)

		% stems
		\override Stem.direction = #DOWN		% stems down
		\override Stem.length = #9				% unbeamed stems length
		\override Stem.stemlet-length = #1.5	% short stem length

		% beams
		\override Beam.beam-thickness = #0.4		% beam-thickness
		\override Beam.positions = #'(-3.8 . -3.8)	% fix beams on one height

		% slurs and ties
		\override Slur.direction = #UP	% Slurs on top
		\override Tie.direction = #UP	% Ties on top

		% dynamics up
		\dynamicUp



		% slurs below 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.3)	% vertical pos. position

		%\override StemTremolo.Y-offset = #-2.8

		% repeat brackets
		%\consists "Horizontal_bracket_engraver"
		%\override HorizontalBracket.staff-padding = #6.5		% staff-padding
		%\override HorizontalBracket.direction = #DOWN			% brackets under thr 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)
	}
}

% ===================================================	%
% 	Define some tweaks for printing nicely			%
% ===================================================	%\


eighthBeaming = {
  \set Score.baseMoment = #(ly:make-moment 1 8)
  \set Score.beatStructure = #'( 2 )
}
sixteenthBeaming = {
  \set Score.baseMoment = #(ly:make-moment 1 16)
  \set Score.beatStructure = #'( 4 4 4 4 )
}

\layout{
		% no indent
		indent = 0
	\context{
		\DrumStaff
		% always numeric Time Signatures
		\numericTimeSignature

		% bar line height
		\override BarLine.bar-extent = #'(-2 . 2)

		% I like being able to identify the 8th notes
		subdivideBeams = ##t
		strictBeatBeaming = ##t

		\override TupletBracket.bracket-visibility = ##f
	}
}

% =================================================	%
% 	Functions										%
% =================================================	%

% 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) }
	#})

% =================================================	%
% 	Flams, Drags & the sort							%
% =================================================	%
drumgrace = #(define-music-function (parser location notes) (ly:music?) #{
	% Set settings
	\stemUp
	\once \override Beam.positions = #'(1.8 . 1.8)
	\once \override DrumStaff.Stem.length = #5
	\override Flag.stroke-style = #"grace"
	\override Score.GraceSpacing #'spacing-increment = #1
	\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)

	% Print notes
	\grace $notes

	% Revert back
	\revert Score.Stem #'beamlet-default-length
	\revert Flag.stroke-style
	\stemNeutral
#})


% Flams
flamd = \drummode { \drumgrace { g8 } }			% right Flam, actually flam(left) note(right)
flamddr = \drummode { \drumgrace { g8\startGroup } }	% with start repeat
flamg = \drummode { \drumgrace { d8 } }			% left Flam
flamgdr = \drummode { \drumgrace { d8\startGroup } }	% with start repeat

% Drags
dragd = \drummode { \drumgrace { g16[ g] }}			% right Drag
dragddr = \drummode { \drumgrace { g16[\startGroup g] }} 	% with start repeat
dragg = \drummode { \drumgrace { d16[ d] }}			% left Drag
draggdr = \drummode { \drumgrace { d16[\startGroup d] }} 	% with start repeat

% Ruff
ruffg = \drummode { \drumgrace { g16[ d g] }}		% left Ruff
ruffgdr = \drummode { \drumgrace { g16[\startGroup d g] }}	% with start repeat
ruffd = \drummode { \drumgrace { d16[ g d] }}		% right Ruff
ruffddr = \drummode { \drumgrace  { d16[\startGroup g d] }}	% with start repeat

% Swiss Ruff
sruffg = \drummode { \drumgrace { g16[ d d] }}		% left Swiss Ruff
sruffgdr = \drummode { \drumgrace { g16[\startGroup d d] }}	% with start repeat
sruffd = \drummode { \drumgrace { d16[ g g] }}		% right Swiss Ruff
sruffddr = \drummode { \drumgrace { d16[\startGroup g g] }}	% with start repeat

% Embellishment functions, automatic left or right
% Flam
flam = #(define-music-function (parser location note) (ly:music?) #{
	% is note right-handed? then \flamd
	% if left, then \flamg
	#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
          #{ \flamg #}
          #{ \flamd #})
	% print the note, else it won't show up
	$note
#})

% Drag
drag = #(define-music-function (parser location note) (ly:music?) #{
	% is note right-handed? then \flamd
	% if left, then \flamg
	#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
          #{ \dragg #}
          #{ \dragd #})
	% print the note, else it won't show up
	$note
#})

% Ruff
ruff = #(define-music-function (parser location note) (ly:music?) #{
	% is note right-handed? then \flamd
	% if left, then \flamg
	#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
          #{ \ruffg #}
          #{ \ruffd #})
	% print the note, else it won't show up
	$note
#})

% Swiss Ruff
sruff = #(define-music-function (parser location note) (ly:music?) #{
	% is note right-handed? then \flamd
	% if left, then \flamg
	#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
          #{ \sruffg #}
          #{ \sruffd #})
	% print the note, else it won't show up
	$note
#})