From: Carl Sorensen <c_sorensen@byu.edu>
Date: Sun, 20 Feb 2011 22:13:04 +0000 (-0700)
Subject: Fix 1525 -- Set autobeam to start at beginnning of measure in 3/4 time
X-Git-Tag: release/2.13.51-1~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5a3913b52a5ca1746e5e78b9c81de59fc57074ef;p=lilypond.git

Fix 1525 -- Set autobeam to start at beginnning of measure in 3/4 time
---

diff --git a/scm/auto-beam.scm b/scm/auto-beam.scm
index 012983f152..83feb9663a 100644
--- a/scm/auto-beam.scm
+++ b/scm/auto-beam.scm
@@ -107,8 +107,9 @@
 
         (if (= dir START)
             ;; Start rules
-            (or (not (equal? time-signature-fraction '(3 . 4))) ;; start anywher if not 3/4
-                (beat-end? pos beat-endings)  ;; are we at start of beat?
+            (or (not (equal? time-signature-fraction '(3 . 4))) ;; start anywhere if not 3/4
+                (= (ly:moment-main-numerator pos) 0) ;; start at beginning of measure
+		(beat-end? pos beat-endings)  ;; are we at start of beat?
                 (and (not (equal? test-beam base-moment)) ;; is beat split?
                      (not (beat-end? (ly:moment-add pos test-beam)
                                      beat-endings))))  ;; will this note end the beat