- SCM s = me->get_grob_property ("number-threshold");
- if (measures > gh_scm2int (s))
- {
- Molecule s = Text_item::text2molecule (me,
- scm_makfrom0str (to_string (measures).to_str0 ()),
- alist_chain);
-
- s.align_to (X_AXIS, CENTER);
- s.translate_axis (gh_scm2double (me->get_grob_property ("padding")) + 2,
- Y_AXIS);
-
- s.translate_axis (mol.extent (X_AXIS).center (), X_AXIS);
- mol.add_molecule (s);
- }