(print): new file. Set limits to

[lilypond.git] / input / regression / measure-grouping.ly

diff --git a/input/regression/measure-grouping.ly b/input/regression/measure-grouping.ly
index 2eca7d467f055904b486c56faba25805d7e6e83e..70ff1b85bbe81002de0c137f7f35ee9e7a3b6aa6 100644 (file)
--- a/input/regression/measure-grouping.ly
+++ b/input/regression/measure-grouping.ly
@@ -1,25 +1,33 @@
+
 \header
 {
-texidoc = "The Measure_grouping_engraver adds triangles and brackets above beats
-when you set beatGrouping.
 
-(unfinished.)
-"
+    texidoc = "The @code{Measure_grouping_engraver} adds triangles and
+brackets above beats when the beats of a time signature are grouped.  "
+
 }
-\score { \notes
+
+\version "2.3.4"
+
+
+%% TODO: should have 2/4 + 5/8 time sig style.
+\score { 
 \context Staff
-        {
-            \time 8/4
-            \property Staff.beatGrouping = #'(3 3) 
-            c4 c c c
-            c4
-            \property Staff.beatGrouping = #'()
-            c c c
-            
+        \relative c' {
+            #(set-time-signature 2 4) 
+            c8 a'4 a8~
+            #(set-time-signature 5 8 '(3 2)) 
+            a8 bes4 r8 bes8->
+            \time 2/4
+            c,8 g'4 g8~
+            #(set-time-signature 5 8 '(3 2)) 
+            g8 a4 g a4.->
         }
         \paper  {
-            \translator { \StaffContext
+            raggedright = ##t
+            \context { \Staff
                           \consists "Measure_grouping_engraver"
                           }
             }
         }
+