]> git.donarmstrong.com Git - lilypond.git/commitdiff
Fix 1525 -- Set autobeam to start at beginnning of measure in 3/4 time
authorCarl Sorensen <c_sorensen@byu.edu>
Sun, 20 Feb 2011 22:13:04 +0000 (15:13 -0700)
committerCarl Sorensen <c_sorensen@byu.edu>
Sun, 20 Feb 2011 22:15:12 +0000 (15:15 -0700)
scm/auto-beam.scm

index 012983f152c319f87e03a3f08c2048accb6f35b6..83feb9663a19900be8b3a6ec7bd5d0780797c5c1 100644 (file)
 
         (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