From: fred <fred>
Date: Fri, 20 Dec 1996 23:37:27 +0000 (+0000)
Subject: lilypond-0.0.19
X-Git-Tag: release/1.5.59~6533
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dbb9ac620d94978d08b04c4a416d7605915e5216;p=lilypond.git

lilypond-0.0.19
---

diff --git a/src/inputcommand.cc b/src/inputcommand.cc
index 1c48eea52a..e38eb87217 100644
--- a/src/inputcommand.cc
+++ b/src/inputcommand.cc
@@ -47,11 +47,19 @@ get_partial_command(Real u)
     return c;
 }
 
+Input_command*
+get_grouping_command(Real r,svec<int>a ) 
+{
+    Input_command*c = get_grouping_command(a);
+    c->args.insert(r,1);
+    return c;
+}
+
 Input_command*
 get_grouping_command(svec<int>a ) 
 {
     Input_command*c = new Input_command;
-    c->args.add("GROUPING");
+    c->args.add("GROUPING");    
     for (int i=0; i < a.sz(); i ++)
 	c->args.add(a[i]);
 
@@ -133,3 +141,20 @@ get_clef_interpret_command(String w)
     c->args.add(w);
     return c;
 }
+
+svec<int>
+get_default_grouping(int count)
+{
+    svec<int> s;
+    if (!(count % 3 )) {
+	for (int i=0; i < count/3; i++)
+	    s.add(3);
+    } else if (!(count %2)) {
+	for (int i=0; i < count/2; i++)
+	    s.add(2);
+    }else {
+	s.add(2);
+	s.concat(get_default_grouping(count-2));
+    }
+    return s;
+}