+ '(-3 -2 -1 0 1 2 3 4 5 6))))))))
+ styles))))
+
+%% Testing all combinations of note-head/flag-styles would be too much
+%% Thus, limited examples
+\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 mensural)
+ }
+}
+
+\markup {
+ \column {
+ \combine \null \vspace #1
+ \underline "Old-straight-flag:"
+ \override #'(flag-style . old-straight-flag)
+ \show-note-styles #'(default)
+ }
+}
+
+\markup {
+ \column {
+ \combine \null \vspace #1
+ \underline "Flat-flag:"
+ \override #'(flag-style . flat-flag)
+ \show-note-styles #'(default)
+ }
+}