Can use piping embellishments in tinwhistle score

tinwhistle-bagpipe-embellishments.ily

@@ -0,0 +1,64 @@
+%{
+  Bagpipe Embellishments for the TinWhistle
+%}
+\version "2.19.82"
+
+\layout {
+  \context {
+    \Score
+    \override Stem.direction = #down
+    \override Slur.direction = #up
+    \override Tie.direction = #up
+  }
+}
+
+
+tinpipegrace =
+#(define-music-function (paper location notes) (ly:music?)
+	#{
+		\stemUp
+  		\override Score.GraceSpacing.spacing-increment = #0
+  		\override Score.Stem.beamlet-max-length-proportion = #'(0.5 . 0.5)
+  		\small \grace $notes \normalsize
+  		\revert Score.Stem.beamlet-default-length
+  		\stemNeutral
+	#}
+)
+
+%%% Single Grace Notes
+grA = \tinpipegrace { \fixed c'' { a32 } }
+grg = \tinpipegrace { \fixed c'' { g32 } }
+grf = \tinpipegrace { \fixed c'' { fis32 } }
+gre = \tinpipegrace { \fixed c'' { e32 } }
+grd = \tinpipegrace { \fixed c'' { d32 } }
+grc = \tinpipegrace { \fixed c'' { cis32 } }
+grb = \tinpipegrace { \fixed c'' { b,32 } }
+gra = \tinpipegrace { \fixed c'' { a,32 } }
+grG = \tinpipegrace { \fixed c'' { g,32 } }
+
+
+%%% Doublings
+dblA = \tinpipegrace { \fixed c'' { a32 g } }
+dblg = \tinpipegrace { \fixed c'' { g32 fis } }
+dblf = \tinpipegrace { \fixed c'' { g32 fis g } }
+dble = \tinpipegrace { \fixed c'' { g32 e fis } }
+dbld = \tinpipegrace { \fixed c'' { g32 d e } }
+dblc = \tinpipegrace { \fixed c'' { g32 cis d } }
+dblb = \tinpipegrace { \fixed c'' { g32 b, d } }
+dbla = \tinpipegrace { \fixed c'' { g32 a, d } }
+dblG = \tinpipegrace { \fixed c'' { g32 g, d } }
+
+%%% Half Doublings
+hdblA = \dblA
+hdblg = \dblg
+hdblf = \tinpipegrace { \fixed c'' { fis32 g } }
+hdble = \tinpipegrace { \fixed c'' { e32 fis } }
+hdbld = \tinpipegrace { \fixed c'' { d32 e } }
+
+%%%
+thrwd = \tinpipegrace { \fixed c'' { g,32 d cis } }
+grip  = \tinpipegrace { \fixed c'' { g,32 d g, } }
+taor  = \tinpipegrace { \fixed c'' { g,32 d g, e } }
+wbirl = \tinpipegrace { \fixed c'' { g,32 a, g, } }
+gbirl = {}
+slurf = {}