* scm/titling.scm (default-score-title): remove caps for piece.

[lilypond.git] / lily / chord-tremolo-engraver.cc

diff --git a/lily/chord-tremolo-engraver.cc b/lily/chord-tremolo-engraver.cc
index a67946fe7b236e813ea9e29f7d5349300ad6b7f9..41b5448fcd2a21a73dbe2d2af8ef0836d8b76e72 100644 (file)
--- a/lily/chord-tremolo-engraver.cc
+++ b/lily/chord-tremolo-engraver.cc
@@ -1,11 +1,11 @@
 /*   
-  new-chord-tremolo-engraver.cc --  implement Chord_tremolo_engraver
+     new-chord-tremolo-engraver.cc --  implement Chord_tremolo_engraver
   
-  source file of the GNU LilyPond music typesetter
+     source file of the GNU LilyPond music typesetter
   
-  (c) 2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+     (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
- */
+*/
 
 #include "engraver.hh"
 #include "beam.hh"
@@ -26,23 +26,23 @@
 
 /**
 
-  This acknowledges repeated music with "tremolo" style.  It typesets
-  a beam.
+This acknowledges repeated music with "tremolo" style.  It typesets
+a beam.
 
-  TODO:
+TODO:
 
-  - perhaps use engraver this to steer other engravers? That would
-  create dependencies between engravers, which is bad.
+- perhaps use engraver this to steer other engravers? That would
+create dependencies between engravers, which is bad.
 
-  - create dots if appropriate.
+- create dots if appropriate.
 
-  - create TremoloBeam iso Beam?
+- create TremoloBeam iso Beam?
 
 */
 class Chord_tremolo_engraver : public Engraver
 {
   void typeset_beam ();
-  TRANSLATOR_DECLARATIONS(Chord_tremolo_engraver);
+  TRANSLATOR_DECLARATIONS (Chord_tremolo_engraver);
 protected:
   Repeated_music * repeat_;
 
@@ -82,7 +82,7 @@ Chord_tremolo_engraver::try_music (Music * m)
 {
   Repeated_music * rp = dynamic_cast<Repeated_music*> (m);
   if (rp
-      && rp->get_mus_property ("iterator-ctor") == Chord_tremolo_iterator::constructor_proc
+      && rp->get_property ("iterator-ctor") == Chord_tremolo_iterator::constructor_proc
       && !repeat_) 
     {
       Moment l = rp->get_length ();
@@ -119,31 +119,16 @@ Chord_tremolo_engraver::try_music (Music * m)
 void
 Chord_tremolo_engraver::process_music ()
 {
-  if (repeat_)
+  if (repeat_ && sequential_body_b_ && !beam_)
     {
-      if (sequential_body_b_ && !beam_)
-       {
-         beam_ = new Spanner (get_property ("Beam"));
-         beam_->set_grob_property ("chord-tremolo", SCM_BOOL_T);
-
-         SCM smp = get_property ("measurePosition");
-         Moment mp
-           = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
-         beam_start_location_ = mp;
-         announce_grob(beam_, repeat_->self_scm());
-       }
-      else if (!sequential_body_b_ && !stem_tremolo_)
-       {
-         if (flags_)
-           {
-             stem_tremolo_ = new Item (get_property ("StemTremolo"));
-             announce_grob(stem_tremolo_, repeat_->self_scm());
-             stem_tremolo_->set_grob_property ("flag-count",
-                                               scm_int2num (flags_));
-           }
-       }
+      beam_ = make_spanner ("Beam", repeat_->self_scm ());
+      beam_->set_property ("chord-tremolo", SCM_BOOL_T);
+
+      SCM smp = 
+      beam_start_location_ = robust_scm2moment (get_property ("measurePosition"), Moment (0));
     }
 }
+
 void
 Chord_tremolo_engraver::finalize ()
 {
@@ -158,11 +143,7 @@ Chord_tremolo_engraver::finalize ()
 void
 Chord_tremolo_engraver::typeset_beam ()
 {
-  if (finished_beam_)
-    {
-      typeset_grob (finished_beam_);
-      finished_beam_ = 0;
-    }
+  finished_beam_ = 0;
 }
 
 void
@@ -172,14 +153,14 @@ Chord_tremolo_engraver::acknowledge_grob (Grob_info info)
     {
       Grob * s = info.grob_;
 
-      if (start_mom_ == now_mom())
+      if (start_mom_ == now_mom ())
        Stem::set_beaming (s, flags_, RIGHT);
       else
        Stem::set_beaming (s, flags_, LEFT);
          
       if (Stem::duration_log (s) != 1)
        {
-         beam_->set_grob_property ("gap-count", gh_int2scm (flags_ - total_duration_flags_));
+         beam_->set_property ("gap-count", scm_int2num (flags_ - total_duration_flags_));
        }
 
       if (info.music_cause ()->is_mus_type ("rhythmic-event"))
@@ -195,10 +176,15 @@ Chord_tremolo_engraver::acknowledge_grob (Grob_info info)
            ::warning (s);
        }
     }
-  else if (stem_tremolo_ && Stem::has_interface (info.grob_))
+  else if (repeat_ &&
+          flags_ && !sequential_body_b_ && Stem::has_interface (info.grob_))
     {
-       Stem_tremolo::set_stem (stem_tremolo_, info.grob_);
-       stem_tremolo_->set_parent (info.grob_,X_AXIS);
+      stem_tremolo_ = make_item ("StemTremolo", repeat_->self_scm ());
+      stem_tremolo_->set_property ("flag-count",
+                                  scm_int2num (flags_));
+      stem_tremolo_->set_property ("stem",
+                                  info.grob_->self_scm ());
+      stem_tremolo_->set_parent (info.grob_, X_AXIS);
     }
 }
 
@@ -218,18 +204,20 @@ Chord_tremolo_engraver::start_translation_timestep ()
 void
 Chord_tremolo_engraver::stop_translation_timestep ()
 {
-  typeset_beam ();
-
   if (stem_tremolo_)
     {
-      typeset_grob (stem_tremolo_);
+      repeat_ = 0;
+      if (beam_)
+       programming_error ("Huh, beam and stem tremolo?");
       stem_tremolo_ = 0;
     }
+
+  typeset_beam ();
 }
 
 
 
-ENTER_DESCRIPTION(Chord_tremolo_engraver,
+ENTER_DESCRIPTION (Chord_tremolo_engraver,
 /* descr */       "Generates beams for  tremolo repeats.",
 /* creats*/       "Beam",
 /* accepts */     "repeated-music",