+ if (r->get_direction ())
+ stafy.set_direction (r->get_direction ());
+
+ text->set_elt_property ("text",
+ ly_str02scm ( r->text_str_.ch_C ()));
+
+ if (r->style_str_.length_i ())
+ text->set_elt_property ("style", ly_str02scm (r->style_str_.ch_C()));
+
+ SCM empty = get_property ("textEmptyDimension", 0);
+ if (to_boolean (empty))
+ {
+ text->set_empty (X_AXIS);
+ }
+
+ announce_element (Score_element_info (text, r));