From cf4232806764dab27cdcb010731584f140f23ece Mon Sep 17 00:00:00 2001
From: Sven Axelsson <sven@fronter.com>
Date: Mon, 17 Sep 2012 13:59:27 +0200
Subject: [PATCH] Changed beaming to use beatStructure instead of
 beamExceptions.

This makes the beaming more predictable, especially in reels.
---
 bagpipe_new.ly | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/bagpipe_new.ly b/bagpipe_new.ly
index 372a84f..5a90c11 100644
--- a/bagpipe_new.ly
+++ b/bagpipe_new.ly
@@ -112,11 +112,13 @@ showTrueKeySignature = {
 
 % Sets the autobeamer to span quarter notes only. Use for fast music.
 quarterBeaming = {
-    \set Staff.beamExceptions = #'()
+    \set Score.baseMoment = #(ly:make-moment 1 4)
+    \set Score.beatStructure = #'(1 1 1 1)
 }
+% Sets the autobeamer to span half notes. Mostly used in reels.
 halfBeaming = {
-    \set Staff.beamExceptions = #'((end . (((1 . 8) . (4 4))
-                                          ((1 . 12) . (3 3)))))
+    \set Score.baseMoment = #(ly:make-moment 1 2)
+    \set Score.beatStructure = #'(1 1)
 }
 
 % Reels are in allabreve time with half note beaming.