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 class Measure_grouping_engraver : public Engraver
  15 {
  16 public:
  17   TRANSLATOR_DECLARATIONS (Measure_grouping_engraver);
  18
  19 protected:
  20   Spanner *grouping_;
  21   Rational stop_grouping_mom_;
  22
  23   virtual void process_music ();
  24   virtual void finalize ();
  25   virtual void acknowledge_grob (Grob_info);
  26 };
  27
  28 void
  29 Measure_grouping_engraver::finalize ()
  30 {
  31   if (grouping_)
  32     {
  33       grouping_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
  34       grouping_->suicide ();
  35       grouping_ = 0;
  36     }
  37 }
  38
  39 void
  40 Measure_grouping_engraver::acknowledge_grob (Grob_info gi)
  41 {
  42   if (grouping_)
  43     {
  44       Side_position_interface::add_support (grouping_, gi.grob ());
  45     }
  46 }
  47
  48 void
  49 Measure_grouping_engraver::process_music ()
  50 {
  51   Moment now = now_mom ();
  52   if (grouping_ && now.main_part_ >= stop_grouping_mom_ && !now.grace_part_)
  53     {
  54       grouping_->set_bound (RIGHT,
  55                             unsmob_grob (get_property ("currentMusicalColumn")));
  56
  57       grouping_ = 0;
  58     }
  59
  60   if (now.grace_part_)
  61     return;
  62
  63   SCM grouping = get_property ("beatGrouping");
  64   if (scm_is_pair (grouping))
  65     {
  66       Moment *measpos = unsmob_moment (get_property ("measurePosition"));
  67       Rational mp = measpos->main_part_;
  68
  69       Moment *beatlen = unsmob_moment (get_property ("beatLength"));
  70       Rational bl = beatlen->main_part_;
  71
  72       Rational where (0);
  73       for (SCM s = grouping; scm_is_pair (s);
  74            where += Rational ((int) scm_to_int (scm_car (s))) * bl,
  75              s = scm_cdr (s))
  76         {
  77           int grouplen = scm_to_int (scm_car (s));
  78           if (where == mp)
  79             {
  80               if (grouping_)
  81                 {
  82                   programming_error ("last grouping not finished yet");
  83                   continue;
  84                 }
  85
  86               grouping_ = make_spanner ("MeasureGrouping", SCM_EOL);
  87               grouping_->set_bound (LEFT, unsmob_grob (get_property ("currentMusicalColumn")));
  88
  89               stop_grouping_mom_ = now.main_part_ + Rational (grouplen - 1) * bl;
  90               get_global_context ()->add_moment_to_process (Moment (stop_grouping_mom_));
  91
  92               if (grouplen == 3)
  93                 grouping_->set_property ("style", ly_symbol2scm ("triangle"));
  94               else
  95                 grouping_->set_property ("style", ly_symbol2scm ("bracket"));
  96
  97               break;
  98             }
  99         }
 100     }
 101 }
 102 Measure_grouping_engraver::Measure_grouping_engraver ()
 103 {
 104   grouping_ = 0;
 105 }
 106
 107 ADD_TRANSLATOR (Measure_grouping_engraver,
 108                 /* descr */ "Creates MeasureGrouping to indicate beat subdivision.",
 109                 /* creats*/ "MeasureGrouping",
 110                 /* accepts */ "",
 111                 /* acks  */ "note-column-interface",
 112                 /* reads */ "beatGrouping beatLength measurePosition currentMusicalColumn",
 113                 /* write */ "");