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     current_grouping_p_ = new Rhythmic_grouping;
  55     beam_p_ = new Beam;
  56     if (span_reqs_drul_[LEFT]->nplet)
  57       {
  58         plet_spanner_p_ = new Text_spanner();
  59         Text_def *defp = new Text_def;
  60         plet_spanner_p_->set_support (beam_p_);
  61
  62         // ugh
  63         plet_spanner_p_->set_bounds (LEFT, get_staff_info ().command_pcol_l ());
  64
  65         defp->align_i_ = 0;
  66         defp->text_str_ = span_reqs_drul_[LEFT]->nplet;
  67         defp->style_str_="italic";
  68         plet_spanner_p_->spec_p_  = defp;
  69         announce_element (Score_elem_info(plet_spanner_p_,0));
  70       }
  71
  72       Scalar prop = get_property ("beamslopedamping");
  73       if (prop.isnum_b ())
  74       {
  75         beam_p_->damping_i_ = prop;
  76       }
  77
  78       prop = get_property ("beamquantisaton");
  79       if (prop.isnum_b ())
  80       {
  81         beam_p_->quantisation_ = (Beam::Quantise)(int)prop;
  82       }
  83
  84     announce_element (Score_elem_info (beam_p_, span_reqs_drul_[LEFT]));
  85   }
  86 }
  87
  88 void
  89 Beam_engraver::do_pre_move_processing()
  90 {
  91   if (beam_p_ && span_reqs_drul_[RIGHT])
  92     {
  93       Rhythmic_grouping const * rg_C = get_staff_info().rhythmic_C_;
  94       rg_C->extend (current_grouping_p_->interval());
  95       beam_p_->set_grouping (*rg_C, *current_grouping_p_);
  96       typeset_element (beam_p_);
  97       beam_p_ = 0;
  98
  99       delete current_grouping_p_;
 100       current_grouping_p_ = 0;
 101
 102       span_reqs_drul_[RIGHT] =
 103         span_reqs_drul_[LEFT] = 0;
 104       if (plet_spanner_p_)
 105         {
 106           typeset_element (plet_spanner_p_);
 107           plet_spanner_p_ =0;
 108         }
 109     }
 110 }
 111
 112 void
 113 Beam_engraver::do_removal_processing()
 114 {
 115   if (beam_p_)
 116     {
 117       span_reqs_drul_[LEFT]->warning (_("unterminated beam"));
 118       typeset_element (beam_p_);
 119       beam_p_ =0;
 120     }
 121 }
 122
 123
 124 void
 125 Beam_engraver::acknowledge_element (Score_elem_info i)
 126 {
 127   if (!beam_p_ || !i.elem_l_->is_type_b (Stem::static_name ()))
 128     return;
 129
 130   Stem* s = (Stem*)i.elem_l_->item();
 131   Rhythmic_req *rhythmic_req = i.req_l_->musical ()->rhythmic ();
 132   if (rhythmic_req->duration_.durlog_i_<= 2)
 133     {
 134       rhythmic_req->warning (_("Stem doesn't fit in Beam"));
 135       return;
 136     }
 137
 138   /*
 139     TODO: do something sensible if it doesn't fit in the beam.
 140    */
 141   Moment start = get_staff_info().time_C_->whole_in_measure_;
 142
 143   if (!current_grouping_p_->child_fit_b (start))
 144     {
 145       String s (_("please fix me: Stem at ")
 146                 + String(now_moment ()) + _(" does not fit in beam"));
 147       if (i.req_l_)
 148         i.req_l_->warning(s);
 149       else
 150         warning (s);
 151     }
 152   else
 153     {
 154       current_grouping_p_->add_child (start, rhythmic_req->duration ());
 155       s->flag_i_ = rhythmic_req->duration_.durlog_i_;
 156       beam_p_->add (s);
 157     }
 158 }
 159 IMPLEMENT_IS_TYPE_B1(Beam_engraver, Engraver);
 160 ADD_THIS_TRANSLATOR(Beam_engraver);