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 #include "staff-symbol-referencer.hh"
  14
  15 Note_heads_engraver::Note_heads_engraver()
  16 {
  17 }
  18
  19 bool
  20 Note_heads_engraver::do_try_music (Music *m)
  21 {
  22   if (Note_req * n =dynamic_cast <Note_req *> (m))
  23     {
  24       note_req_l_arr_.push (n);
  25       note_end_mom_  = note_end_mom_ >? now_mom () + m->length_mom ();
  26
  27       return true;
  28     }
  29   else if (Tonic_req* t = dynamic_cast<Tonic_req*> (m))
  30     {
  31       return true;
  32     }
  33   else if (Inversion_req* i = dynamic_cast<Inversion_req*> (m))
  34     {
  35       return true;
  36     }
  37   else if (Bass_req* b = dynamic_cast<Bass_req*> (m))
  38     {
  39       return true;
  40     }
  41   else if (Busy_playing_req * p = dynamic_cast<Busy_playing_req*> (m))
  42     {
  43       return now_mom () < note_end_mom_;
  44     }
  45   else if (Pitch_interrogate_req *p = dynamic_cast<Pitch_interrogate_req*> (m))
  46     {
  47       for (int i= note_req_l_arr_.size (); i--;)
  48         p->pitch_arr_.push (note_req_l_arr_[i]->pitch_); // GUH UGH UGHUGH.
  49       return true;
  50     }
  51   return false;
  52
  53 }
  54
  55 void
  56 Note_heads_engraver::do_process_requests()
  57 {
  58   if (note_p_arr_.size ())
  59     return ;
  60
  61   SCM noteheadstyle = get_property ("noteHeadStyle", 0);
  62   for (int i=0; i < note_req_l_arr_.size (); i++)
  63     {
  64       Note_head *note_p  = new Note_head;
  65
  66       Staff_symbol_referencer_interface si (note_p);
  67       si.set_interface ();
  68
  69
  70       Note_req * note_req_l = note_req_l_arr_[i];
  71
  72       note_p->set_elt_property ("duration-log",
  73                                 gh_int2scm (note_req_l->duration_.durlog_i_ <? 2));
  74
  75       if (note_req_l->duration_.dots_i_)
  76         {
  77           Dots * d = new Dots;
  78
  79           Staff_symbol_referencer_interface sd (d);
  80           sd.set_interface ();
  81
  82           note_p->add_dots (d);
  83           d->set_elt_property ("dot-count", gh_int2scm (note_req_l->duration_.dots_i_));
  84           announce_element (Score_element_info (d,0));
  85           dot_p_arr_.push (d);
  86         }
  87       si.set_position(note_req_l->pitch_.steps ());
  88
  89       /*
  90         TODO: transparent note heads.
  91        */
  92
  93       if (gh_string_p (noteheadstyle))
  94         {
  95           note_p->set_elt_property ("style", noteheadstyle);
  96         }
  97
  98       Score_element_info itinf (note_p,note_req_l);
  99       announce_element (itinf);
 100       note_p_arr_.push (note_p);
 101     }
 102 }
 103
 104 void
 105 Note_heads_engraver::do_pre_move_processing()
 106 {
 107   for (int i=0; i < note_p_arr_.size (); i++)
 108     {
 109       typeset_element (note_p_arr_[i]);
 110     }
 111   note_p_arr_.clear ();
 112   for (int i=0; i < dot_p_arr_.size (); i++)
 113     {
 114       typeset_element (dot_p_arr_[i]);
 115     }
 116   dot_p_arr_.clear ();
 117
 118   note_req_l_arr_.clear ();
 119 }
 120
 121
 122
 123
 124 ADD_THIS_TRANSLATOR(Note_heads_engraver);
 125