- 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()));
+ if (i < started_spanners_.size () && started_spanners_[i])
+ continue;
+
+ Spanner* glep = make_spanner ("TupletBracket", time_scaled_musics_ [i]->self_scm ());
+
+ if (i >= started_spanners_.size ())
+ started_spanners_.push (glep);
+ else
+ started_spanners_[i] = glep;
+
+
+ SCM proc = get_property ("tupletNumberFormatFunction");
+ if (ly_c_procedure_p (proc))
+ {
+ SCM t = scm_apply_0 (proc, scm_list_n (time_scaled_musics_[i]->self_scm (), SCM_UNDEFINED));
+ glep->set_property ("text", t);
+ }