* lily/include/lily-guile.hh: is_x -> ly_c_X_p naming.

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

diff --git a/lily/tuplet-engraver.cc b/lily/tuplet-engraver.cc
index 4c67c67f112f8143534c0c4f1979bdb5dc4a8a9a..6ec076d044256679622fc8898970dea67b5f8bf5 100644 (file)
--- a/lily/tuplet-engraver.cc
+++ b/lily/tuplet-engraver.cc
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 1998--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
@@ -20,7 +20,7 @@
 class Tuplet_engraver : public Engraver
 {
 public:
-  TRANSLATOR_DECLARATIONS(Tuplet_engraver);
+  TRANSLATOR_DECLARATIONS (Tuplet_engraver);
 
 protected:
   Link_array<Music> time_scaled_musics_;
@@ -44,7 +44,7 @@ Tuplet_engraver::try_music (Music *c)
 {
   if (c->is_mus_type ("time-scaled-music"))
     {
-      Music *el = unsmob_music (c->get_mus_property ("element"));
+      Music *el = unsmob_music (c->get_property ("element"));
       if (el && !el->is_mus_type ("event-chord"))
        {
          time_scaled_musics_.push (c);
@@ -65,16 +65,12 @@ Tuplet_engraver::try_music (Music *c)
 void
 Tuplet_engraver::process_acknowledged_grobs ()
 {
-  SCM v = get_property ("tupletInvisible");
-  if (to_boolean (v))
-    return;
-
   for (int i= 0; i < time_scaled_musics_.size (); i++)
     {
       if (i < started_spanners_.size () && started_spanners_[i])
        continue;
 
-      Spanner* glep = new Spanner (get_property ("TupletBracket"));
+      Spanner* glep = make_spanner ("TupletBracket");
 
       if (i >= started_spanners_.size ())
        started_spanners_.push (glep);
@@ -83,13 +79,13 @@ Tuplet_engraver::process_acknowledged_grobs ()
       
 
       SCM proc = get_property ("tupletNumberFormatFunction");
-      if (gh_procedure_p (proc))
+      if (ly_c_procedure_p (proc))
        {
-         SCM t = gh_apply (proc, scm_list_n (time_scaled_musics_[i]->self_scm (), SCM_UNDEFINED));
-         glep->set_grob_property ("text", t);
+         SCM t = scm_apply_0 (proc, scm_list_n (time_scaled_musics_[i]->self_scm (), SCM_UNDEFINED));
+         glep->set_property ("text", t);
        }
       
-      announce_grob(glep, time_scaled_musics_ [i]->self_scm());
+      announce_grob (glep, time_scaled_musics_ [i]->self_scm ());
     }
 }
 
@@ -118,9 +114,13 @@ Tuplet_engraver::start_translation_timestep ()
     {
       if (now.main_part_ >= span_stop_moments_[i])
        {
-         if (started_spanners_[i])
+         if (Spanner *sp = started_spanners_[i])
            {
-             typeset_grob (started_spanners_[i]);
+             if (!sp->get_bound (RIGHT))
+               sp->set_bound (RIGHT, sp->get_bound (LEFT));
+             
+             typeset_grob (sp);
+
              started_spanners_[i] =0;
            }
          
@@ -150,12 +150,12 @@ Tuplet_engraver::finalize ()
 
 
 
-Tuplet_engraver::Tuplet_engraver(){}
+Tuplet_engraver::Tuplet_engraver (){}
 
-ENTER_DESCRIPTION(Tuplet_engraver,
+ENTER_DESCRIPTION (Tuplet_engraver,
 /* descr */       "Catch Time_scaled_music and generate appropriate bracket  ",
 /* creats*/       "TupletBracket",
 /* accepts */     "time-scaled-music",
 /* acks  */      "note-column-interface",
-/* reads */       "tupletNumberFormatFunction tupletSpannerDuration tupletInvisible",
+/* reads */       "tupletNumberFormatFunction tupletSpannerDuration",
 /* write */       "");