]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/beam-performer.cc
* scm/titling.scm (default-score-title): remove caps for piece.
[lilypond.git] / lily / beam-performer.cc
index 09f978e9b92326e1e0e320389bb99f8729b37739..8748d7320d0ebe3987bb9f523e8b40c11f8dd21e 100644 (file)
@@ -28,12 +28,20 @@ private:
   bool beam_;
 };
 
+Beam_performer::Beam_performer ()
+{
+  beam_ = false;
+  start_ev_ = 0;
+  now_stop_ev_ = 0;
+}
+
 void 
 Beam_performer::process_music ()
 {
   if (now_stop_ev_)
     {
       beam_ = false;
+      set_melisma (false);
     }
 
   if (start_ev_)
@@ -49,17 +57,12 @@ Beam_performer::set_melisma (bool ml)
 {
   SCM b = get_property ("autoBeaming");
   if (!to_boolean (b))
-    daddy_context_->set_property ("beamMelismaBusy", ml ? SCM_BOOL_T :SCM_BOOL_F);
+context ()->set_property ("beamMelismaBusy", ml ? SCM_BOOL_T :SCM_BOOL_F);
 }
 
 void
 Beam_performer::start_translation_timestep ()
 {
-  if (beam_)
-    {
-      set_melisma (true);
-    }
-  
   start_ev_ = 0;
   now_stop_ev_ = 0;
 }
@@ -87,7 +90,3 @@ Beam_performer::try_music (Music *m)
 ENTER_DESCRIPTION (Beam_performer,"","",
                  "beam-event","","","");
 
-Beam_performer::Beam_performer ()
-{
-  beam_ = false;
-}