release: 1.3.55

[lilypond.git] / lily / multi-measure-rest-engraver.cc

diff --git a/lily/multi-measure-rest-engraver.cc b/lily/multi-measure-rest-engraver.cc
index d7e78c400e022e866cc37deadc17627144fb438a..5941e43ec82e5f479284ee7f6d5ca1fdb3120f70 100644 (file)
--- a/lily/multi-measure-rest-engraver.cc
+++ b/lily/multi-measure-rest-engraver.cc
@@ -1,84 +1,178 @@
 /*
   multi_measure_rest-engraver.cc -- implement Multi_measure_rest_engraver
 
-  (c) 1998 Jan Nieuwenhuizen <jan@digicash.com>
+  (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
+       Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "proto.hh"
 #include "musical-request.hh"
 #include "multi-measure-rest.hh"
-#include "multi-measure-rest-engraver.hh"
-#include "score-column.hh"
+#include "paper-column.hh"
+#include "engraver-group-engraver.hh"
+#include "bar.hh"
+#include "staff-symbol-referencer.hh"
+#include "engraver.hh"
+#include "moment.hh"
+
+/**
+   The name says it all: make multi measure rests 
+ */
+class Multi_measure_rest_engraver : public Engraver
+{
+public:
+  VIRTUAL_COPY_CONS(Translator);
+  Multi_measure_rest_engraver ();
+
+protected:
+  virtual void acknowledge_element (Score_element_info i);
+  virtual void do_process_music ();
+  virtual bool do_try_music (Music*);
+  virtual void do_pre_move_processing ();
+  virtual void do_post_move_processing ();
+  virtual void do_removal_processing ();
+private:
+  Span_req * new_req_l_;
+  Span_req * busy_span_req_l_;
+  Span_req * stop_req_l_;
+  int start_measure_i_;
+  Moment start_moment_;
+  
+  Multi_measure_rest *mmrest_p_;
+  Multi_measure_rest *lastrest_p_;
+};
 
-IMPLEMENT_IS_TYPE_B1 (Multi_measure_rest_engraver, Engraver);
 ADD_THIS_TRANSLATOR (Multi_measure_rest_engraver);
 
 Multi_measure_rest_engraver::Multi_measure_rest_engraver ()
 {
-  last_mom_ = 0;
-  multi_measure_req_l_ = 0;
-  mmrest_p_ = 0;
+  start_measure_i_ = 0;
+  mmrest_p_  = lastrest_p_ =0;
+  new_req_l_ = busy_span_req_l_ = stop_req_l_ =0;
 }
 
-bool
-Multi_measure_rest_engraver::do_try_request (Request* req_l)
+void
+Multi_measure_rest_engraver::acknowledge_element (Score_element_info i)
 {
-  if (!req_l->musical () || !req_l->musical ()->multi_measure ())
-    return false;
-
-  multi_measure_req_l_ = req_l->musical ()->multi_measure ();
-  last_mom_ = now_moment () + multi_measure_req_l_->duration_.length ();
-
-  return true;
+  if (Bar *c = dynamic_cast<Bar*> (i.elem_l_))
+    {
+      if (mmrest_p_)
+       mmrest_p_->add_column (c);
+      if (lastrest_p_)
+       lastrest_p_->add_column (c);
+    }
 }
 
-void
-Multi_measure_rest_engraver::do_removal_processing ()
+bool
+Multi_measure_rest_engraver::do_try_music (Music* req_l)
 {
-  if (mmrest_p_)
+  if (Span_req * sp = dynamic_cast<Span_req*> (req_l))
     {
-      typeset_element (mmrest_p_);
-      mmrest_p_ = 0;
+      if (sp->span_type_str_ == "rest")
+       {
+         if (sp->span_dir_ == STOP)
+           {
+             stop_req_l_ = sp;
+           }
+         else if (sp->span_dir_ == START && !new_req_l_)
+           {
+             new_req_l_ = sp;
+           }
+         return true;
+       }
     }
+  return false;
 }
 
-void
-Multi_measure_rest_engraver::do_process_requests ()
-{
-  if (mmrest_p_ || !multi_measure_req_l_)
-    return;
 
-  mmrest_p_ = new Multi_measure_rest;
 
-  Scalar prop = get_property ("part");
-  if (prop.isnum_b ()) 
-    part_b_ = prop.to_bool ();
+void
+Multi_measure_rest_engraver::do_process_music ()
+{
+  if (new_req_l_ && stop_req_l_)
+    stop_req_l_ = 0;
 
-//  if (!part_b_)
-//    return;
+  if (new_req_l_)
+    start_moment_ = now_mom ();
 
-  int measures_i = (int)multi_measure_req_l_->duration_.plet_.iso_i_;
-  if (part_b_)
-    mmrest_p_->measures_i_ = measures_i;
+  if (stop_req_l_)
+    {
+      busy_span_req_l_ =0;
+      stop_req_l_ = 0;
+    }
+  
+  if (new_req_l_)
+    {
+      busy_span_req_l_ = new_req_l_;
+      new_req_l_ =0;
+    }
 
-  announce_element (Score_elem_info (mmrest_p_, multi_measure_req_l_));
+  if (busy_span_req_l_ && !mmrest_p_)
+    {
+      mmrest_p_ = new Multi_measure_rest (SCM_EOL);
+      Staff_symbol_referencer_interface si (mmrest_p_);
+      si.set_interface ();
 
-  multi_measure_req_l_ = 0;
+      announce_element (Score_element_info (mmrest_p_, busy_span_req_l_));
+      start_measure_i_
+       = gh_scm2int (get_property ("currentBarNumber"));
+    }
 }
 
 void
 Multi_measure_rest_engraver::do_pre_move_processing ()
 {
-  if (!mmrest_p_)
-    return;
+  SCM smp = get_property ("measurePosition");
+  Moment mp =  (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
 
-  typeset_element (mmrest_p_);
-  mmrest_p_ = 0;
+  if (mmrest_p_ && (now_mom () >= start_moment_) 
+    && !mp
+    && (scm_ilength (mmrest_p_->get_elt_pointer ("columns")) >= 2))
+    {
+      typeset_element (mmrest_p_);
+      /*
+       must keep mmrest_p_ around to set measures_i_
+       */
+    }
+  if (lastrest_p_)
+    {
+      typeset_element (lastrest_p_);
+      lastrest_p_ = 0;
+    }
 
-  if (part_b_)
-    return;
+  if (new_req_l_)
+    {
+      busy_span_req_l_ = new_req_l_;
+      new_req_l_ =0;
+    }
+  
+}
 
-  if (last_mom_ <= now_moment () + Moment (1))
-    multi_measure_req_l_ = 0;
+void
+Multi_measure_rest_engraver::do_post_move_processing ()
+{
+  Moment now (now_mom ());
+  
+  
+  SCM smp = get_property ("measurePosition");
+  Moment mp =  (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
+  
+  if (mmrest_p_ && !mp)
+    {
+      lastrest_p_ = mmrest_p_;
+      int cur = gh_scm2int (get_property ("currentBarNumber"));
+      lastrest_p_->set_elt_property ("measure-count",
+                                    gh_int2scm (cur - start_measure_i_));
+      mmrest_p_ = 0;
+    }
 }
 
+
+void
+Multi_measure_rest_engraver::do_removal_processing ()
+{
+  if (mmrest_p_)
+    typeset_element (mmrest_p_);
+  if (lastrest_p_)
+    typeset_element (lastrest_p_);
+}