- Staff_symbol_referencer_interface si(c);
- si.set_interface ();
-
- clef_p_ = c;
- }
- Staff_symbol_referencer_interface si(clef_p_);
- clef_p_->set_elt_property ("glyph", clef_glyph_);
- si.set_position (clef_position_i_);
- if (octave_dir_)
- {
- Text_item * g = new Text_item;
- Side_position_interface spi (g);
- spi.set_axis (Y_AXIS);
- spi.add_support (clef_p_);
- g->set_elt_property ("text", ly_str02scm ( "8"));
- g->set_elt_property ("style", gh_str02scm ("italic"));
- g->set_parent (clef_p_, Y_AXIS);
- g->set_parent (clef_p_, X_AXIS);
+ SCM txt = scm_number_to_string (scm_int2num (abs_oct),
+ scm_from_int (10));
+
+ g->set_property ("text",
+ scm_list_n (ly_scheme_function ("vcenter-markup"),
+ txt, SCM_UNDEFINED));
+ Side_position_interface::add_support (g,clef_);
+
+ g->set_parent (clef_, Y_AXIS);
+ g->set_parent (clef_, X_AXIS);
+ g->set_property ("direction", scm_int2num (dir));
+ octavate_ = g;