lily/chord-tremolo-engraver.cc

   1 /*
   2   chord-tremolo-engraver.cc -- implement Chord_tremolo_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7            Jan Nieuwenhuizen <janneke@gnu.org>
   8 */
   9
  10 #include "timing-translator.hh"
  11 #include "stem.hh"
  12 #include "beam.hh"
  13 #include "musical-request.hh"
  14 #include "misc.hh"
  15 #include "warn.hh"
  16 #include "score-engraver.hh"
  17 #include "engraver.hh"
  18 #include "drul-array.hh"
  19 #include "timing-engraver.hh"
  20 #include "beaming.hh"
  21
  22 /**
  23   Generate a beam tremolo.  Eat stems.
  24
  25   UGH. Derive me from Beam_engraver.
  26
  27  */
  28 class Chord_tremolo_engraver : public Engraver
  29 {
  30 public:
  31   VIRTUAL_COPY_CONS(Translator);
  32
  33
  34   Chord_tremolo_engraver();
  35
  36 protected:
  37   virtual void do_removal_processing();
  38   virtual void do_process_music();
  39   virtual bool do_try_music (Music*);
  40   virtual void acknowledge_element (Score_element_info);
  41   virtual void do_pre_move_processing();
  42   virtual void do_post_move_processing();
  43
  44 private:
  45   void typeset_beam ();
  46   Drul_array<Chord_tremolo_req*> reqs_drul_;
  47   Chord_tremolo_req* prev_start_req_;
  48   Beam* beam_p_;
  49   Beam* finished_beam_p_;
  50
  51   /// location  within measure where beam started.
  52   Moment beam_start_location_;
  53
  54   /// moment (global time) where beam started.
  55   Moment beam_start_mom_;
  56   Beaming_info_list * beam_info_p_;
  57   Beaming_info_list * finished_beam_info_p_;
  58 };
  59
  60 ADD_THIS_TRANSLATOR (Chord_tremolo_engraver);
  61
  62 Chord_tremolo_engraver::Chord_tremolo_engraver ()
  63 {
  64   reqs_drul_[LEFT] = reqs_drul_[RIGHT] = 0;
  65   beam_p_ = 0;
  66   finished_beam_p_ = 0;
  67   prev_start_req_ = 0;
  68   finished_beam_info_p_=0;
  69   beam_info_p_ =0;
  70 }
  71
  72 bool
  73 Chord_tremolo_engraver::do_try_music (Music* m)
  74 {
  75   if (Chord_tremolo_req* b = dynamic_cast <Chord_tremolo_req *> (m))
  76     {
  77       Direction d = b->span_dir_;
  78       if (reqs_drul_[d] && !reqs_drul_[d]->equal_b (b))
  79         return false;
  80
  81       if ((d == STOP) && !beam_p_)
  82         {
  83           m->warning (_ ("can't find start of chord tremolo"));
  84           return false;
  85         }
  86
  87       reqs_drul_[d] = b;
  88       return true;
  89     }
  90
  91   return false;
  92 }
  93
  94 void
  95 Chord_tremolo_engraver::do_process_music ()
  96 {
  97   if (reqs_drul_[STOP])
  98     {
  99       if (!beam_p_)
 100         reqs_drul_[STOP]->warning (_ ("can't find start of chord tremolo"));
 101
 102       prev_start_req_ = 0;
 103
 104       finished_beam_p_ = beam_p_;
 105       beam_p_ = 0;
 106
 107       finished_beam_info_p_ = beam_info_p_;
 108       beam_info_p_ = 0;
 109     }
 110
 111   if (beam_p_)
 112     {
 113       Score_engraver * e = 0;
 114       Translator * t  =  daddy_grav_l ();
 115       for (; !e && t;  t = t->daddy_trans_l_)
 116         {
 117           e = dynamic_cast<Score_engraver*> (t);
 118         }
 119
 120       if (!e)
 121         programming_error ("No score engraver!");
 122       else
 123         e->forbid_breaks ();
 124     }
 125
 126   if (reqs_drul_[START])
 127     {
 128       if (beam_p_)
 129         {
 130           reqs_drul_[START]->warning (_ ("already have a chord tremolo"));
 131           return;
 132         }
 133
 134       prev_start_req_ = reqs_drul_[START];
 135
 136       beam_p_ = new Beam;
 137       beam_p_->set_elt_property ("chord-tremolo", SCM_BOOL_T);
 138       Translator * t  = daddy_grav_l  ()->get_simple_translator ("Timing_engraver");
 139       Timing_engraver *timer = dynamic_cast<Timing_engraver*> (t);
 140       beam_start_location_ = (t) ?  timer->measure_position () : Moment (0);
 141       beam_start_mom_ = now_mom();
 142       beam_info_p_ = new Beaming_info_list;
 143
 144       announce_element (Score_element_info (beam_p_, reqs_drul_[LEFT]));
 145   }
 146 }
 147
 148 void
 149 Chord_tremolo_engraver::do_post_move_processing ()
 150 {
 151   reqs_drul_ [START] = 0;
 152 }
 153
 154
 155 void
 156 Chord_tremolo_engraver::do_pre_move_processing ()
 157 {
 158   typeset_beam ();
 159 }
 160
 161 void
 162 Chord_tremolo_engraver::typeset_beam ()
 163 {
 164   if (finished_beam_p_)
 165     {
 166       finished_beam_info_p_->beamify ();
 167       finished_beam_p_->set_beaming (finished_beam_info_p_);
 168       typeset_element (finished_beam_p_);
 169       finished_beam_p_ = 0;
 170       delete finished_beam_info_p_;
 171       finished_beam_info_p_ =0;
 172
 173       reqs_drul_[STOP] = 0;
 174     }
 175 }
 176
 177 void
 178 Chord_tremolo_engraver::do_removal_processing ()
 179 {
 180   typeset_beam ();
 181   if (beam_p_)
 182     {
 183       prev_start_req_->warning (_ ("unterminated chord tremolo"));
 184       finished_beam_p_ = beam_p_;
 185       finished_beam_info_p_ = beam_info_p_;
 186       typeset_beam ();
 187     }
 188 }
 189
 190 void
 191 Chord_tremolo_engraver::acknowledge_element (Score_element_info info)
 192 {
 193   if (beam_p_)
 194     {
 195       if (Stem* s = dynamic_cast<Stem *> (info.elem_l_))
 196         {
 197           int type_i = prev_start_req_->type_i_;
 198           s->set_elt_property ("duration-log",  gh_int2scm (intlog2 (type_i) - 2));
 199
 200           s->set_beaming (s->flag_i (), LEFT);
 201           s->set_beaming ( s->flag_i (), RIGHT);
 202
 203           /*
 204             URG: this sets the direction of the Stem s.
 205             It's amazing Mike:
 206
 207               Stem:: type_i () ->first_head ()->get_direction () ->
 208                       directional_element (me).set (d);
 209
 210            */
 211           SCM d = s->get_elt_property ("direction");
 212           if (s->type_i () != 1)
 213             {
 214               int gap_i =s->flag_i () - ((s->type_i () >? 2) - 2);
 215               beam_p_->set_elt_property ("beam-gap", gh_int2scm(gap_i));
 216             }
 217           s->set_elt_property ("direction", d);
 218
 219           if (Rhythmic_req* r = dynamic_cast <Rhythmic_req *> (info.req_l_))
 220             {
 221               beam_p_->add_stem (s);
 222               Moment stem_location = now_mom () -
 223                 beam_start_mom_ + beam_start_location_;
 224               beam_info_p_->add_stem (stem_location,
 225                                       (r->duration_.durlog_i_ - 2) >? 1);
 226             }
 227           else
 228             {
 229               String s = _ ("stem must have Rhythmic structure");
 230               if (info.req_l_)
 231                 info.req_l_->warning (s);
 232               else
 233                 ::warning (s);
 234             }
 235         }
 236     }
 237 }
 238