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       SCM list = ly_ch_C_eval_scm (("(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       Stem_staff_side_item * ss =new Stem_staff_side_item;
  54
  55       list = gh_cdr (list);
  56       p->set_elt_property ("molecule",
  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_ = (Direction)relative_stem_dir;
  70       else
  71           ss->dir_ = (Direction)force_dir;
  72
  73       SCM dir_prop (get_property ("articulationScriptVerticalDirection", 0));
  74       if (gh_number_p(dir_prop))
  75         ss->dir_ = to_dir (dir_prop);
  76
  77       if (l->dir_)
  78         ss->dir_ = l->dir_;
  79
  80       SCM paddingprop = get_property ("articulationScriptPadding", 0);
  81       if (gh_number_p(paddingprop))
  82         {
  83           ss->set_elt_property ("padding", paddingprop);
  84         }
  85
  86       SCM axisprop = get_property ("scriptHorizontal",0);
  87       if (gh_boolean_p (axisprop) && gh_scm2bool (axisprop))
  88         ss->axis_ = X_AXIS;
  89
  90       if (follow_staff && !gh_boolean_p (axisprop) && gh_scm2bool (axisprop))
  91         ss->set_elt_property ("no-staff-support", SCM_BOOL_T);
  92
  93       p->set_staff_side (ss);
  94       ss->set_elt_property ("script-priority", priority);
  95       if (gh_number_p (paddingprop))
  96         ss->set_elt_property ("padding", paddingprop);
  97
  98
  99       script_p_arr_.push (p);
 100       staff_side_p_arr_.push (ss);
 101
 102       announce_element (Score_element_info (p, l));
 103       announce_element (Score_element_info (ss, l));
 104     }
 105 }
 106
 107 void
 108 Script_engraver::acknowledge_element (Score_element_info inf)
 109 {
 110   if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
 111     {
 112       for (int i=0; i < staff_side_p_arr_.size(); i++)
 113         if (Stem_staff_side_item * ss = dynamic_cast<Stem_staff_side_item*>(staff_side_p_arr_[i]))
 114           {
 115             ss->set_stem (s);
 116             ss->add_support (s);
 117           }
 118     }
 119   else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
 120     {
 121       for (int i=0; i < staff_side_p_arr_.size(); i++)
 122         {
 123           Staff_side_item * ss = dynamic_cast<Staff_side_item*>(staff_side_p_arr_[i]);
 124
 125           if (!ss->parent_l (X_AXIS))
 126             {
 127               ss->set_parent (inf.elem_l_, X_AXIS);
 128             }
 129           if (ss->axis_ == X_AXIS
 130               && !ss->parent_l (Y_AXIS))
 131             ss->set_parent (rh, Y_AXIS);
 132
 133           ss->add_support (rh);
 134         }
 135     }
 136 }
 137
 138 void
 139 Script_engraver::do_pre_move_processing()
 140 {
 141   for (int i=0; i < script_p_arr_.size(); i++)
 142     {
 143       typeset_element (script_p_arr_[i]);
 144       typeset_element (staff_side_p_arr_[i]);
 145     }
 146   script_p_arr_.clear();
 147   staff_side_p_arr_.clear ();
 148 }
 149
 150 void
 151 Script_engraver::do_post_move_processing()
 152 {
 153   script_req_l_arr_.clear();
 154 }
 155
 156 ADD_THIS_TRANSLATOR(Script_engraver);
 157
 158