Making flat flags available

[lilypond.git] / input / regression / markup-note.ly

diff --git a/input/regression/markup-note.ly b/input/regression/markup-note.ly
index 13ca046ba2259b0bdc9ff582af7a3e64da2bc497..c600fab42f9d83e08242ea82fe5d4cecf8b96a56 100644 (file)
--- a/input/regression/markup-note.ly
+++ b/input/regression/markup-note.ly
@@ -3,41 +3,71 @@
   texidoc = "The note markup function may be used to make metronome
  markings. It works for a variety of flag, dot and duration settings."
 }
-\version "2.7.13"
+\version "2.17.12"
 
-{ c4^\markup {
-  \note #"1" #1
-  \note #"2" #1
-  \note #"4" #1
-  \note #"8" #1
-  \note #"16" #1
-  \note #"32" #1
-  \note #"64" #1
+mrkp =
+\markup {
+   \note #"1" #1
+   \note #"2" #1
+   \note #"4" #1
+   \note #"8" #1
+   \note #"16" #1
+   \note #"32" #1
+   \note #"64" #1
 
-  \note #"1" #-1
-  \note #"2" #-1
-  \note #"4" #-1
-  \note #"8" #-1
-  \note #"16" #-1
-  \note #"32" #-1
-  \note #"64" #-1
+   \note #"1" #-1
+   \note #"2" #-1
+   \note #"4" #-1
+   \note #"8" #-1
+   \note #"16" #-1
+   \note #"32" #-1
+   \note #"64" #-1
 
-  \note #"1." #-1
-  \note #"2." #-1
-  \note #"4." #-1
-  \note #"8." #-1
-  \note #"16." #-1
-  \note #"32." #-1
-  \note #"64." #-1
+   \note #"1." #-1
+   \note #"2." #-1
+   \note #"4." #-1
+   \note #"8." #-1
+   \note #"16." #-1
+   \note #"32." #-1
+   \note #"64." #-1
 
-  \note #"1." #1
-  \note #"2." #1
-  \note #"4." #1
-  \note #"8." #1
-  \note #"16." #1
-  \note #"32." #1
-  \note #"64." #1
+   \note #"1." #1
+   \note #"2." #1
+   \note #"4." #1
+   \note #"8." #1
+   \note #"16." #1
+   \note #"32." #1
+   \note #"64." #1
 
+   \override #'(style . cross)
+   { \note-by-number #2 #1 #1
+     \note-by-number #2 #1 #-1
+   }
+   \override #'(style . triangle)
+   { \note-by-number #2 #1 #1
+     \note-by-number #2 #1 #-1
+   }
 }
 
-} 
+\score {
+  \relative c''
+  {
+    c4^\markup {
+            \column {
+                    \mrkp
+                    \override #'(style . mensural) \mrkp
+                    \override #'(flag-style . modern-straight-flag) \mrkp
+                    \override #'(flag-style . old-straight-flag) \mrkp
+                    \override #'(flag-style . flat-flag) \mrkp
+            }
+    }
+    \override NoteHead.style = #'triangle
+    c4 a
+  }
+  \layout {
+    \context {
+      \Score
+      \override PaperColumn.keep-inside-line = ##f
+    }
+  }
+}