lily/note-heads-engraver.cc

   1 /*
   2   head-grav.cc -- part of GNU LilyPond
   3
   4   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "note-head.hh"
   8 #include "note-heads-engraver.hh"
   9 #include "paper-def.hh"
  10 #include "musical-request.hh"
  11 #include "dots.hh"
  12 #include "dot-column.hh"
  13
  14 Note_heads_engraver::Note_heads_engraver()
  15 {
  16 }
  17
  18 bool
  19 Note_heads_engraver::do_try_music (Music *m)
  20 {
  21   if (Note_req * n =dynamic_cast <Note_req *> (m))
  22     {
  23       note_req_l_arr_.push (n);
  24       notes_end_pq_.insert (now_mom () + m->length_mom ());
  25
  26       return true;
  27     }
  28   else if (Tonic_req* t = dynamic_cast<Tonic_req*> (m))
  29     {
  30       return true;
  31     }
  32   else if (Inversion_req* i = dynamic_cast<Inversion_req*> (m))
  33     {
  34       return true;
  35     }
  36   else if (Bass_req* b = dynamic_cast<Bass_req*> (m))
  37     {
  38       return true;
  39     }
  40   else if (Busy_playing_req * p = dynamic_cast<Busy_playing_req*> (m))
  41     {
  42       return notes_end_pq_.size ();
  43     }
  44   else if (Pitch_interrogate_req *p = dynamic_cast<Pitch_interrogate_req*> (m))
  45     {
  46       for (int i= note_req_l_arr_.size (); i--;)
  47         p->pitch_arr_.push (note_req_l_arr_[i]->pitch_); // GUH UGH UGHUGH.
  48       return true;
  49     }
  50   return false;
  51
  52 }
  53
  54 void
  55 Note_heads_engraver::do_process_requests()
  56 {
  57   if (note_p_arr_.size ())
  58     return ;
  59
  60   SCM noteheadstyle = get_property ("noteHeadStyle", 0);
  61   for (int i=0; i < note_req_l_arr_.size (); i++)
  62     {
  63       Note_head *note_p  = new Note_head;
  64       Note_req * note_req_l = note_req_l_arr_[i];
  65       note_p->balltype_i_ = note_req_l->duration_.durlog_i_;
  66
  67       if (note_req_l->duration_.dots_i_)
  68         {
  69           Dots * d = new Dots;
  70           note_p->dots_l_ = d;
  71           d->dots_i_ = note_req_l->duration_.dots_i_;
  72
  73           SCM dir = get_property ("verticalDirection",0);
  74           if (isdir_b (dir))
  75             {
  76               d->resolve_dir_ = to_dir (dir);
  77             }
  78
  79           announce_element (Score_element_info (d,0));
  80           dot_p_arr_.push (d);
  81         }
  82       note_p->set_position(note_req_l->pitch_.steps ());
  83
  84       /*
  85         TODO: transparent note heads.
  86        */
  87
  88       if (gh_string_p (noteheadstyle))
  89         {
  90           note_p->set_elt_property ("style", noteheadstyle);
  91         }
  92
  93       Score_element_info itinf (note_p,note_req_l);
  94       announce_element (itinf);
  95       note_p_arr_.push (note_p);
  96     }
  97 }
  98
  99 void
 100 Note_heads_engraver::do_pre_move_processing()
 101 {
 102   for (int i=0; i < note_p_arr_.size (); i++)
 103     {
 104       typeset_element (note_p_arr_[i]);
 105     }
 106   note_p_arr_.clear ();
 107   for (int i=0; i < dot_p_arr_.size (); i++)
 108     {
 109       typeset_element (dot_p_arr_[i]);
 110     }
 111   dot_p_arr_.clear ();
 112
 113   note_req_l_arr_.clear ();
 114 }
 115
 116 void
 117 Note_heads_engraver::do_post_move_processing()
 118 {
 119   Moment n (now_mom ());
 120   while (notes_end_pq_.size () && notes_end_pq_.front () <=n)
 121     notes_end_pq_.get ();
 122 }
 123
 124
 125
 126 ADD_THIS_TRANSLATOR(Note_heads_engraver);
 127