various small updates in non-music files

.lilydrum/embellishments.ily

@@ -11,7 +11,7 @@ drumgrace = #(define-music-function (parser location notes) (ly:music?) #{
 	\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)
 
 	% Print notes
-	\grace $notes
+	\small \grace $notes
 
 	% Revert back
 	\revert Score.Stem #'beamlet-default-length
@@ -32,6 +32,12 @@ dragg =   \drummode { \drumgrace { d16[ d] }}				% Drag left
 dragddr = \drummode { \drumgrace { g16[\startGroup g] } } 	% Drag right with start repeat
 draggdr = \drummode { \drumgrace { d16[\startGroup d] } } 	% Drag left  with start repeat
 
+% Open Drags
+odragd =   \drummode { \drumgrace { g16[ s^"o" g] } }				% Open Drag right
+odragg =   \drummode { \drumgrace { d16[ s^"o" d] } }				% Open Drag left
+odragddr = \drummode { \drumgrace { g16[\startGroup s^"o" g] } } 	% Open Drag right with start repeat
+odraggdr = \drummode { \drumgrace { d16[\startGroup s^"o" d] } } 	% Open Drag left  with start repeat
+
 % Ruff
 ruffg =   \drummode { \drumgrace { g16[ d g] } }				% Ruff right
 ruffd =   \drummode { \drumgrace { d16[ g d] } }				% Ruff left
@@ -69,6 +75,16 @@ drag = #(define-music-function (parser location note) (ly:music?) #{
 	% print the note, else it won't show up
 	$note
 #})
+% Open Drag
+odrag = #(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")
+          #{ \odragg #}
+          #{ \odragd #})
+	% print the note, else it won't show up
+	$note
+#})
 
 % Ruff
 ruff = #(define-music-function (parser location note) (ly:music?) #{

.lilydrum/flourishing.ily

@@ -24,7 +24,14 @@ scoop = \markup {
 						 (lineto 7 1 )
 						 )
 			}
-
+scoopo = #(define-music-function (parser location beg notes) (ly:music? ly:music?)
+			#{
+			%Set spanner from first to last note
+				$beg
+				\startGroup
+				$notes
+				\stopGroup
+			#})
 flourish = #(define-music-function (parser location notes) (ly:music?)
 			#{
 				\temporary \override Staff.NoteHead.style = #'cross

.lilydrum/layout_tweaks.ily

@@ -28,6 +28,7 @@ drumPitchNames =
 	}
 }
 \layout {
+	indent = 0.0
 	\context {
 		\DrumStaff
 		\name PipeBandDrumStaff
@@ -94,3 +95,20 @@ drumPitchNames =
 		\accepts "PipeBandDrumStaff"
 	}
 }
+
+% ===================================================	%
+% 	*Shorts* for Naming									%
+% ===================================================	%
+
+instrumentSide = "Side"
+instrumentTenor = "Tenor"
+instrumentBass = "Bass"
+instrumentPipes = "Pipes"
+shortInstrumentSide = "S.D."
+shortInstrumentTenor = "T.D."
+shortInstrumentBass = "B.D."
+shortInstrumentPipes = "P."
+composerSide  = ""
+composerTenor = ""
+composerBass  = ""
+composerPipes = ""

.lilydrum/musical_functions.ily

@@ -5,7 +5,7 @@
 
 eighthBeaming = {
   \set baseMoment = #(ly:make-moment 1/8)
-  \set beatStructure = #'( 2 )
+  \set beatStructure = #'( 2  2 )
 }
 compoundEighthBeaming = {
   \set baseMoment = #(ly:make-moment 1/8)

airs/my_home/notes.bass.ily

@@ -0,0 +1,6 @@
+% 6/8 My Home
+% Bass
+\version "2.18.2"
+composerBass  = ""
+bassA = \drummode {
+}

build_all

@@ -4,5 +4,11 @@ MKDRUMCOMMAND="./makedrum"
 
 for d in *_marches strathspeys standards jigs airs hornpipes other
 do
-	$MKDRUMCOMMAND $d/*.ly
+	for f in $d/*.ly $d/*/*.ly
+	do
+		if [ ! -f $f ] ; then
+			continue
+		fi
+		$MKDRUMCOMMAND $f
+	done;
 done;

cheatsheet.ly

@@ -21,24 +21,22 @@
 \include "lilydrum.ly"
 
 \score {
-	\new DrumStaff {
+	\new PipeBandDrumStaff {
-		\set DrumStaff.drumStyleTable = #(alist->hash-table pipeband-style)
 		\set Staff.instrumentName = "Plain notes"
 		\drummode {
-			d4 g dcross gcross \rimshot d \rimshot g dback gback
+			d4 g \crossstick d \crossstick g \rimshot d \rimshot g \backstick d \backstick g
 		}
     }
     \addlyrics {
-		d g dcross gcross "\rimshot d" "\rimshot g" dback gback
+		"d" "g" "\crossstick d" "\crossstick g" "\rimshot d" "\rimshot g" "\backstick d" "\backstick g"
     }
 }
 
 \score {
-	\new DrumStaff {
+	\new PipeBandDrumStaff {
-		\set DrumStaff.drumStyleTable = #(alist->hash-table pipeband-style)
 		\set Staff.instrumentName = "Tenor Flourishing"
 		\drummode {
-			d^\splitTheFeather g^\cartWheel d^\up {\scoop d8 g8 d4} g d \flourish { d4 g d g }
+			d^\splitTheFeather g^\cartWheel d^\up {d8 g8 d4} g d \flourish { d4 g d g }
 		}
     }
     \addlyrics {
@@ -46,17 +44,58 @@
     }
 }
 
-
 \score {
-	\new DrumStaff {
+	\new PipeBandDrumStaff {
-		\set DrumStaff.drumStyleTable = #(alist->hash-table pipeband-style)
+		\set Staff.instrumentName = "Embellishments"
-		\set Staff.instrumentName = "Tenor Flourishing"
+		\time 2/4
 		\drummode {
-			\partial 8 d8:32( |
+			\flam d		\flam g
-			\triplet { g16) d g} \flam d16. g32  \drag g16 g16 \triplet { d16 g:64 d->}
+			\drag d		\drag g
+			\odrag d	\odrag g
+			\ruff d		\ruff g
+			\sruff d	\sruff g
 		}
 	}
     \addlyrics {
+		"\flam d"	"\flam g"
+		"\drag d"	"\drag g"
+		"\odrag d"	"\odrag g"
+		"\ruff d"	"\ruff g"
+		"\sruff d"	"\sruff g"
+	}
+}
+\score {
+	\new PipeBandDrumStaff {
+		\set Staff.instrumentName = \markup \column { \line{Forced hand} \line{embellishments}}
+		\time 2/4
+		\drummode {
+			\flamg d	\flamd g
+			\dragg d	\dragd g
+			\odragg d	\odragd g
+			\ruffg d	\ruffd g
+			\sruffg d	\sruffd g
+		}
+	}
+    \addlyrics {
+		"\flamg d"	"\flamd g"
+		"\dragg d"	"\dragd g"
+		"\odragg d"	"\odragd g"
+		"\ruffg d"	"\ruffd g"
+		"\sruffg d"	"\sruffd g"
+    }
+}
+\score {
+	\new PipeBandDrumStaff {
+		\set DrumStaff.drumStyleTable = #(alist->hash-table pipeband-style)
+		\set Staff.instrumentName = "Rolls"
+		\drummode {
+			d4:32( d8:32)(-> g8) \flam d4 r8 d8:32( \dr |
+			\triplet { g16) d g } \drag d16. g32  d32 g d g d16. g32-> d16. d32 \flam g4
+		}
+    }
+    \addlyrics {
+		\partial 8
+		"d8:32(" "\\triplet " -- "\\flam d16." "g32"  -- "\\drag g16" -- "\\triplet" "g:64" "d-> }"
     }
 }
 

cleanpdfs

@@ -1,6 +0,0 @@
-#!/bin/bash
-# Recursively remove all pdfs from this directory
-rm -v -R *.pdf
-rm -v -R /snare/*.pdf
-rm -v -R /tenor/*.pdf
-rm -v -R /bass/*.pdf

header_default.ily

@@ -22,9 +22,13 @@ today = #(strftime "%B %e, %Y" (localtime (current-time)))
                     \bold \fromproperty #'header:subtitle
                 }
                 \fromproperty #'header:meter
-                \column {
+                \column \right-align {
 					\fromproperty #'header:instrument
-					\line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger }
+					\line {
+						\fromproperty #'header:composer
+						$(if (and (ly:get-option 'header:composer) (ly:get-option 'header:arranger))
+							(markup " "))
+						\italic \fromproperty #'header:arranger }
 				}
             }
             $(if (not (ly:get-option 'without-comment))

makedrum

@@ -203,7 +203,6 @@ class MakeDrum:
 			if line.startswith(u'\\include'):
 				# Rewrite includes to absolute location of file
 				incline = line.replace('\\include', '').strip('"\' ')
-				print("include "+incline)
 				if not incline.startswith('\\'): #already absolute
 					incline = os.path.join(os.path.relpath(os.path.dirname(file)), incline)
 					line = "\\include \""+incline+"\""

standards/44_standards.side.ly

@@ -32,6 +32,7 @@
     \new PipeBandDrumStaff {
         \eighthBeaming
         \time 4/4
+		\drummode{
         	\repeat volta 2{
 				\partial 8 d16. g32 |
 				\flamd d8 \tuplet 3/2 { d16 g d }		\flamg g8 d8:32(		g16.) d32-> g16. g32		\flamd d8 d8:32( |
@@ -80,8 +81,8 @@
 				\tuplet 3/2 { d16 g d } \flamg g8		\tuplet 3/2 { d16 g d } g8		d16. g32-> d16. d32		\flamd d8 g8 |
 				\flamd d4	d4:32(		d4)		r8
 			}
-
 		}% End of drums %
+    }
 
 	\header {
 		title = "4/4 Standards"