* mf/feta-bolletjes.mf (overdone_heads): cleanup triangle

[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 598477b5f421a32e0f9ae6cb3cbbb78c7fda0e6f..1e89a14eccc626f1654c54327833112daffb9d80 100644 (file)
--- a/lily/multi-measure-rest-engraver.cc
+++ b/lily/multi-measure-rest-engraver.cc
@@ -5,15 +5,12 @@
        Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
-#include "event.hh"
 #include "multi-measure-rest.hh"
 #include "paper-column.hh"
 #include "engraver-group-engraver.hh"
 #include "side-position-interface.hh"
 #include "staff-symbol-referencer.hh"
-#include "engraver.hh"
 #include "moment.hh"
-#include "spanner.hh"
 
 /**
    The name says it all: make multi measure rests 
@@ -80,16 +77,20 @@ Multi_measure_rest_engraver::process_music ()
   if (rest_ev_ && !mmrest_
       && stop_moment_ > now_mom ())
     {
-      mmrest_ = make_spanner ("MultiMeasureRest");
+      mmrest_ = make_spanner ("MultiMeasureRest", rest_ev_->self_scm ());
+
+      Spanner *sp
+       = make_spanner ("MultiMeasureRestNumber", rest_ev_->self_scm () );
+      numbers_.push (sp);
 
       if (text_events_.size ())
        {
          for (int i = 0; i < text_events_.size (); i++)
            {
-             Spanner *sp
-               = make_spanner ("MultiMeasureRestText");
 
              Music* e = text_events_[i];
+             Spanner *sp
+               = make_spanner ("MultiMeasureRestText", e->self_scm () );
              SCM t = e->get_property ("text");
              SCM dir = e->get_property ("direction");
              sp->set_property ("text",t);
@@ -97,7 +98,6 @@ Multi_measure_rest_engraver::process_music ()
                sp->set_property ("direction",dir);
              
              numbers_.push (sp);
-             announce_grob (sp, e->self_scm ());
            }
 
          /*
@@ -108,7 +108,7 @@ Multi_measure_rest_engraver::process_music ()
            Grob *last =0;
            for (int i=0; i <numbers_.size (); i++)
              {
-               if (gh_int2scm (d) == numbers_[i]->get_property ("direction"))
+               if (scm_int2num (d) == numbers_[i]->get_property ("direction"))
                  {
                    if (last)
                      Side_position_interface::add_support (numbers_[i], last);
@@ -117,13 +117,6 @@ Multi_measure_rest_engraver::process_music ()
              }
          } while (flip (&d) != DOWN);
        }
-      else
-       {
-         Spanner *sp
-           = make_spanner ("MultiMeasureRestNumber");
-         numbers_.push (sp);
-         announce_grob (sp, rest_ev_->self_scm ());
-       }
 
       for (int i =0 ; i < numbers_.size (); i++)
        {
@@ -131,12 +124,11 @@ Multi_measure_rest_engraver::process_music ()
          numbers_[i]->set_parent (mmrest_, Y_AXIS);
        }
       
-      announce_grob (mmrest_, rest_ev_->self_scm ());
       start_measure_
-       = gh_scm2int (get_property ("currentBarNumber"));
+       = scm_to_int (get_property ("currentBarNumber"));
     }
 
-  bar_seen_ = gh_string_p (get_property ("whichBar"));
+  bar_seen_ = scm_is_string (get_property ("whichBar"));
 }
 
 void
@@ -179,38 +171,11 @@ Multi_measure_rest_engraver::stop_translation_timestep ()
     }
   
   
-  SCM smp = get_property ("measurePosition");
-  Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
-
-  if (mmrest_
-      && !mp.to_bool ()
-      && mmrest_->get_bound (LEFT) && mmrest_->get_bound (RIGHT))
-    {
-      typeset_grob (mmrest_);
-      for (int i = 0 ; i < numbers_.size (); i++)
-       {
-         typeset_grob (numbers_[i]);
-       }
-      
-      /*
-       we must keep mmrest_ around to set measure-count, so
-       no mmrest_ = 0 here. 
-       */
-    }
+  
+  Moment mp(robust_scm2moment (get_property ("measurePosition"),  Moment (0)));
 
   if (last_rest_)
     {
-      /* sanity check */
-      if (last_rest_->get_bound (LEFT) && last_rest_->get_bound (RIGHT)
-         && last_rest_->get_bound (LEFT) != last_rest_->get_bound (RIGHT))
-       {
-         typeset_grob (last_rest_);
-
-         for (int i = 0; i < last_numbers_.size ();i++)
-           {
-             typeset_grob (last_numbers_[i]);
-           }
-       }
       last_rest_ = 0;
       last_numbers_.clear ();
     }
@@ -228,10 +193,9 @@ Multi_measure_rest_engraver::start_translation_timestep ()
 
   bar_seen_ = false;
 
-  SCM smp = get_property ("measurePosition");
-  Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
+  Moment mp (robust_scm2moment (get_property ("measurePosition"),  Moment (0)));
 
-  Moment now =now_mom ();
+  Moment now = now_mom ();
   if (mmrest_
       && now.main_part_ != last_main_moment_
       && mp.main_part_ == Rational (0))
@@ -239,14 +203,14 @@ Multi_measure_rest_engraver::start_translation_timestep ()
       last_rest_ = mmrest_;
       last_numbers_ = numbers_;
       
-      int cur = gh_scm2int (get_property ("currentBarNumber"));
+      int cur = scm_to_int (get_property ("currentBarNumber"));
       int num = cur - start_measure_;
 
       /*
        We can't plug a markup directly into the grob, since the
        measure-count determines the formatting of the mmrest.
       */
-      last_rest_->set_property ("measure-count", gh_int2scm (num));
+      last_rest_->set_property ("measure-count", scm_int2num (num));
 
       SCM sml = get_property ("measureLength");
       Rational ml = (unsmob_moment (sml)) ? unsmob_moment (sml)->main_part_ : Rational (1);
@@ -263,15 +227,15 @@ Multi_measure_rest_engraver::start_translation_timestep ()
        {
          SCM thres = get_property ("restNumberThreshold");
          int t = 1;
-         if (gh_number_p (thres))
-           t = gh_scm2int (thres);
+         if (scm_is_number (thres))
+           t = scm_to_int (thres);
       
          if (num <= t)
            last->suicide ();
          else 
            {
              SCM text
-               = scm_number_to_string (gh_int2scm (num), SCM_MAKINUM (10));
+               = scm_number_to_string (scm_int2num (num), scm_from_int (10));
              last->set_property ("text", text);
            }
        }
@@ -283,21 +247,6 @@ Multi_measure_rest_engraver::start_translation_timestep ()
 void
 Multi_measure_rest_engraver::finalize ()
 {
-  if (mmrest_)
-    {
-      typeset_grob (mmrest_);
-    }
-  if (last_rest_)
-    {
-      typeset_grob (last_rest_);
-    }
-
-  for (int i = 0; i < last_numbers_.size ();i++)
-    typeset_grob (last_numbers_[i]);
-
-  for (int i = 0; i < numbers_.size ();i++)
-    typeset_grob (numbers_[i]);
-
 }
 
 ENTER_DESCRIPTION (Multi_measure_rest_engraver,