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