+ SCM s = get_property (span_l->span_type_str_ + "Text");
+ if (gh_string_p (s))
+ {
+ cr_text_p_ = new Text_item;
+ cr_text_p_->set_elt_property ("text", s);
+ // urg
+ cr_text_p_->set_elt_property ("style", gh_str02scm ("italic"));
+ // ?
+ cr_text_p_->set_elt_property ("script-priority",
+ gh_int2scm (100));
+
+ /*
+ This doesn't work.
+ I'd like to have support like this:
+ |
+ x|
+ cresc. - - -
+
+ or
+ |
+ x|
+ ff cresc. - - -
+
+ */
+ if (0) //abs_text_p_)
+ {
+ Side_position_interface (cr_text_p_).set_axis (X_AXIS);
+ Side_position_interface (cr_text_p_).add_support (abs_text_p_);
+ }
+ //Side_position_interface (cr_text_p_).set_axis (Y_AXIS);
+ announce_element (Score_element_info (cr_text_p_, span_l));
+ }
+
+ s = get_property (span_l->span_type_str_ + "Spanner");
+ if (gh_string_p (s)) //&& ly_scm2string (s) != "hairpin")
+ {
+ new_cresc_p->set_elt_property ("spanner", s);
+ }
+