lily/script-engraver.cc

   1 /*
   2   script-engraver.cc -- implement Script_engraver
   3
   4   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   7 #include "script-engraver.hh"
   8 #include "script.hh"
   9 #include "side-position-interface.hh"
  10 #include "musical-request.hh"
  11 #include "stem.hh"
  12 #include "staff-symbol.hh"
  13 #include "rhythmic-head.hh"
  14 #include "dimension-cache.hh"
  15
  16 Script_engraver::Script_engraver()
  17 {
  18   do_post_move_processing();
  19 }
  20
  21 bool
  22 Script_engraver::do_try_music (Music *r_l)
  23 {
  24   if (Articulation_req *mr = dynamic_cast <Articulation_req *> (r_l))
  25     {
  26       for (int i=0; i < script_req_l_arr_.size(); i++)
  27         {
  28           if (script_req_l_arr_[i]->equal_b (mr))
  29             return true;
  30         }
  31       script_req_l_arr_.push (mr);
  32       return true;
  33     }
  34   return false;
  35 }
  36
  37 void
  38 Script_engraver::do_process_requests()
  39 {
  40   for (int i=0; i < script_req_l_arr_.size(); i++)
  41     {
  42       Articulation_req* l=script_req_l_arr_[i];
  43
  44       SCM list = ly_eval_str (("(articulation-to-scriptdef \"" + l->articulation_str_ + "\")").ch_C());
  45
  46       if (list == SCM_BOOL_F)
  47         {
  48           l->warning (_f ("Don't know how to interpret articulation `%s'",
  49                         l->articulation_str_.ch_C ()));
  50           continue;
  51         }
  52       Script *p =new Script;
  53       Side_position_interface stafy (p);
  54
  55
  56       list = gh_cdr (list);
  57       p->set_elt_property ("molecule",
  58                            gh_car (list));
  59
  60       list = gh_cdr(list);
  61       bool follow_staff = gh_scm2bool (gh_car (list));
  62       list = gh_cdr(list);
  63       int relative_stem_dir = gh_scm2int (gh_car (list));
  64       list = gh_cdr(list);
  65       int force_dir =gh_scm2int (gh_car (list));
  66       list = gh_cdr(list);
  67       SCM priority = gh_car (list);
  68
  69
  70       if (relative_stem_dir)
  71           p->set_elt_property ("side-relative-direction", gh_int2scm (relative_stem_dir));
  72       else
  73           stafy.set_direction ((Direction)force_dir);
  74
  75       if (l->get_direction ())
  76         stafy.set_direction (l->get_direction ());
  77
  78       SCM axisprop = get_property ("scriptHorizontal",0);
  79       bool xaxis = to_boolean (axisprop);
  80       if (xaxis)
  81         stafy.set_axis (X_AXIS);
  82       else
  83         stafy.set_axis (Y_AXIS);
  84
  85       if (!follow_staff && ! xaxis)
  86         p->set_elt_property ("staff-support", SCM_BOOL_T);
  87
  88       if (!xaxis && follow_staff)
  89         stafy.set_quantised (Y_AXIS);
  90
  91       p->set_elt_property ("script-priority", priority);
  92
  93       script_p_arr_.push (p);
  94
  95       announce_element (Score_element_info (p, l));
  96     }
  97 }
  98
  99 void
 100 Script_engraver::acknowledge_element (Score_element_info inf)
 101 {
 102   bool them_grace = to_boolean (inf.elem_l_->get_elt_property ("grace"));
 103   bool us_grace = to_boolean (get_property ("weAreGraceContext",0));
 104
 105   if (us_grace != them_grace)
 106     return;
 107
 108   if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
 109     {
 110       for (int i=0; i < script_p_arr_.size(); i++)
 111         {
 112           Side_position_interface stafy (script_p_arr_[i]);
 113           stafy.elt_l_->set_elt_property ("direction-source", s->self_scm_);
 114           stafy.add_support (s);
 115         }
 116     }
 117   else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
 118     {
 119       for (int i=0; i < script_p_arr_.size(); i++)
 120         {
 121           Side_position_interface stafy(script_p_arr_[i]);
 122
 123           if (!stafy.elt_l_->parent_l (X_AXIS))
 124             {
 125               stafy.elt_l_->set_parent (inf.elem_l_, X_AXIS);
 126             }
 127           if (stafy.get_axis () == X_AXIS
 128               && !stafy.elt_l_->parent_l (Y_AXIS))
 129             stafy.elt_l_->set_parent (rh, Y_AXIS);
 130
 131           stafy.add_support (rh);
 132         }
 133     }
 134 }
 135
 136 void
 137 Script_engraver::do_pre_move_processing()
 138 {
 139   for (int i=0; i < script_p_arr_.size(); i++)
 140     {
 141       typeset_element (script_p_arr_[i]);
 142     }
 143   script_p_arr_.clear();
 144 }
 145
 146 void
 147 Script_engraver::do_post_move_processing()
 148 {
 149   script_req_l_arr_.clear();
 150 }
 151
 152 ADD_THIS_TRANSLATOR(Script_engraver);
 153
 154