4 texidoc = "@code{\\note-by-number} and @code{\\note} support
5 all note head styles and straight flags."
12 harmonic harmonic-black
13 harmonic-mixed diamond
17 #(define-markup-command (show-note-styles layout props styles) (list?)
18 (interpret-markup layout props
24 (make-pad-to-box-markup '(0 . 20) '(0 . 0)
25 (symbol->string style))
30 (make-fill-line-markup
33 (make-note-by-number-markup
35 '(-3 -2 -1 0 1 2 3 4 5 6))))))))
40 \combine \null \vspace #1
41 \underline "Note-head-styles:"
42 \override #'(baseline-skip . 6)
43 \show-note-styles #styles-list
49 \combine \null \vspace #1
50 \underline "Modern-straight-flag:"
51 \override #'(flag-style . modern-straight-flag)
52 \show-note-styles #'(default)
58 \combine \null \vspace #1
59 \underline "Old-straight-flag:"
60 \override #'(flag-style . old-straight-flag)
61 \show-note-styles #'(default)
67 \combine \null \vspace #1
68 \underline "Flat-flag:"
69 \override #'(flag-style . flat-flag)
70 \show-note-styles #'(default)