lily/stem-beam-reg.cc

   1 /*
   2   stem-beam-reg.cc -- part of LilyPond
   3
   4   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   5 */
   6
   7 #include "musical-request.hh"
   8 #include "stem-beam-reg.hh"
   9 #include "beam.hh"
  10 #include "stem.hh"
  11 #include "grouping.hh"
  12 #include "text-spanner.hh"
  13 #include "complex-walker.hh"
  14 #include "complex-staff.hh"
  15 #include "debug.hh"
  16 #include "grouping.hh"
  17 #include "notehead.hh"
  18
  19 Stem_beam_register::Stem_beam_register()
  20 {
  21     post_move_processing();
  22
  23     current_grouping = 0;
  24     beam_p_ = 0;
  25     default_dir_i_ =0;
  26     start_req_l_ = 0;
  27 }
  28
  29 bool
  30 Stem_beam_register::try_request(Request*req_l)
  31 {
  32     if ( req_l->beam() ) {
  33         if (bool(beam_p_ ) == bool(req_l->beam()->spantype == Span_req::START))
  34             return false;
  35
  36         if (beam_req_l_ && Beam_req::compare(*beam_req_l_ , *req_l->beam()))
  37             return false;
  38
  39         beam_req_l_ = req_l->beam();
  40         return true;
  41     }
  42
  43     if ( req_l->stem() ) {
  44         if (current_grouping && !current_grouping->child_fit_b(
  45             get_staff_info().time_C_->whole_in_measure_))
  46             return false;
  47
  48         if (stem_req_l_ && Stem_req::compare(*stem_req_l_, *req_l->stem()))
  49             return false;
  50
  51         stem_req_l_ = req_l->stem();
  52         return true;
  53     }
  54     return false;
  55 }
  56
  57 void
  58 Stem_beam_register::process_requests()
  59 {
  60     if (beam_req_l_) {
  61         if (beam_req_l_->spantype == Span_req::STOP) {
  62             end_beam_b_ = true;
  63             start_req_l_ = 0;
  64         } else {
  65             beam_p_ = new Beam;
  66             start_req_l_ = beam_req_l_;
  67
  68             current_grouping = new Rhythmic_grouping;
  69             if (beam_req_l_->nplet) {
  70                 Text_spanner* t = new Text_spanner();
  71                 t->set_support(beam_p_);
  72                 t->spec.align_i_ = 0;
  73                 t->spec.text_str_ = beam_req_l_->nplet;
  74                 t->spec.style_str_="italic";
  75                 typeset_element(t);
  76             }
  77
  78         }
  79     }
  80
  81     if (stem_req_l_) {
  82         stem_p_ = new Stem(4);
  83         if (current_grouping)
  84             current_grouping->add_child(
  85                 get_staff_info().time_C_->whole_in_measure_,
  86                 stem_req_l_->duration());
  87
  88         stem_p_->flag_i_ = stem_req_l_->duration_.type_i_;
  89
  90         if (beam_p_) {
  91             if (stem_req_l_->duration_.type_i_<= 4)
  92                 stem_req_l_->warning( "stem doesn't fit in Beam");
  93             else
  94                 beam_p_->add(stem_p_);
  95             stem_p_->print_flag_b_ = false;
  96         } else {
  97             stem_p_->print_flag_b_ = true;
  98         }
  99
 100         announce_element(Staff_elem_info(stem_p_, stem_req_l_));
 101     }
 102 }
 103
 104 void
 105 Stem_beam_register::acknowledge_element(Staff_elem_info info)
 106 {
 107     if (!stem_p_)
 108         return;
 109
 110     if (info.elem_l_->name() == Notehead::static_name() &&
 111         stem_req_l_->duration() == info.req_l_->rhythmic()->duration()){
 112         Notehead * n_l= (Notehead*)info.elem_l_;
 113         stem_p_->add(n_l);
 114     }
 115 }
 116 void
 117 Stem_beam_register::pre_move_processing()
 118 {
 119     if (stem_p_) {
 120         if (default_dir_i_)
 121             stem_p_->dir_i_ = default_dir_i_;
 122
 123         typeset_element(stem_p_);
 124         stem_p_ = 0;
 125     }
 126     if (beam_p_ && end_beam_b_) {
 127         Rhythmic_grouping const * rg_C = get_staff_info().rhythmic_C_;
 128         rg_C->extend(current_grouping->interval());
 129         beam_p_->set_grouping(*rg_C, *current_grouping);
 130         typeset_element(beam_p_);
 131         delete current_grouping;
 132         current_grouping = 0;
 133         beam_p_ = 0;
 134     }
 135     end_beam_b_ = false;
 136 }
 137 void
 138 Stem_beam_register::post_move_processing()
 139 {
 140     stem_p_ = 0;
 141     beam_req_l_ = 0;
 142     stem_req_l_ = 0;
 143     end_beam_b_ = false;
 144 }
 145
 146 Stem_beam_register::~Stem_beam_register()
 147 {
 148     if (beam_p_)
 149         start_req_l_->warning("unterminated beam");
 150 }
 151
 152 void
 153 Stem_beam_register::set_feature(Feature i)
 154 {
 155     if (i.type_ == "vdir")
 156         default_dir_i_ = i.value_;
 157 }
 158
 159 IMPLEMENT_STATIC_NAME(Stem_beam_register);
 160 ADD_THIS_REGISTER(Stem_beam_register);