input/regression/markup-rest-styles.ly

   1 \version "2.17.9"
   2
   3 \header {
   4   texidoc = "@code{\\rest-by-number} and @code{\\rest} support
   5 all rest styles."
   6 }
   7
   8 showRestStyles =
   9 #(define-scheme-function (parser location)()
  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))))))))
  30          '(default
  31            mensural
  32            neomensural
  33            classical
  34            baroque
  35            altdefault
  36            petrucci
  37            blackpetrucci
  38            semipetrucci
  39            kievan)))))
  40
  41 \showRestStyles