4 texidoc = "@code{\\note-by-number} and @code{\\note} support
5 all note head styles and all flag styles (default, straight, flat, mensural)."
12 semipetrucci blackpetrucci
13 harmonic harmonic-black
14 harmonic-mixed diamond
18 #(define-markup-command (show-note-styles layout props styles) (list?)
19 (interpret-markup layout props
25 (make-pad-to-box-markup '(0 . 20) '(0 . 0)
26 (symbol->string style))
31 (make-fill-line-markup
34 (make-note-by-number-markup
36 '(-3 -2 -1 0 1 2 3 4 5 6))))))))
39 %% Testing all combinations of note-head/flag-styles would be too much
40 %% Thus, limited examples
43 \combine \null \vspace #1
44 \underline "Note-head-styles:"
45 \override #'(baseline-skip . 6)
46 \show-note-styles #styles-list
52 \combine \null \vspace #1
53 \underline "Modern-straight-flag:"
54 \override #'(flag-style . modern-straight-flag)
55 \show-note-styles #'(default mensural)
61 \combine \null \vspace #1
62 \underline "Old-straight-flag:"
63 \override #'(flag-style . old-straight-flag)
64 \show-note-styles #'(default)
70 \combine \null \vspace #1
71 \underline "Flat-flag:"
72 \override #'(flag-style . flat-flag)
73 \show-note-styles #'(default)
79 \combine \null \vspace #1
80 \underline "default-flag:"
81 \override #'(flag-style . default)
82 \show-note-styles #'(default mensural)