lily/abbreviation-beam-engraver.cc

   1 #if 0
   2
   3 /*
   4   abbreviation-beam-engraver.cc -- implement Abbreviation_beam_engraver
   5
   6   source file of the GNU LilyPond music typesetter
   7
   8   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   9            Jan Nieuwenhuizen <janneke@gnu.org>
  10 */
  11
  12 #include "duration-convert.hh"
  13 #include "time-description.hh"
  14 #include "abbreviation-beam-engraver.hh"
  15 #include "stem.hh"
  16 #include "abbreviation-beam.hh"
  17 #include "musical-request.hh"
  18 #include "misc.hh"
  19
  20
  21 ADD_THIS_TRANSLATOR(Abbreviation_beam_engraver);
  22
  23 Abbreviation_beam_engraver::Abbreviation_beam_engraver ()
  24 {
  25   span_reqs_drul_[LEFT] = span_reqs_drul_[RIGHT] = 0;
  26   abeam_p_ = 0;
  27 }
  28
  29 bool
  30 Abbreviation_beam_engraver::do_try_music (Music*r)
  31 {
  32   Abbreviation_beam_req * b = dynamic_cast <Abbreviation_beam_req *> (r);
  33
  34   if (!b)
  35     return false;
  36
  37   if (bool (abeam_p_) == bool (b->span_dir_ == START))
  38     return false;
  39
  40   Direction d = (!abeam_p_) ? LEFT : RIGHT;
  41   if (span_reqs_drul_[d] && !span_reqs_drul_[d]->equal_b (b))
  42     return false;
  43
  44   span_reqs_drul_[d] = b;
  45   return true;
  46 }
  47
  48 void
  49 Abbreviation_beam_engraver::do_process_requests ()
  50 {
  51   if (!abeam_p_ && span_reqs_drul_[LEFT]) {
  52     abeam_p_ = new Abbreviation_beam;
  53     announce_element (Score_element_info (abeam_p_, span_reqs_drul_[LEFT]));
  54   }
  55 }
  56
  57 void
  58 Abbreviation_beam_engraver::do_pre_move_processing ()
  59 {
  60   if (abeam_p_ && span_reqs_drul_[RIGHT]) {
  61     typeset_element (abeam_p_);
  62     abeam_p_ = 0;
  63
  64     span_reqs_drul_[RIGHT] =
  65       span_reqs_drul_[LEFT] = 0;
  66   }
  67 }
  68
  69 void
  70 Abbreviation_beam_engraver::do_removal_processing ()
  71 {
  72   if (abeam_p_)
  73     {
  74       span_reqs_drul_[LEFT]->warning (_("unterminated beam"));
  75       typeset_element (abeam_p_);
  76       abeam_p_ = 0;
  77     }
  78 }
  79
  80 void
  81 Abbreviation_beam_engraver::acknowledge_element (Score_element_info i)
  82 {
  83   Stem* s = dynamic_cast<Stem *> (i.elem_l_);
  84   if (!abeam_p_ || !s)
  85     return;
  86
  87   int type_i = span_reqs_drul_[LEFT]->type_i_;
  88   s->flag_i_ = intlog2 (type_i) - 2;
  89   s->beams_i_drul_[(span_reqs_drul_[RIGHT]) ? LEFT: RIGHT] = s->flag_i_;
  90
  91   abeam_p_->multiple_i_ = s->flag_i_;
  92   if (s->type_i () != 1) // no abbrev gaps on half note
  93     s->set_elt_property (beam_gap_scm_sym,
  94                          gh_int2scm(s->flag_i_ - ((s->type_i () >? 2) - 2)));
  95
  96   abeam_p_->add_stem (s);
  97 }
  98
  99 #endif