2 script-engraver.cc -- implement G_script_engraver
4 (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 #include "g-script-engraver.hh"
9 #include "g-stem-staff-side.hh"
10 #include "musical-request.hh"
12 #include "staff-symbol.hh"
13 #include "rhythmic-head.hh"
15 G_script_engraver::G_script_engraver()
17 do_post_move_processing();
21 G_script_engraver::do_try_music (Music *r_l)
23 if (Articulation_req *mr = dynamic_cast <Articulation_req *> (r_l))
25 for (int i=0; i < script_req_l_arr_.size(); i++)
27 if (script_req_l_arr_[i]->equal_b (mr))
30 script_req_l_arr_.push (mr);
37 G_script_engraver::do_process_requests()
39 for (int i=0; i < script_req_l_arr_.size(); i++)
41 Articulation_req* l=script_req_l_arr_[i];
44 SCM list = gh_eval_str (("(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'\n",
49 l->articulation_str_.ch_C()));
52 G_script *p =new G_script;
53 G_stem_staff_side_item * ss =new G_stem_staff_side_item;
54 list = SCM_CDR (list);
56 p->set_elt_property (molecule_scm_sym,
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_ = relative_stem_dir;
76 ss->staff_support_b_ = !follow_staff;
77 p->set_staff_side (ss);
78 ss->set_elt_property (script_priority_scm_sym, priority);
79 ss->set_elt_property (padding_scm_sym, gh_double2scm(1.0));
80 script_p_arr_.push (p);
81 staff_side_p_arr_.push (ss);
83 announce_element (Score_element_info (p, l));
84 announce_element (Score_element_info (ss, l));
89 G_script_engraver::acknowledge_element (Score_element_info inf)
91 if (Stem *s = dynamic_cast<Stem*>(inf.elem_l_))
93 for (int i=0; i < staff_side_p_arr_.size(); i++)
94 if (G_stem_staff_side_item * ss = dynamic_cast<G_stem_staff_side_item*>(staff_side_p_arr_[i]))
100 else if (Rhythmic_head * rh = dynamic_cast<Rhythmic_head*>(inf.elem_l_))
102 for (int i=0; i < staff_side_p_arr_.size(); i++)
104 G_staff_side_item * ss = dynamic_cast<G_staff_side_item*>(staff_side_p_arr_[i]);
106 if (!ss->dim_cache_[X_AXIS]->parent_l_)
108 ss->dim_cache_[X_AXIS]->parent_l_ = inf.elem_l_->dim_cache_[X_AXIS];
110 ss->add_support (rh);
116 G_script_engraver::do_pre_move_processing()
118 for (int i=0; i < script_p_arr_.size(); i++)
120 typeset_element (script_p_arr_[i]);
121 typeset_element (staff_side_p_arr_[i]);
123 script_p_arr_.clear();
124 staff_side_p_arr_.clear ();
128 G_script_engraver::do_post_move_processing()
130 script_req_l_arr_.clear();
135 ADD_THIS_TRANSLATOR(G_script_engraver);