- Tuplet_spanner* glep = new Tuplet_spanner;
- started_span_p_arr_.push (glep);
- glep->set_elt_property ("text",
- ly_str02scm (to_str (time_scaled_music_arr_[i]->den_i_).ch_C()));
-
- glep->set_elt_property("tuplet-visibility",
- gh_int2scm (visibility));
- if (dir != 0)
- glep->set_elt_property("dir-forced", gh_int2scm (dir));
- announce_element (Score_element_info (glep, time_scaled_music_arr_ [i]));
+ if (tuplets_[i].spanner_)
+ continue;
+
+ Spanner *spanner = make_spanner ("TupletBracket",
+ tuplets_[i].music_->self_scm ());
+ tuplets_[i].spanner_ = spanner;
+
+ SCM proc = get_property ("tupletNumberFormatFunction");
+ if (ly_c_procedure_p (proc))
+ {
+ SCM t = scm_apply_0 (proc, scm_list_1 (tuplets_[i].music_->self_scm ()));
+ spanner->set_property ("text", t);
+ }