lily/script-engraver.cc

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