Imported Upstream version 2.18.0

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

diff --git a/input/regression/markup-note-styles.ly b/input/regression/markup-note-styles.ly
index bb1406b4cc3185c6eb1b2a81fe63a4c5f02d34cb..f5fbc9b60d2671170f61920fbf415b857e78e8b7 100644 (file)
--- a/input/regression/markup-note-styles.ly
+++ b/input/regression/markup-note-styles.ly
@@ -1,11 +1,20 @@
-\version "2.16.0"
+\version "2.17.19"
 
 \header {
   texidoc = "@code{\\note-by-number} and @code{\\note} support
-all note head styles."
+all note head styles and straight flags."
 }
 
-#(define-markup-command (show-note-styles layout props) ()
+#(define styles-list
+  '(default altdefault
+    baroque neomensural
+    mensural petrucci
+    harmonic harmonic-black
+    harmonic-mixed diamond
+    cross xcircle
+    triangle slash))
+
+#(define-markup-command (show-note-styles layout props styles) (list?)
    (interpret-markup layout props
                      (make-column-markup
                       (map
@@ -23,16 +32,41 @@ all note head styles."
                                (lambda (dur-log)
                                  (make-note-by-number-markup
                                   dur-log 0 UP))
-                               '(-3 -2 -1 0 1 2))))))))
-                       '(default altdefault
-                          baroque neomensural
-                          mensural petrucci
-                          harmonic harmonic-black
-                          harmonic-mixed diamond
-                          cross xcircle
-                          triangle slash)))))
+                               '(-3 -2 -1 0 1 2 3 4 5 6))))))))
+                       styles))))
+
+\markup {
+  \column {
+    \combine \null \vspace #1
+    \underline "Note-head-styles:"
+    \override #'(baseline-skip . 6)
+    \show-note-styles #styles-list
+  }
+}
+
+\markup {
+  \column {
+    \combine \null \vspace #1
+    \underline "Modern-straight-flag:"
+    \override #'(flag-style . modern-straight-flag)
+    \show-note-styles #'(default)
+  }
+}
+
+\markup {
+  \column {
+    \combine \null \vspace #1
+    \underline "Old-straight-flag:"
+    \override #'(flag-style . old-straight-flag)
+    \show-note-styles #'(default)
+  }
+}
 
 \markup {
-  \override #'(baseline-skip . 6)
-  \show-note-styles
+  \column {
+    \combine \null \vspace #1
+    \underline "Flat-flag:"
+    \override #'(flag-style . flat-flag)
+    \show-note-styles #'(default)
+  }
 }