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 "stem-staff-side.hh"
  10 #include "musical-request.hh"
  11 #include "stem.hh"
  12 #include "staff-symbol.hh"
  13 #include "rhythmic-head.hh"
  14
  15 Script_engraver::Script_engraver()
  16 {
  17   do_post_move_processing();
  18 }
  19
  20 bool
  21 Script_engraver::do_try_music (Music *r_l)
  22 {
  23   if (Articulation_req *mr = dynamic_cast <Articulation_req *> (r_l))
  24     {
  25       for (int i=0; i < script_req_l_arr_.size(); i++)
  26         {
  27           if (script_req_l_arr_[i]->equal_b (mr))
  28             return true;
  29         }
  30       script_req_l_arr_.push (mr);
  31       return true;
  32     }
  33   return false;
  34 }
  35
  36 void
  37 Script_engraver::do_process_requests()
  38 {
  39   for (int i=0; i < script_req_l_arr_.size(); i++)
  40     {
  41       Articulation_req* l=script_req_l_arr_[i];
  42
  43
  44       SCM list = gh_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'\n",
  49                         l->articulation_str_.ch_C()));
  50           continue;
  51         }
  52       Script *p =new Script;
  53       Stem_staff_side_item * ss =new Stem_staff_side_item;
  54       list = SCM_CDR (list);
  55
  56       p->set_elt_property (molecule_scm_sym,
  57                            SCM_CAR(list));
  58
  59       list = SCM_CDR(list);
  60       bool follow_staff = gh_scm2bool (SCM_CAR(list));
  61       list = SCM_CDR(list);
  62       int relative_stem_dir = gh_scm2int (SCM_CAR(list));
  63       list = SCM_CDR(list);
  64       int force_dir =gh_scm2int (SCM_CAR(list));
  65       list = SCM_CDR(list);
  66       SCM priority = SCM_CAR(list);
  67
  68       if (relative_stem_dir)
  69           ss->relative_dir_ = relative_stem_dir;
  70       else
  71           ss->dir_ = force_dir;
  72
  73       Scalar dir_prop (get_property ("articulationScriptVerticalDirection", 0));
  74       if (dir_prop.isnum_b () && (int) dir_prop != CENTER)
  75         ss->dir_ = (int) dir_prop;
  76
  77       if (l->dir_)
  78         ss->dir_ = l->dir_;
  79
  80       Real padding = 1.0;
  81       Scalar paddingprop = get_property ("articulationScriptPadding", 0);
  82       if (paddingprop.length_i() && paddingprop.isnum_b ())
  83         {
  84           padding = (Real)paddingprop;
  85         }
  86
  87       ss->staff_support_b_ = !follow_staff;
  88       p->set_staff_side (ss);
  89       ss->set_elt_property (script_priority_scm_sym, priority);
  90       ss->set_elt_property (padding_scm_sym, gh_double2scm(padding));
  91       script_p_arr_.push (p);
  92       staff_side_p_arr_.push (ss);
  93
  94       announce_element (Score_element_info (p, l));
  95       announce_element (Score_element_info (ss, l));
  96     }
  97 }
  98
  99 void
 100 Script_engraver::acknowledge_element (Score_element_info inf)
 101 {
 102   if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
 103     {
 104       for (int i=0; i < staff_side_p_arr_.size(); i++)
 105         if (Stem_staff_side_item * ss = dynamic_cast<Stem_staff_side_item*>(staff_side_p_arr_[i]))
 106           {
 107             ss->set_stem (s);
 108             ss->add_support (s);
 109           }
 110     }
 111   else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
 112     {
 113       for (int i=0; i < staff_side_p_arr_.size(); i++)
 114         {
 115           Staff_side_item * ss = dynamic_cast<Staff_side_item*>(staff_side_p_arr_[i]);
 116
 117           if (!ss->dim_cache_[X_AXIS]->parent_l_)
 118             {
 119               ss->dim_cache_[X_AXIS]->parent_l_ = inf.elem_l_->dim_cache_[X_AXIS];
 120             }
 121           ss->add_support (rh);
 122         }
 123     }
 124 }
 125
 126 void
 127 Script_engraver::do_pre_move_processing()
 128 {
 129   for (int i=0; i < script_p_arr_.size(); i++)
 130     {
 131       typeset_element (script_p_arr_[i]);
 132       typeset_element (staff_side_p_arr_[i]);
 133     }
 134   script_p_arr_.clear();
 135   staff_side_p_arr_.clear ();
 136 }
 137
 138 void
 139 Script_engraver::do_post_move_processing()
 140 {
 141   script_req_l_arr_.clear();
 142 }
 143
 144
 145
 146 ADD_THIS_TRANSLATOR(Script_engraver);
 147