lily/beam-grav.cc

   1 /*
   2   beam-grav.cc -- implement Beam_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   7 */
   8 #include "duration-convert.hh"
   9 #include "time-description.hh"
  10 #include "beam-grav.hh"
  11 #include "stem.hh"
  12 #include "beam.hh"
  13 #include "musical-request.hh"
  14 #include "grouping.hh"
  15 #include "text-spanner.hh"
  16 #include "text-def.hh"
  17 #include "p-col.hh"
  18
  19 Beam_engraver::Beam_engraver()
  20 {
  21   span_reqs_drul_[LEFT] = span_reqs_drul_[RIGHT] =0;
  22   beam_p_ =0;
  23   current_grouping_p_ =0;
  24   plet_spanner_p_ =0;
  25 }
  26
  27 bool
  28 Beam_engraver::do_try_request(Request*r)
  29 {
  30   Musical_req* mus_l = r->musical();
  31   if (!mus_l)
  32     return false;
  33
  34   Beam_req * b = mus_l->beam();
  35
  36   if (!b)
  37     return false;
  38
  39   if (bool (beam_p_) == bool (b->spantype == Span_req::START))
  40     return false;
  41
  42   Direction d = (!beam_p_) ? LEFT : RIGHT;
  43   if (span_reqs_drul_[d] && !span_reqs_drul_[d]->equal_b (mus_l))
  44     return false;
  45
  46   span_reqs_drul_[d] = b;
  47   return true;
  48 }
  49
  50 void
  51 Beam_engraver::do_process_requests()
  52 {
  53   if ( !beam_p_ && span_reqs_drul_[LEFT])
  54     {
  55       current_grouping_p_ = new Rhythmic_grouping;
  56       beam_p_ = new Beam;
  57       if (span_reqs_drul_[LEFT]->nplet)
  58         {
  59           plet_spanner_p_ = new Text_spanner;
  60           Text_def *defp = new Text_def;
  61           plet_spanner_p_->set_support (beam_p_);
  62
  63           defp->align_i_ = 0;
  64           defp->text_str_ = span_reqs_drul_[LEFT]->nplet;
  65           defp->style_str_="italic";
  66           plet_spanner_p_->spec_p_  = defp;
  67           announce_element (Score_elem_info(plet_spanner_p_,0));
  68         }
  69
  70       Scalar prop = get_property ("beamslopedamping");
  71       if (prop.isnum_b ())
  72         {
  73           beam_p_->damping_i_ = prop;
  74         }
  75
  76       prop = get_property ("beamquantisaton");
  77       if (prop.isnum_b ())
  78         {
  79           beam_p_->quantisation_ = (Beam::Quantise)(int)prop;
  80         }
  81
  82       announce_element (Score_elem_info (beam_p_, span_reqs_drul_[LEFT]));
  83     }
  84 }
  85
  86 void
  87 Beam_engraver::do_pre_move_processing()
  88 {
  89   if (beam_p_ && span_reqs_drul_[RIGHT])
  90     {
  91       Rhythmic_grouping const * rg_C = get_staff_info().rhythmic_C_;
  92       rg_C->extend (current_grouping_p_->interval());
  93       beam_p_->set_grouping (*rg_C, *current_grouping_p_);
  94       typeset_element (beam_p_);
  95       beam_p_ = 0;
  96
  97       delete current_grouping_p_;
  98       current_grouping_p_ = 0;
  99
 100       span_reqs_drul_[RIGHT] =
 101         span_reqs_drul_[LEFT] = 0;
 102       if (plet_spanner_p_)
 103         {
 104           typeset_element (plet_spanner_p_);
 105           plet_spanner_p_ =0;
 106         }
 107     }
 108 }
 109
 110 void
 111 Beam_engraver::do_removal_processing()
 112 {
 113   if (beam_p_)
 114     {
 115       span_reqs_drul_[LEFT]->warning (_("unterminated beam"));
 116       typeset_element (beam_p_);
 117       beam_p_ =0;
 118     }
 119 }
 120
 121
 122 void
 123 Beam_engraver::acknowledge_element (Score_elem_info i)
 124 {
 125   if (!beam_p_ || !i.elem_l_->is_type_b (Stem::static_name ()))
 126     return;
 127
 128   Stem* s = (Stem*)i.elem_l_->item();
 129   Rhythmic_req *rhythmic_req = i.req_l_->musical ()->rhythmic ();
 130   if (rhythmic_req->duration_.durlog_i_<= 2)
 131     {
 132       rhythmic_req->warning (_("Stem doesn't fit in Beam"));
 133       return;
 134     }
 135
 136   /*
 137     TODO: do something sensible if it doesn't fit in the beam.
 138    */
 139   Moment start = get_staff_info().time_C_->whole_in_measure_;
 140
 141   if (!current_grouping_p_->child_fit_b (start))
 142     {
 143       String s (_("please fix me: Stem at ")
 144                 + String(now_moment ()) + _(" does not fit in beam"));
 145       if (i.req_l_)
 146         i.req_l_->warning(s);
 147       else
 148         warning (s);
 149     }
 150   else
 151     {
 152       current_grouping_p_->add_child (start, rhythmic_req->duration ());
 153       s->flag_i_ = rhythmic_req->duration_.durlog_i_;
 154       beam_p_->add (s);
 155     }
 156 }
 157 IMPLEMENT_IS_TYPE_B1(Beam_engraver, Engraver);
 158 ADD_THIS_TRANSLATOR(Beam_engraver);