- {
- m = gh_int2scm (1);
- }
-
- daddy_trans_->set_property ("rehearsalMark", m);
-
- text_->set_grob_property ("text",
- scm_makfrom0str (t.to_str0 ()));
-
- SCM series = SCM_EOL;
- SCM family = ly_symbol2scm ("number");
- for (int i=0; i < t.length (); i++)
- {
- if (!isdigit (t[i]))
- {
- series = ly_symbol2scm ("bold");
- family = ly_symbol2scm ("roman");
- break;
- }
- }
- if (gh_symbol_p (series))
- text_->set_grob_property ("font-series", series);
- if (gh_symbol_p (family))
- text_->set_grob_property ("font-family", family);