1\version "2.21.0"
2
3\header {
4  texidoc = "@code{\\rest-by-number} and @code{\\rest} support
5all rest styles."
6}
7
8showRestStyles =
9#(define-scheme-function ()()
10   (make-override-markup
11     (cons 'baseline-skip 7)
12     (make-column-markup
13       (map
14         (lambda (style)
15           (make-line-markup
16             (list
17               (make-pad-to-box-markup
18                 '(0 . 20) '(0 . 0)
19                 (symbol->string style))
20               (make-override-markup
21                 (cons 'line-width 60)
22                 (make-override-markup
23                   (cons 'style style)
24                   (make-fill-line-markup
25                     (map
26                       (lambda (dur-log)
27                         (make-rest-by-number-markup
28                          dur-log 0))
29                       '(-3 -2 -1 0 1 2 3 4 5 6 7 8 9 10))))))))
30         '(default
31           mensural
32           neomensural
33           classical
34           baroque
35           altdefault
36           petrucci
37           blackpetrucci
38           semipetrucci
39           kievan)))))
40
41\showRestStyles
42