Issue 4389: Add aliases fflat et al for f-flat et al in bagpipe.ly

While the name conversion of issue 4209 is also done for bagpipe music,
as opposed to "normal" music the respective note names have no short
names and thus can be expected to be used in melodies rather than just
in isolated places like \key commands.

As the change is consequently much more likely to inconvenience bagpipe
players, aliases for the old names are added to bagpipe.ly.

diff --git a/ly/bagpipe.ly b/ly/bagpipe.ly
index c1c7f41e03a4eb5a32bb102a0116a972db0783f3..6fc039e4a0b0288cbcea7250ea9f10f89813047a 100644 (file)
--- a/ly/bagpipe.ly
+++ b/ly/bagpipe.ly
@@ -20,12 +20,15 @@ pitchnamesBagpipe = #`(
   (b . ,(ly:make-pitch 0 6 NATURAL))
   (c . ,(ly:make-pitch 1 0 SHARP))
   (c-flat . ,(ly:make-pitch 1 0 FLAT))
+  (cflat . ,(ly:make-pitch 1 0 FLAT))
   (d . ,(ly:make-pitch 1 1 NATURAL))
   (e . ,(ly:make-pitch 1 2 NATURAL))
   (f . ,(ly:make-pitch 1 3 SHARP))
   (f-flat . ,(ly:make-pitch 1 3 FLAT))
+  (fflat . ,(ly:make-pitch 1 3 FLAT))
   (g . ,(ly:make-pitch 1 4 NATURAL))
   (g-flat . ,(ly:make-pitch 1 4 FLAT))
+  (gflat . ,(ly:make-pitch 1 4 FLAT))
   (A . ,(ly:make-pitch 1 5 NATURAL))
   (B . ,(ly:make-pitch 1 6 NATURAL))
   (C . ,(ly:make-pitch 2 0 SHARP))