]> git.donarmstrong.com Git - lilypond.git/commitdiff
added test for beamExceptions that failed in 2.15.39 in 3/4 for 1/32nd notes
authorFrederic Bron <frederic.bron@m4x.org>
Wed, 11 Jul 2012 04:47:55 +0000 (06:47 +0200)
committerKeith OHara <k-ohara5a5a@oco.net>
Sat, 14 Jul 2012 06:04:01 +0000 (23:04 -0700)
input/regression/auto-beam-exceptions.ly [new file with mode: 0644]

diff --git a/input/regression/auto-beam-exceptions.ly b/input/regression/auto-beam-exceptions.ly
new file mode 100644 (file)
index 0000000..c62e303
--- /dev/null
@@ -0,0 +1,50 @@
+\version "2.15.42"
+
+\header {
+
+  doctitle = "beamExceptions"
+
+  texinfo = "beamExceptions is used to modify the automatic beaming for certain durations;
+  the expected grouping is given after the note duration"
+
+}
+
+\relative c' {
+  \time 2/4
+  \set Score.beamExceptions = #'(
+    ( end .
+      (
+        ( (1 . 32) . (4 4 4 4) )
+      )
+    )
+  )
+  \repeat unfold 16 c32
+  \time 3/4
+  \set Score.beamExceptions = #'(
+    ( end .
+      (
+        ( (1 . 32) . (4 4 4 4 4 4) )
+      )
+    )
+  )
+  \repeat unfold 24 c32
+  c8 c32 c32 c32 c32 c16 c16 c32 c32 c32 c32 c16 c32 c32 c32 c32 c32 c32
+  \time 4/4
+  \set Score.beamExceptions = #'(
+    ( end .
+      (
+        ( (1 . 32) . (4 4 4 4 4 4 4 4) )
+      )
+    )
+  )
+  \repeat unfold 32 c32
+  \time 6/8
+  \set Score.beamExceptions = #'(
+    ( end .
+      (
+        ( (1 . 32) . (4 4 4 4 4 4) )
+      )
+    )
+  )
+  \repeat unfold 24 c32
+}