(process_acknowledged_grobs): new

[lilypond.git] / lily / beam-engraver.cc

diff --git a/lily/beam-engraver.cc b/lily/beam-engraver.cc
index efa4eb40e2cb2e7700e296cf925c70cfb775f9ea..2ee7b317785f4012e3cf517e964cd0e61c844411 100644 (file)
--- a/lily/beam-engraver.cc
+++ b/lily/beam-engraver.cc
@@ -104,29 +104,6 @@ Beam_engraver::try_music (Music *m)
       beam_ = 0;
     }
   else if (m->is_mus_type ("beam-event"))
-    {
-      Direction d = to_dir (m->get_mus_property ("span-direction"));
-
-      if (d == STOP && !valid_end_moment())
-       return false;
-
-      if (d == START && !valid_start_moment ())
-       return false;
-         
-      if (d == STOP)
-       {
-         SCM m = get_property ("automaticMelismata");
-         SCM b = get_property ("autoBeaming");
-         if (to_boolean (m) && !to_boolean (b))
-           {
-             set_melisma (false);
-           }
-       }
-
-      evs_drul_[d ] = m;
-      return true;
-    }
-  else if (m->is_mus_type ("new-beam-event"))
     {
       Direction d = to_dir (m->get_mus_property ("span-direction"));
       if (d == START && !valid_start_moment ())
@@ -135,7 +112,9 @@ Beam_engraver::try_music (Music *m)
        return false;
 
       if (d == START)
-       evs_drul_[d] = m;
+       {
+         evs_drul_[d] = m;
+       }
       else if (d==STOP)
        {
          now_stop_ev_ = m;
@@ -146,9 +125,13 @@ Beam_engraver::try_music (Music *m)
 }
 
 void
-Beam_engraver::set_melisma (bool m)
+Beam_engraver::set_melisma (bool ml)
 {
-  daddy_trans_->set_property ("beamMelismaBusy", m ? SCM_BOOL_T :SCM_BOOL_F);
+  SCM m = get_property ("automaticMelismata");
+  SCM b = get_property ("autoBeaming");
+  
+  if (to_boolean (m) && !to_boolean (b))
+    daddy_trans_->set_property ("beamMelismaBusy", ml ? SCM_BOOL_T :SCM_BOOL_F);
 }
 
 void
@@ -164,7 +147,7 @@ Beam_engraver::process_music ()
       beam_ = 0;
     }
 
-  if (beam_ && to_boolean (get_property ("forbidBeamBreak")))
+  if (beam_ && !to_boolean (get_property ("allowBeamBreak")))
     {
       top_engraver ()->forbid_breaks ();
     }
@@ -177,6 +160,7 @@ Beam_engraver::process_music ()
          return;
        }
 
+      set_melisma (true);
       prev_start_ev_ = evs_drul_[START];
       beam_ = new Spanner (get_property ("Beam"));
       SCM smp = get_property ("measurePosition");
@@ -217,12 +201,8 @@ Beam_engraver::start_translation_timestep ()
   
   if (beam_)
     {
-      SCM m = get_property ("automaticMelismata");
-      SCM b = get_property ("autoBeaming");
-      if (to_boolean (m) && !to_boolean (b))
-       {
-         set_melisma (true);
-       }
+      set_melisma (true);
+      
       subdivide_beams_ = to_boolean(get_property("subdivideBeams"));
       beat_length_ = *unsmob_moment (get_property ("beatLength"));
     }
@@ -241,12 +221,7 @@ Beam_engraver::stop_translation_timestep ()
       beam_ = 0;
       beam_info_ = 0;
       typeset_beam();
-
-      if (to_boolean (get_property ("automaticMelismata"))
-         && !to_boolean (get_property ("autoBeaming")))
-       {
          set_melisma (false);
-       }
     }
 }
 
@@ -330,7 +305,7 @@ ENTER_DESCRIPTION(Beam_engraver,
 /* descr */       "Handles Beam events by engraving Beams.    If omitted, then notes will be "
 "printed with flags instead of beams.",
 /* creats*/       "Beam",
-/* accepts */     "beam-event new-beam-event abort-event",
+/* accepts */     "beam-event abort-event",
 /* acks  */      "stem-interface rest-interface",
 /* reads */       "beamMelismaBusy beatLength subdivideBeams",
 /* write */       "");
@@ -373,8 +348,8 @@ ENTER_DESCRIPTION(Grace_beam_engraver,
 " are at grace points in time. "
 ,
 /* creats*/       "Beam",
-/* accepts */     "beam-event abort-event new-beam-event",
+/* accepts */     "beam-event abort-event",
 /* acks  */      "stem-interface rest-interface",
-/* reads */       "beamMelismaBusy beatLength forbidBeamBreak subdivideBeams",
+/* reads */       "beamMelismaBusy beatLength allowBeamBreak subdivideBeams",
 /* write */       "");