lily/chord-tremolo-engraver.cc

   1 /*
   2   abbreviation-beam-engraver.cc -- implement Chord_tremolo_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7            Jan Nieuwenhuizen <janneke@gnu.org>
   8 */
   9
  10 #include "duration-convert.hh"
  11 #include "time-description.hh"
  12 #include "chord-tremolo-engraver.hh"
  13 #include "stem.hh"
  14 #include "chord-tremolo.hh"
  15 #include "musical-request.hh"
  16 #include "misc.hh"
  17 #include "warn.hh"
  18 #include "score-engraver.hh"
  19
  20 ADD_THIS_TRANSLATOR (Chord_tremolo_engraver);
  21
  22 Chord_tremolo_engraver::Chord_tremolo_engraver ()
  23 {
  24   reqs_drul_[LEFT] = reqs_drul_[RIGHT] = 0;
  25   abeam_p_ = 0;
  26   finished_abeam_p_ = 0;
  27   prev_start_req_ = 0;
  28 }
  29
  30 bool
  31 Chord_tremolo_engraver::do_try_music (Music* m)
  32 {
  33   if (Chord_tremolo_req* b = dynamic_cast <Chord_tremolo_req *> (m))
  34     {
  35       Direction d = b->span_dir_;
  36       if (reqs_drul_[d] && !reqs_drul_[d]->equal_b (b))
  37         return false;
  38
  39       if ((d == STOP) && !abeam_p_)
  40         {
  41           m->warning (_ ("no tremolo beam to end"));
  42           return false;
  43         }
  44
  45       reqs_drul_[d] = b;
  46       return true;
  47     }
  48
  49   return false;
  50 }
  51
  52 void
  53 Chord_tremolo_engraver::do_process_requests ()
  54 {
  55   if (reqs_drul_[STOP])
  56     {
  57       if (!abeam_p_)
  58         reqs_drul_[STOP]->warning (_("no tremolo beam to end"));
  59       prev_start_req_ = 0;
  60       finished_abeam_p_ = abeam_p_;
  61       abeam_p_ = 0;
  62     }
  63
  64   if (abeam_p_)
  65     {
  66       Score_engraver * e = 0;
  67       Translator * t  =  daddy_grav_l ();
  68       for (; !e && t;  t = t->daddy_trans_l_)
  69         {
  70           e = dynamic_cast<Score_engraver*> (t);
  71         }
  72
  73       if (!e)
  74         programming_error ("No score engraver!");
  75       else
  76         e->forbid_breaks ();
  77     }
  78
  79   if (reqs_drul_[START])
  80     {
  81       if (abeam_p_)
  82         {
  83           reqs_drul_[START]->warning (_ ("already have a tremolo beam"));
  84           return;
  85         }
  86
  87       prev_start_req_ = reqs_drul_[START];
  88
  89       abeam_p_ = new Chord_tremolo;
  90       announce_element (Score_element_info (abeam_p_, reqs_drul_[LEFT]));
  91   }
  92 }
  93
  94 void
  95 Chord_tremolo_engraver::do_post_move_processing ()
  96 {
  97   reqs_drul_ [START] = 0;
  98 }
  99
 100 void
 101 Chord_tremolo_engraver::do_pre_move_processing ()
 102 {
 103   typeset_beam ();
 104 }
 105
 106 void
 107 Chord_tremolo_engraver::typeset_beam ()
 108 {
 109   if (finished_abeam_p_)
 110     {
 111       typeset_element (finished_abeam_p_);
 112       finished_abeam_p_ = 0;
 113
 114       reqs_drul_[STOP] = 0;
 115     }
 116 }
 117
 118 void
 119 Chord_tremolo_engraver::do_removal_processing ()
 120 {
 121   typeset_beam ();
 122   if (abeam_p_)
 123     {
 124       prev_start_req_->warning (_ ("unfinished tremolo beam"));
 125       finished_abeam_p_ = abeam_p_;
 126       typeset_beam ();
 127     }
 128 }
 129
 130 void
 131 Chord_tremolo_engraver::acknowledge_element (Score_element_info i)
 132 {
 133   if (abeam_p_)
 134     {
 135       if (Stem* s = dynamic_cast<Stem *> (i.elem_l_))
 136         {
 137           int type_i = prev_start_req_->type_i_;
 138           s->flag_i_ = intlog2 (type_i) - 2;
 139
 140           s->beams_i_drul_[LEFT] = s->flag_i_;
 141           s->beams_i_drul_[RIGHT] = s->flag_i_;
 142
 143           abeam_p_->multiple_i_ = s->flag_i_;
 144           /*
 145             abbrev gaps on all but half note
 146           */
 147 #if 0
 148           if (s->type_i () != 1)
 149             {
 150               int gap_i =s->flag_i_ - ((s->type_i () >? 2) - 2);
 151               s->set_elt_property (beam_gap_scm_sym, gh_int2scm(gap_i));
 152             }
 153 #else
 154           if (s->type_i () != 1)
 155             {
 156               int gap_i =s->flag_i_ - ((s->type_i () >? 2) - 2);
 157               abeam_p_->set_elt_property (beam_gap_scm_sym, gh_int2scm(gap_i));
 158             }
 159 #endif
 160
 161           abeam_p_->add_stem (s);
 162         }
 163     }
 164 }