lily/measure-grouping-engraver.cc

   1 /*
   2   measure-grouping-engraver.cc -- implement Measure_grouping_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2002--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "warn.hh"
  10 #include "side-position-interface.hh"
  11 #include "global-context.hh"
  12 #include "engraver.hh"
  13
  14 #include "translator.icc"
  15
  16 class Measure_grouping_engraver : public Engraver
  17 {
  18 public:
  19   TRANSLATOR_DECLARATIONS (Measure_grouping_engraver);
  20
  21 protected:
  22   Spanner *grouping_;
  23   Rational stop_grouping_mom_;
  24
  25   void process_music ();
  26   virtual void finalize ();
  27   DECLARE_ACKNOWLEDGER (note_column);
  28 };
  29
  30 void
  31 Measure_grouping_engraver::finalize ()
  32 {
  33   if (grouping_)
  34     {
  35       grouping_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
  36       grouping_->suicide ();
  37       grouping_ = 0;
  38     }
  39 }
  40
  41 void
  42 Measure_grouping_engraver::acknowledge_note_column (Grob_info gi)
  43 {
  44   if (grouping_)
  45     {
  46       Side_position_interface::add_support (grouping_, gi.grob ());
  47     }
  48 }
  49
  50 void
  51 Measure_grouping_engraver::process_music ()
  52 {
  53   Moment now = now_mom ();
  54   if (grouping_ && now.main_part_ >= stop_grouping_mom_ && !now.grace_part_)
  55     {
  56       grouping_->set_bound (RIGHT,
  57                             unsmob_grob (get_property ("currentMusicalColumn")));
  58
  59       grouping_ = 0;
  60     }
  61
  62   if (now.grace_part_)
  63     return;
  64
  65   SCM grouping = get_property ("beatGrouping");
  66   if (scm_is_pair (grouping))
  67     {
  68       Moment *measpos = unsmob_moment (get_property ("measurePosition"));
  69       Rational mp = measpos->main_part_;
  70
  71       Moment *beatlen = unsmob_moment (get_property ("beatLength"));
  72       Rational bl = beatlen->main_part_;
  73
  74       Rational where (0);
  75       for (SCM s = grouping; scm_is_pair (s);
  76            where += Rational ((int) scm_to_int (scm_car (s))) * bl,
  77              s = scm_cdr (s))
  78         {
  79           int grouplen = scm_to_int (scm_car (s));
  80           if (where == mp)
  81             {
  82               if (grouping_)
  83                 {
  84                   programming_error ("last grouping not finished yet");
  85                   continue;
  86                 }
  87
  88               grouping_ = make_spanner ("MeasureGrouping", SCM_EOL);
  89               grouping_->set_bound (LEFT, unsmob_grob (get_property ("currentMusicalColumn")));
  90
  91               stop_grouping_mom_ = now.main_part_ + Rational (grouplen - 1) * bl;
  92               get_global_context ()->add_moment_to_process (Moment (stop_grouping_mom_));
  93
  94               if (grouplen == 3)
  95                 grouping_->set_property ("style", ly_symbol2scm ("triangle"));
  96               else
  97                 grouping_->set_property ("style", ly_symbol2scm ("bracket"));
  98
  99               break;
 100             }
 101         }
 102     }
 103 }
 104
 105 Measure_grouping_engraver::Measure_grouping_engraver ()
 106 {
 107   grouping_ = 0;
 108 }
 109
 110 ADD_ACKNOWLEDGER (Measure_grouping_engraver, note_column);
 111 ADD_TRANSLATOR (Measure_grouping_engraver,
 112                 /* doc */ "Creates MeasureGrouping to indicate beat subdivision.",
 113                 /* create */ "MeasureGrouping",
 114                 /* accept */ "",
 115                 /* read */ "beatGrouping beatLength measurePosition currentMusicalColumn",
 116                 /* write */ "");