lily/tuplet-engraver.cc

   1 /*
   2   tuplet-engraver.cc --  implement Tuplet_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "tuplet-bracket.hh"
  11 #include "note-column.hh"
  12 #include "beam.hh"
  13 #include "engraver.hh"
  14 #include "spanner.hh"
  15
  16 struct Tuplet_description
  17 {
  18   Music *music_;
  19   Rational stop_;
  20   Rational span_stop_;
  21   Spanner *spanner_;
  22   Tuplet_description()
  23   {
  24     music_ = 0;
  25     spanner_ = 0;
  26   }
  27 };
  28
  29 class Tuplet_engraver : public Engraver
  30 {
  31 public:
  32   TRANSLATOR_DECLARATIONS (Tuplet_engraver);
  33
  34 protected:
  35   Array<Tuplet_description> tuplets_;
  36
  37   virtual void acknowledge_grob (Grob_info);
  38   virtual bool try_music (Music*r);
  39   virtual void start_translation_timestep ();
  40   virtual void process_music ();
  41 };
  42
  43 bool
  44 Tuplet_engraver::try_music (Music *music)
  45 {
  46   if (music->is_mus_type ("time-scaled-music"))
  47     {
  48       Music *el = unsmob_music (music->get_property ("element"));
  49       if (el && !el->is_mus_type ("event-chord"))
  50         {
  51           Tuplet_description d;
  52           d.music_ = music;
  53           d.stop_  = now_mom ().main_part_ + music->get_length ().main_part_;
  54           d.span_stop_ = d.stop_;
  55
  56           SCM s = get_property ("tupletSpannerDuration");
  57           if (unsmob_moment (s))
  58             d.span_stop_ = d.span_stop_ <? (now_mom () + *unsmob_moment (s)).main_part_;
  59
  60           tuplets_.push (d);
  61         }
  62       return true;
  63     }
  64   return false;
  65 }
  66
  67 void
  68 Tuplet_engraver::process_music ()
  69 {
  70   for (int i = 0; i < tuplets_.size (); i++)
  71     {
  72       if (tuplets_[i].spanner_)
  73         continue;
  74
  75       Spanner* spanner = make_spanner ("TupletBracket",
  76                                        tuplets_[i].music_->self_scm ());
  77       tuplets_[i].spanner_ = spanner;
  78
  79       SCM proc = get_property ("tupletNumberFormatFunction");
  80       if (ly_c_procedure_p (proc))
  81         {
  82           SCM t = scm_apply_0 (proc, scm_list_1 (tuplets_[i].music_->self_scm ()));
  83           spanner->set_property ("text", t);
  84         }
  85     }
  86 }
  87
  88 void
  89 Tuplet_engraver::acknowledge_grob (Grob_info i)
  90 {
  91   if (Note_column::has_interface (i.grob_))
  92     {
  93       for (int j = 0; j < tuplets_.size (); j++)
  94         if (tuplets_[j].spanner_)
  95           Tuplet_bracket::add_column (tuplets_[j].spanner_,
  96                                       dynamic_cast<Item*> (i.grob_));
  97     }
  98 }
  99
 100 void
 101 Tuplet_engraver::start_translation_timestep ()
 102 {
 103   Moment now = now_mom ();
 104
 105   Moment tsd;
 106   SCM s = get_property ("tupletSpannerDuration");
 107   if (unsmob_moment (s))
 108     tsd = unsmob_moment (s)->main_part_;
 109
 110   for (int i = tuplets_.size (); i--;)
 111     {
 112       if (now.main_part_ >= tuplets_[i].span_stop_)
 113         {
 114           if (Spanner *sp = tuplets_[i].spanner_)
 115             {
 116               if (!sp->get_bound (RIGHT))
 117                 sp->set_bound (RIGHT, sp->get_bound (LEFT));
 118
 119               tuplets_[i].spanner_ = 0;
 120             }
 121
 122           if (tsd.to_bool ())
 123             tuplets_[i].span_stop_ += tsd.main_part_;
 124         }
 125
 126       if (now.main_part_ >= tuplets_[i].stop_)
 127         {
 128           tuplets_.del (i);
 129         }
 130     }
 131 }
 132
 133 Tuplet_engraver::Tuplet_engraver ()
 134 {
 135 }
 136
 137 ADD_TRANSLATOR (Tuplet_engraver,
 138 /* descr */       "Catch Time_scaled_music and generate appropriate bracket  ",
 139 /* creats*/       "TupletBracket",
 140 /* accepts */     "time-scaled-music",
 141 /* acks  */      "note-column-interface",
 142 /* reads */       "tupletNumberFormatFunction tupletSpannerDuration",
 143 /* write */       "");