2 script-engraver.cc -- implement Script_engraver
4 (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 #include "script-engraver.hh"
9 #include "stem-staff-side.hh"
10 #include "musical-request.hh"
12 #include "staff-symbol.hh"
13 #include "rhythmic-head.hh"
14 #include "dimension-cache.hh"
16 Script_engraver::Script_engraver()
18 do_post_move_processing();
22 Script_engraver::do_try_music (Music *r_l)
24 if (Articulation_req *mr = dynamic_cast <Articulation_req *> (r_l))
26 for (int i=0; i < script_req_l_arr_.size(); i++)
28 if (script_req_l_arr_[i]->equal_b (mr))
31 script_req_l_arr_.push (mr);
38 Script_engraver::do_process_requests()
40 for (int i=0; i < script_req_l_arr_.size(); i++)
42 Articulation_req* l=script_req_l_arr_[i];
45 SCM list = gh_eval_str (("(articulation-to-scriptdef \"" + l->articulation_str_ + "\")").ch_C());
47 if (list == SCM_BOOL_F)
49 l->warning(_f("don't know how to interpret articulation `%s'\n",
50 l->articulation_str_.ch_C()));
53 Script *p =new Script;
54 Stem_staff_side_item * ss =new Stem_staff_side_item;
55 list = SCM_CDR (list);
57 p->set_elt_property (molecule_scm_sym,
61 bool follow_staff = gh_scm2bool (SCM_CAR(list));
63 int relative_stem_dir = gh_scm2int (SCM_CAR(list));
65 int force_dir =gh_scm2int (SCM_CAR(list));
67 SCM priority = SCM_CAR(list);
69 if (relative_stem_dir)
70 ss->relative_dir_ = relative_stem_dir;
74 Scalar dir_prop (get_property ("articulationScriptVerticalDirection", 0));
75 if (dir_prop.isnum_b () && (int) dir_prop != CENTER)
76 ss->dir_ = (int) dir_prop;
82 Scalar paddingprop = get_property ("articulationScriptPadding", 0);
83 if (paddingprop.length_i() && paddingprop.isnum_b ())
85 padding = (Real)paddingprop;
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);
93 ss->set_elt_property (padding_scm_sym, gh_double2scm(padding));
94 script_p_arr_.push (p);
95 staff_side_p_arr_.push (ss);
97 announce_element (Score_element_info (p, l));
98 announce_element (Score_element_info (ss, l));
103 Script_engraver::acknowledge_element (Score_element_info inf)
105 if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
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]))
114 else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
116 for (int i=0; i < staff_side_p_arr_.size(); i++)
118 Staff_side_item * ss = dynamic_cast<Staff_side_item*>(staff_side_p_arr_[i]);
120 if (!ss->dim_cache_[X_AXIS]->parent_l_)
122 ss->dim_cache_[X_AXIS]->parent_l_ = inf.elem_l_->dim_cache_[X_AXIS];
124 ss->add_support (rh);
130 Script_engraver::do_pre_move_processing()
132 for (int i=0; i < script_p_arr_.size(); i++)
134 typeset_element (script_p_arr_[i]);
135 typeset_element (staff_side_p_arr_[i]);
137 script_p_arr_.clear();
138 staff_side_p_arr_.clear ();
142 Script_engraver::do_post_move_processing()
144 script_req_l_arr_.clear();
149 ADD_THIS_TRANSLATOR(Script_engraver);