lily/beam-engraver.cc

   1 /*
   2   beam-engraver.cc --  implement Beam_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "beam-engraver.hh"
  11 #include "musical-request.hh"
  12 #include "beam.hh"
  13 #include "rhythmic-grouping.hh"
  14 #include "stem.hh"
  15 #include "warn.hh"
  16 #include "time-description.hh"
  17
  18 Beam_engraver::Beam_engraver ()
  19 {
  20   beam_p_ = 0;
  21   finished_beam_p_ =0;
  22   finished_grouping_p_ = 0;
  23   grouping_p_ =0;
  24   reqs_drul_[LEFT] = reqs_drul_[RIGHT] =0;
  25   prev_start_req_ =0;
  26 }
  27
  28 bool
  29 Beam_engraver::do_try_music (Music *m)
  30 {
  31   if (Beam_req * c = dynamic_cast<Beam_req*>(m))
  32     {
  33       Direction d =c->spantype_;
  34
  35       if (d == STOP && !beam_p_)
  36         {
  37           m->warning (_ ("No Beam to end"));
  38           return false;
  39         }
  40       reqs_drul_[d ] = c;
  41       return true;
  42     }
  43   return false;
  44 }
  45
  46
  47 void
  48 Beam_engraver::do_process_requests ()
  49 {
  50   if (reqs_drul_[STOP])
  51     {
  52       if (!beam_p_)
  53         reqs_drul_[STOP]->warning (_("No beam to end"));
  54       prev_start_req_ =0;
  55       finished_beam_p_ = beam_p_;
  56       finished_grouping_p_ = grouping_p_;
  57
  58       beam_p_ = 0;
  59       grouping_p_ = 0;
  60     }
  61
  62   if (reqs_drul_[START])
  63     {
  64       if (beam_p_)
  65         {
  66           reqs_drul_[START]->warning (_ ("Already have a Beam"));
  67           return;
  68         }
  69
  70       beam_p_ = new Beam;
  71       grouping_p_ = new Rhythmic_grouping;
  72
  73       Scalar prop = get_property ("beamslopedamping", 0);
  74       if (prop.isnum_b ())
  75         beam_p_->damping_i_ = prop;
  76
  77       prop = get_property ("beamquantisation", 0);
  78       if (prop.isnum_b ())
  79         beam_p_->quantisation_ = (Beam::Quantisation)(int)prop;
  80
  81       // must set minVerticalAlign == maxVerticalAlign to get sane results
  82       // see input/test/beam-interstaff.ly
  83       prop = get_property ("minVerticalAlign", 0);
  84       if (prop.isnum_b ())
  85         beam_p_->vertical_align_drul_[MIN] = prop;
  86
  87       prop = get_property ("maxVerticalAlign", 0);
  88       if (prop.isnum_b ())
  89         beam_p_->vertical_align_drul_[MAX] = prop;
  90
  91       announce_element (Score_element_info (beam_p_, reqs_drul_[START]));
  92     }
  93 }
  94
  95 void
  96 Beam_engraver::typeset_beam ()
  97 {
  98   if (finished_beam_p_)
  99     {
 100       Rhythmic_grouping const * rg_C = get_staff_info().rhythmic_C_;
 101       rg_C->extend (finished_grouping_p_->interval());
 102       finished_beam_p_->set_grouping (*rg_C, *finished_grouping_p_);
 103       typeset_element (finished_beam_p_);
 104       finished_beam_p_ = 0;
 105
 106       delete finished_grouping_p_;
 107       finished_grouping_p_= 0;
 108
 109       reqs_drul_[STOP] = 0;
 110     }
 111 }
 112
 113 void
 114 Beam_engraver::do_post_move_processing ()
 115 {
 116   if (reqs_drul_[START])
 117     {
 118       prev_start_req_ = reqs_drul_[START];
 119       reqs_drul_ [START] =0;
 120     }
 121 }
 122
 123 void
 124 Beam_engraver::do_pre_move_processing ()
 125 {
 126   typeset_beam ();
 127 }
 128
 129 void
 130 Beam_engraver::do_removal_processing ()
 131 {
 132   typeset_beam ();
 133   if (beam_p_)
 134     {
 135       prev_start_req_->warning (_ ("Unfinished beam"));
 136       finished_beam_p_ = beam_p_;
 137       finished_grouping_p_ = grouping_p_;
 138       typeset_beam ();
 139     }
 140 }
 141
 142 void
 143 Beam_engraver::acknowledge_element (Score_element_info info)
 144 {
 145     if (beam_p_)
 146       {
 147         Stem* stem_l = dynamic_cast<Stem *> (info.elem_l_);
 148         if (!stem_l)
 149           return;
 150
 151
 152         Rhythmic_req *rhythmic_req = dynamic_cast <Rhythmic_req *> (info.req_l_);
 153         if (!rhythmic_req)
 154           {
 155             String s = _ ("Stem must have Rhythmic structure.");
 156             if (info.req_l_)
 157               info.req_l_->warning (s);
 158             else
 159               ::warning (s);
 160
 161             return;
 162           }
 163
 164
 165         if (rhythmic_req->duration_.durlog_i_<= 2)
 166           {
 167             rhythmic_req->warning (_ ("stem doesn't fit in beam"));
 168             reqs_drul_[LEFT]->warning (_ ("beam was started here"));
 169             return;
 170           }
 171
 172         /*
 173           TODO: do something sensible if it doesn't fit in the beam.
 174         */
 175         Moment start = get_staff_info().time_C_->whole_in_measure_;
 176
 177         if (!grouping_p_->child_fit_b (start))
 178           {
 179             String s (_ ("please fix me") + ": "
 180                       + _f ("stem at %s doesn't fit in beam", now_mom ().str ()));
 181
 182             if (info.req_l_)
 183               info.req_l_->warning(s);
 184             else
 185               warning (s);
 186           }
 187         else
 188           {
 189             grouping_p_->add_child (start, rhythmic_req->length_mom ());
 190             stem_l->flag_i_ = rhythmic_req->duration_.durlog_i_;
 191             beam_p_->add_stem (stem_l);
 192           }
 193       }
 194 }
 195
 196
 197
 198 ADD_THIS_TRANSLATOR(Beam_engraver);