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];
44 SCM list = ly_ch_C_eval_scm (("(articulation-to-scriptdef \"" + l->articulation_str_ + "\")").ch_C());
46 if (list == SCM_BOOL_F)
48 l->warning (_f ("Don't know how to interpret articulation `%s'",
49 l->articulation_str_.ch_C ()));
52 Script *p =new Script;
53 Stem_staff_side_item * ss =new Stem_staff_side_item;
56 p->set_elt_property ("molecule",
60 bool follow_staff = gh_scm2bool (SCM_CAR(list));
62 int relative_stem_dir = gh_scm2int (SCM_CAR(list));
64 int force_dir =gh_scm2int (SCM_CAR(list));
66 SCM priority = SCM_CAR(list);
68 if (relative_stem_dir)
69 ss->relative_dir_ = (Direction)relative_stem_dir;
71 ss->set_direction ((Direction)force_dir);
73 SCM dir_prop (get_property ("articulationScriptVerticalDirection", 0));
74 if (gh_number_p(dir_prop))
75 ss->set_direction (to_dir (dir_prop));
77 if (l->get_direction ())
78 ss->set_direction (l->get_direction ());
80 SCM paddingprop = get_property ("articulationScriptPadding", 0);
81 if (gh_number_p(paddingprop))
83 ss->set_elt_property ("padding", paddingprop);
86 SCM axisprop = get_property ("scriptHorizontal",0);
87 if (gh_boolean_p (axisprop) && gh_scm2bool (axisprop))
90 if (follow_staff && !gh_boolean_p (axisprop) && gh_scm2bool (axisprop))
91 ss->set_elt_property ("no-staff-support", SCM_BOOL_T);
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);
99 script_p_arr_.push (p);
100 staff_side_p_arr_.push (ss);
102 announce_element (Score_element_info (p, l));
103 announce_element (Score_element_info (ss, l));
108 Script_engraver::acknowledge_element (Score_element_info inf)
110 if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
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]))
119 else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
121 for (int i=0; i < staff_side_p_arr_.size(); i++)
123 Staff_side_item * ss = dynamic_cast<Staff_side_item*>(staff_side_p_arr_[i]);
125 if (!ss->parent_l (X_AXIS))
127 ss->set_parent (inf.elem_l_, X_AXIS);
129 if (ss->axis_ == X_AXIS
130 && !ss->parent_l (Y_AXIS))
131 ss->set_parent (rh, Y_AXIS);
133 ss->add_support (rh);
139 Script_engraver::do_pre_move_processing()
141 for (int i=0; i < script_p_arr_.size(); i++)
143 typeset_element (script_p_arr_[i]);
144 typeset_element (staff_side_p_arr_[i]);
146 script_p_arr_.clear();
147 staff_side_p_arr_.clear ();
151 Script_engraver::do_post_move_processing()
153 script_req_l_arr_.clear();
156 ADD_THIS_TRANSLATOR(Script_engraver);