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 #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
  45       SCM list = ly_ch_C_eval_scm (("(articulation-to-scriptdef \"" + l->articulation_str_ + "\")").ch_C());
  46
  47       if (list == SCM_BOOL_F)
  48         {
  49           l->warning(_f("don't know how to interpret articulation `%s'\n",
  50                         l->articulation_str_.ch_C()));
  51           continue;
  52         }
  53       Script *p =new Script;
  54       Stem_staff_side_item * ss =new Stem_staff_side_item;
  55       list = SCM_CDR (list);
  56
  57       p->set_elt_property (molecule_scm_sym,
  58                            SCM_CAR(list));
  59
  60       list = SCM_CDR(list);
  61       bool follow_staff = gh_scm2bool (SCM_CAR(list));
  62       list = SCM_CDR(list);
  63       int relative_stem_dir = gh_scm2int (SCM_CAR(list));
  64       list = SCM_CDR(list);
  65       int force_dir =gh_scm2int (SCM_CAR(list));
  66       list = SCM_CDR(list);
  67       SCM priority = SCM_CAR(list);
  68
  69       if (relative_stem_dir)
  70           ss->relative_dir_ = (Direction)relative_stem_dir;
  71       else
  72           ss->dir_ = (Direction)force_dir;
  73
  74       Scalar dir_prop (get_property ("articulationScriptVerticalDirection", 0));
  75       if (dir_prop.isnum_b () && (int) dir_prop != CENTER)
  76         ss->dir_ = (Direction)(int)dir_prop;
  77
  78       if (l->dir_)
  79         ss->dir_ = l->dir_;
  80
  81       Real padding = 0.0;
  82       Scalar paddingprop = get_property ("articulationScriptPadding", 0);
  83       if (paddingprop.length_i() && paddingprop.isnum_b ())
  84         {
  85           padding = (Real)paddingprop;
  86         }
  87
  88       if (follow_staff)
  89         ss->set_elt_property (no_staff_support_scm_sym, SCM_BOOL_T);
  90       p->set_staff_side (ss);
  91       ss->set_elt_property (script_priority_scm_sym, priority);
  92       if (padding)
  93         ss->set_elt_property (padding_scm_sym, gh_double2scm(padding));
  94       script_p_arr_.push (p);
  95       staff_side_p_arr_.push (ss);
  96
  97       announce_element (Score_element_info (p, l));
  98       announce_element (Score_element_info (ss, l));
  99     }
 100 }
 101
 102 void
 103 Script_engraver::acknowledge_element (Score_element_info inf)
 104 {
 105   if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
 106     {
 107       for (int i=0; i < staff_side_p_arr_.size(); i++)
 108         if (Stem_staff_side_item * ss = dynamic_cast<Stem_staff_side_item*>(staff_side_p_arr_[i]))
 109           {
 110             ss->set_stem (s);
 111             ss->add_support (s);
 112           }
 113     }
 114   else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
 115     {
 116       for (int i=0; i < staff_side_p_arr_.size(); i++)
 117         {
 118           Staff_side_item * ss = dynamic_cast<Staff_side_item*>(staff_side_p_arr_[i]);
 119
 120           if (!ss->dim_cache_[X_AXIS]->parent_l_)
 121             {
 122               ss->dim_cache_[X_AXIS]->parent_l_ = inf.elem_l_->dim_cache_[X_AXIS];
 123             }
 124           ss->add_support (rh);
 125         }
 126     }
 127 }
 128
 129 void
 130 Script_engraver::do_pre_move_processing()
 131 {
 132   for (int i=0; i < script_p_arr_.size(); i++)
 133     {
 134       typeset_element (script_p_arr_[i]);
 135       typeset_element (staff_side_p_arr_[i]);
 136     }
 137   script_p_arr_.clear();
 138   staff_side_p_arr_.clear ();
 139 }
 140
 141 void
 142 Script_engraver::do_post_move_processing()
 143 {
 144   script_req_l_arr_.clear();
 145 }
 146
 147
 148
 149 ADD_THIS_TRANSLATOR(Script_engraver);
 150