lily/chord-tremolo-engraver.cc

   1 /*
   2   new-chord-tremolo-engraver.cc --  implement Chord_tremolo_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "engraver.hh"
  11 #include "beam.hh"
  12 #include "repeated-music.hh"
  13 #include "stem.hh"
  14 #include "rhythmic-head.hh"
  15 #include "engraver-group-engraver.hh"
  16 #include "musical-request.hh"
  17 #include "warn.hh"
  18 #include "misc.hh"
  19 #include "note-head.hh"
  20 #include "spanner.hh"
  21 #include "item.hh"
  22
  23 /**
  24   This acknowledges repeated music with "tremolo" style.  It typesets
  25   a beam.
  26
  27   TODO:
  28
  29   - perhaps use engraver this to steer other engravers? That would
  30   create dependencies between engravers, which is bad.
  31
  32   - create dots if appropriate.
  33
  34   - create  TremoloBeam iso Beam?
  35  */
  36
  37 class Chord_tremolo_engraver : public Engraver
  38 {
  39   void typeset_beam ();
  40 public:
  41   VIRTUAL_COPY_CONS(Translator);
  42   Chord_tremolo_engraver();
  43 protected:
  44   Repeated_music * repeat_;
  45
  46   /// moment (global time) where beam started.
  47   Moment start_mom_;
  48   Moment stop_mom_;
  49
  50   /// location  within measure where beam started.
  51   Moment beam_start_location_;
  52
  53   int note_head_i_;
  54
  55   Spanner * beam_p_;
  56   Spanner * finished_beam_p_;
  57
  58 protected:
  59   virtual void do_removal_processing();
  60   virtual void do_process_music();
  61   virtual bool do_try_music (Music*);
  62   virtual void acknowledge_element (Score_element_info);
  63   virtual void do_pre_move_processing();
  64   virtual void do_post_move_processing();
  65 };
  66
  67 Chord_tremolo_engraver::Chord_tremolo_engraver()
  68 {
  69   beam_p_  = finished_beam_p_ = 0;
  70   repeat_ =0;
  71   note_head_i_ = 0;
  72 }
  73
  74 bool
  75 Chord_tremolo_engraver::do_try_music (Music * m)
  76 {
  77   Repeated_music * rp = dynamic_cast<Repeated_music*> (m);
  78   if (rp && rp->type_ == "tremolo" && !repeat_)
  79     {
  80       Moment l = rp->body_length_mom ();
  81       repeat_ = rp;
  82       start_mom_ = now_mom ();
  83       stop_mom_ = start_mom_ + l;
  84
  85       // ugh. should generate dots, triplet beams.
  86       note_head_i_ = l.den () <? 4;
  87       return true;
  88     }
  89   return false;
  90 }
  91
  92 void
  93 Chord_tremolo_engraver::do_process_music ()
  94 {
  95   if (repeat_ && !beam_p_)
  96     {
  97       beam_p_ = new Spanner (get_property ("Beam"));
  98       Beam::set_interface (beam_p_);
  99       beam_p_->set_elt_property ("chord-tremolo", SCM_BOOL_T);
 100
 101
 102       SCM smp = get_property ("measurePosition");
 103       Moment mp =  (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
 104       beam_start_location_ = mp;
 105       announce_element (beam_p_, repeat_);
 106     }
 107 }
 108
 109
 110 void
 111 Chord_tremolo_engraver::do_removal_processing ()
 112 {
 113   typeset_beam ();
 114   if (beam_p_)
 115     {
 116       repeat_->origin ()->warning (_ ("unterminated chord tremolo"));
 117 #if 0
 118       finished_beam_p_ = beam_p_;
 119       typeset_beam ();
 120 #else
 121       beam_p_->suicide ();
 122 #endif
 123     }
 124 }
 125
 126 void
 127 Chord_tremolo_engraver::typeset_beam ()
 128 {
 129   if (finished_beam_p_)
 130     {
 131       typeset_element (finished_beam_p_);
 132       finished_beam_p_ = 0;
 133     }
 134 }
 135
 136
 137 void
 138 Chord_tremolo_engraver::acknowledge_element (Score_element_info info)
 139 {
 140   if (beam_p_)
 141     {
 142       if (Stem::has_interface (info.elem_l_))
 143         {
 144           Score_element * s = info.elem_l_;
 145           int f = Stem::flag_i (s);
 146           f = (f > 2) ? f - 2 : 1;
 147           Stem::set_beaming (s, f, LEFT);
 148           Stem::set_beaming (s, f, RIGHT);
 149
 150           /*
 151             URG: this sets the direction of the Stem s.
 152             It's amazing Mike:
 153
 154               Stem:: type_i () ->first_head ()->get_direction () ->
 155                       Directional_element_interface::set (me, d);
 156
 157
 158               don't understand this comment.
 159                       --hwn.
 160            */
 161           SCM d = s->get_elt_property ("direction");
 162           if (Stem::type_i (s ) != 1)
 163             {
 164               int gap_i =Stem::flag_i (s ) - ((Stem::type_i (s ) >? 2) - 2);
 165               beam_p_->set_elt_property ("beam-gap", gh_int2scm(gap_i));
 166             }
 167           s->set_elt_property ("direction", d);
 168
 169           if (dynamic_cast <Rhythmic_req *> (info.req_l_))
 170             {
 171               Beam::add_stem (beam_p_, s);
 172             }
 173           else
 174             {
 175               String s = _ ("stem must have Rhythmic structure");
 176               if (info.req_l_)
 177                 info.req_l_->origin ()->warning (s);
 178               else
 179                 ::warning (s);
 180             }
 181         }
 182       if (Note_head::has_interface (info.elem_l_))
 183         {
 184           info.elem_l_->set_elt_property ("duration-log", gh_int2scm (intlog2 (note_head_i_)));
 185         }
 186     }
 187 }
 188
 189
 190 void
 191 Chord_tremolo_engraver::do_post_move_processing ()
 192 {
 193   if (beam_p_ && stop_mom_ == now_mom ())
 194     {
 195       finished_beam_p_ = beam_p_;
 196
 197       repeat_ = 0;
 198       beam_p_ = 0;
 199     }
 200 }
 201
 202
 203 void
 204 Chord_tremolo_engraver::do_pre_move_processing ()
 205 {
 206   typeset_beam ();
 207 }
 208
 209 ADD_THIS_TRANSLATOR(Chord_tremolo_engraver);
 210