X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fmarkup-rest-styles.ly;fp=input%2Fregression%2Fmarkup-rest-styles.ly;h=5ed826230ae457f6b7a9697711d34add4d1768de;hb=0ac07f31e0f95fc18e5916ce756b9c746af7cc58;hp=0000000000000000000000000000000000000000;hpb=2f1263e2ccdddcac2eb9f7d8ce2ed92867d3d160;p=lilypond.git

diff --git a/input/regression/markup-rest-styles.ly b/input/regression/markup-rest-styles.ly
new file mode 100644
index 0000000000..5ed826230a
--- /dev/null
+++ b/input/regression/markup-rest-styles.ly
@@ -0,0 +1,41 @@
+\version "2.17.9"
+
+\header {
+  texidoc = "@code{\\rest-by-number} and @code{\\rest} support
+all rest styles."
+}
+
+showRestStyles =
+#(define-scheme-function (parser location)()
+   (make-override-markup
+     (cons 'baseline-skip 7)
+     (make-column-markup
+       (map
+         (lambda (style)
+           (make-line-markup
+             (list
+               (make-pad-to-box-markup
+                 '(0 . 20) '(0 . 0)
+                 (symbol->string style))
+               (make-override-markup
+                 (cons 'line-width 60)
+                 (make-override-markup
+                   (cons 'style style)
+                   (make-fill-line-markup
+                     (map
+                       (lambda (dur-log)
+                         (make-rest-by-number-markup
+                          dur-log 0))
+                       '(-3 -2 -1 0 1 2 3 4 5 6 7))))))))
+         '(default
+           mensural
+           neomensural
+           classical
+           baroque
+           altdefault
+           petrucci
+           blackpetrucci
+           semipetrucci
+           kievan)))))
+
+\showRestStyles