From c1695321ac192515a7ddbcd10e259accfc333dc5 Mon Sep 17 00:00:00 2001 From: Carl Sorensen Date: Sun, 20 Feb 2011 17:46:43 -0700 Subject: [PATCH] Fix 1524 -- Add beamExceptions to 3/4 special check --- scm/auto-beam.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/scm/auto-beam.scm b/scm/auto-beam.scm index 83feb9663a..82b5917d1c 100644 --- a/scm/auto-beam.scm +++ b/scm/auto-beam.scm @@ -105,12 +105,13 @@ (exception-moments (ending-moments exception-grouping 0 grouping-moment))) - (if (= dir START) + (if (= dir START) ;; Start rules (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 + (not (null? exception-grouping)) ;; don't use special rules if exception (beat-end? pos beat-endings) ;; are we at start of beat? - (and (not (equal? test-beam base-moment)) ;; is beat split? + (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 ;; End rules -- 2.39.2