More tweaks.

bagpipe_new.ly

@@ -112,20 +112,11 @@ showTrueKeySignature = {
 
 % Sets the autobeamer to span quarter notes only. Use for fast music.
 quarterBeaming = {
-  #(override-auto-beam-setting '(end * * * *) 1 4 'Staff)
+    \set Staff.beamExceptions = #'()
-  #(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)
 }
 halfBeaming = {
-  #(override-auto-beam-setting '(end * * 2 2) 1 2 'Staff)
+    \set Staff.beamExceptions = #'((end . (((1 . 8) . (4 4))
-  #(override-auto-beam-setting '(end * * 2 2) 2 2 'Staff)
+                                          ((1 . 12) . (3 3)))))
 }
 
 % Reels are in allabreve time with half note beaming.
@@ -141,13 +132,15 @@ marchTime = {
 }
 
 % Add appropriate tweaks needed for piping grace notes to look great.
-pgrace = #(define-music-function (parser location notes) (ly:music?)
+stemspace = #(define-music-function (parser location extent) (pair?) #{
-  #{ \override Score.GraceSpacing #'spacing-increment = #0
+    \once \override Staff.Stem #'X-extent = #$extent
-     \override Score.Stem #'beamlet-default-length = #'(0.6 . 0.6)
+#})
+pgrace = #(define-music-function (parser location notes) (ly:music?) #{
+  \override Score.GraceSpacing #'spacing-increment = #0
+   \override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)
    \grace $notes
    \revert Score.Stem #'beamlet-default-length
-  #}
+#})
-)
 
 % Single pgrace notes
 grG = { \pgrace { \small G32 } }
@@ -230,6 +223,7 @@ slura = { \pgrace { \small g32[ a G] } }
 slurb  = { \pgrace { \small g32[ b G] } }
 slurc  = { \pgrace { \small g32[ c G] } }
 slurd  = { \pgrace { \small g32[ d G] } }
+wslurd = { \pgrace { \small g32[ d c] } }
 slure  = { \pgrace { \small g32[ e a] } }
 slurf  = { \pgrace { \small g32[ f a] } }
 slurg  = { \pgrace { \small A32[ f a] } }
@@ -240,6 +234,7 @@ hslura = { \pgrace { \small a32[ G] } }
 hslurb  = { \pgrace { \small b32[ G] } }
 hslurc  = { \pgrace { \small c32[ G] } }
 hslurd  = { \pgrace { \small d32[ G] } }
+whslurd = { \pgrace { \small d32[ c] } }
 hslure  = { \pgrace { \small e32[ a] } }
 hslurf  = { \pgrace { \small f32[ a] } }
 hslurg  = { \pgrace { \small g32[ a] } }
@@ -249,7 +244,8 @@ hslurA = { \pgrace { \small A32[ a] } }
 tslura  = { \pgrace { \small A32[ a G] } }
 tslurb  = { \pgrace { \small A32[ b G] } }
 tslurc  = { \pgrace { \small A32[ c G] } }
-tslurd = { \pgrace { \small A32[ d a] } }
+tslurd  = { \pgrace { \small A32[ d G] } }
+wtslurd = { \pgrace { \small A32[ d c] } }
 tslure  = { \pgrace { \small A32[ e a] } }
 tslurf  = { \pgrace { \small A32[ f a] } }
 tslurg  = { \pgrace { \small A32[ f a] } }
@@ -322,8 +318,8 @@ crunamdfosg = { \pgrace { \small e32[ d f d ] } }
 % Special piobaireachd notations
 grGcad   = { \pgrace { \small G16 } }
 gracad   = { \pgrace { \small a16 } }
-cad      = { \pgrace { \small g32[ e8 d32] } }
+cad      = { \pgrace { \small \stemspace #'(0 . 0.5) g32[ e8 d32] } }
-hcad     = { \pgrace { \small g32[ e8] } }
+hcad     = { \pgrace { \small \stemspace #'(0 . 0.5) g32[ e8] } }
 tcad     = { \pgrace { \small e8[ d32] } }
 thcad    = { \pgrace { \small e8 } }
 % This is the same as thrwe
@@ -352,7 +348,7 @@ Gbarluadh  = { \pgrace { \small d32[ a e a f a e a d a c a b a e a f a] } }
 GbarluadhG = { \pgrace { \small d32[ a e G f G e G d G c G b G e G f G] } }
 % Non-gracenote piobaireachd markup.
 trebling = \markup {
-  \override #'(baseline-skip . 0.3)
+  \override #'(baseline-skip . 0.4)
   \column {
     \musicglyph #"scripts.tenuto"
     \musicglyph #"scripts.tenuto"
@@ -361,15 +357,21 @@ trebling = \markup {
 }
 % Abbreviated notation common in piobaireachd scores.
 % TODO: Make sure these are put on a fixed Y-position.
-txtaor = \markup { "T" }
+txtaor = \markup { \center-align "T" }
-txcrun = \markup { "C" }
+txcrun = \markup { \center-align "C" }
 txtaorcrun = \markup {
   \override #'(baseline-skip . 1.8)
-  \column { "T" "C" }
+  \column {
+    \center-align "T"
+    \center-align "C"
+  }
 }
-txtaoram = \markup { "T’’" }
+txtaoram = \markup { \center-align \scale #'(-1 . -1) "T" }
-txcrunam = \markup { "C’’" }
+txcrunam = \markup { \center-align \scale #'(-1 . -1) "C" }
 txtaorcrunam = \markup {
   \override #'(baseline-skip . 1.8)
-  \column { "T’’" "C’’" }
+  \column {
+    \center-align \scale #'(-1 . -1) "T"
+    \center-align \scale #'(-1 . -1) "C"
+  }
 }

cheatsheet.ly

@@ -19,6 +19,10 @@
 }
 \layout {
   indent = 30\mm
+  \context {
+    \Score
+    \override NonMusicalPaperColumn #'line-break-permission = ##f
+  }
 }
 
 \score {
@@ -65,12 +69,12 @@
     {
     \bagpipeKey
     \set Staff.instrumentName = "Slurs "
-    \slura a \slurb b \slurc c \slurd d
+    \slura a \slurb b \slurc c \slurd d \wslurd d
     \slure e \slurf f \slurg g \slurA A
     \hslurf f \tslurf f
     }
     \addlyrics {
-    "\slura" "\slurb" "\slurc" "\slurd"
+    "\slura" "\slurb" "\slurc" "\slurd" "\wslurd"
     "\slure" "\slurf" "\slurg" "\slurA"
     "\hslurf" "\\tslurf"
     }
@@ -164,10 +168,12 @@
     \set Staff.instrumentName = \markup { "Crunluath " }
     e \crun e d \dcrun e G \Gcrun e
     b \crunamb e c \crunamc e b \crunamd e
+    s16 \grg a8[ \grd b16 \crunambfosg b] s16 \grg a8[ \grd c16 \crunamcfosg c]
     }
     \addlyrics {
     \skip 4 "\\crun" \skip 4 "\dcrun" \skip 4 "\Gcrun"
     \skip 4 "\\crunamb" \skip 4 "\\crunamc" \skip 4 "\\crunamd"
+    \skip 4 "\\crunambfosg" \skip 4 "\\crunamcfosg"
     }
 }
 
@@ -177,13 +183,13 @@
     \set Staff.instrumentName = \markup { \column { "Piobaireachd " "notation " } }
     \cad c4 A \hcad c
     e \gracad e d \grGcad d
-    a \pthrwd d c \darodo b G \Gdarodo c
+    a \pthrwd d c \darodo b c \pdarodo b G \Gdarodo c
     a \dre e G \bari g e \dari g e \dare f
     }
     \addlyrics {
     "\cad" \skip 4 "\hcad"
     \skip 4 "\gracad" \skip 4 "\grGcad"
-    \skip 4 "\pthrwd" \skip 4 "\darodo" \skip 4 "\Gdarodo"
+    \skip 4 "\pthrwd" \skip 4 "\darodo" \skip 4 "\pdarodo" \skip 4 "\Gdarodo"
     \skip 4 "\dre" \skip 4 "\bari" \skip 4 "\dari" \skip 4 "\dare"
     }
 }
@@ -248,6 +254,6 @@
 
 \header {
     title = "Cheat sheet for entering bagpipe music"
-    subtitle = "Intended for Lilypond 2.12 or better"
+    subtitle = "Intended for Lilypond 2.14 or better"
     tagline = \markup { "P/S Sven Axelsson, The Murray Pipes & Drums of Gothenburg" }
 }