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 "side-position-interface.hh"
10 #include "musical-request.hh"
12 #include "staff-symbol.hh"
13 #include "rhythmic-head.hh"
14 #include "dimension-cache.hh"
16 ADD_THIS_TRANSLATOR (Script_engraver);
18 Script_engraver::Script_engraver ()
20 do_post_move_processing ();
24 Script_engraver::do_try_music (Music *r_l)
26 if (Articulation_req *mr = dynamic_cast <Articulation_req *> (r_l))
28 for (int i=0; i < script_req_l_arr_.size(); i++)
30 if (script_req_l_arr_[i]->equal_b (mr))
33 script_req_l_arr_.push (mr);
40 Script_engraver::do_process_requests()
42 for (int i=0; i < script_req_l_arr_.size(); i++)
44 Articulation_req* l=script_req_l_arr_[i];
46 SCM list = ly_eval_str (("(articulation-to-scriptdef \"" + l->articulation_str_ + "\")").ch_C());
48 if (list == SCM_BOOL_F)
50 l->warning (_f ("Don't know how to interpret articulation `%s'",
51 l->articulation_str_.ch_C ()));
54 Script *p =new Script;
55 Side_position_interface stafy (p);
59 p->set_elt_property ("molecule",
63 bool follow_staff = gh_scm2bool (gh_car (list));
65 int relative_stem_dir = gh_scm2int (gh_car (list));
67 int force_dir =gh_scm2int (gh_car (list));
69 SCM priority = gh_car (list);
72 if (relative_stem_dir)
73 p->set_elt_property ("side-relative-direction", gh_int2scm (relative_stem_dir));
75 stafy.set_direction ((Direction)force_dir);
77 if (l->get_direction ())
78 stafy.set_direction (l->get_direction ());
80 SCM axisprop = get_property ("scriptHorizontal",0);
81 bool xaxis = to_boolean (axisprop);
83 stafy.set_axis (X_AXIS);
85 stafy.set_axis (Y_AXIS);
87 if (!follow_staff && ! xaxis)
88 p->set_elt_property ("staff-support", SCM_BOOL_T);
90 if (!xaxis && follow_staff)
91 stafy.set_quantised (Y_AXIS);
93 p->set_elt_property ("script-priority", priority);
95 script_p_arr_.push (p);
97 announce_element (Score_element_info (p, l));
102 Script_engraver::acknowledge_element (Score_element_info inf)
104 if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
106 for (int i=0; i < script_p_arr_.size(); i++)
108 Side_position_interface stafy (script_p_arr_[i]);
109 stafy.elt_l_->set_elt_property ("direction-source", s->self_scm_);
110 stafy.add_support (s);
113 else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
115 for (int i=0; i < script_p_arr_.size(); i++)
117 Side_position_interface stafy(script_p_arr_[i]);
119 if (!stafy.elt_l_->parent_l (X_AXIS))
121 stafy.elt_l_->set_parent (inf.elem_l_, X_AXIS);
123 if (stafy.get_axis () == X_AXIS
124 && !stafy.elt_l_->parent_l (Y_AXIS))
125 stafy.elt_l_->set_parent (rh, Y_AXIS);
127 stafy.add_support (rh);
133 Script_engraver::do_pre_move_processing()
135 for (int i=0; i < script_p_arr_.size(); i++)
137 typeset_element (script_p_arr_[i]);
139 script_p_arr_.clear();
143 Script_engraver::do_post_move_processing()
145 script_req_l_arr_.clear();