-\version "2.13.10"
+\version "2.19.35"
\header {
texidoc = "@code{\\note-by-number} and @code{\\note} support
-all note head styles."
+all note head styles and all flag styles (default, straight, flat, mensural)."
}
-#(define-markup-command (show-note-styles layout props) ()
+#(define styles-list
+ '(default altdefault
+ baroque neomensural
+ mensural petrucci
+ semipetrucci blackpetrucci
+ 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
(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))))
+
+%% 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)
+ }
+}
\markup {
- \override #'(baseline-skip . 6)
- \show-note-styles
+ \column {
+ \combine \null \vspace #1
+ \underline "default-flag:"
+ \override #'(flag-style . default)
+ \show-note-styles #'(default mensural)
+ }
}