- SCM s = get_property ("basicMarkProperties");
- text_p_ = new Text_item (s);
-
- Group_interface (text_p_, "interfaces").add_thing (ly_symbol2scm ("Mark"));
- Side_position_interface staffside(text_p_);
- staffside.set_axis (Y_AXIS);
-
- /*
- -> Generic props.
- */
- SCM prop = get_property ("markDirection");
- if (!isdir_b (prop))
- {
- prop = gh_int2scm (UP);
- }
- text_p_->set_elt_property ("direction", prop);
-
- SCM padding = get_property ("markScriptPadding");
- if (gh_number_p(padding))
- {
- text_p_->set_elt_property ("padding", padding);
- }
- else
- {
- text_p_
- ->set_elt_property ("padding",
- gh_double2scm(paper_l ()->get_var ("interline")));
- }
-
-
- announce_element (Score_element_info (text_p_, rq));
-}
-
-
-void
-Mark_engraver::do_post_move_processing ()
-{
- mark_req_l_ = 0;