- if (!i->func_)
- continue;
-
- if (a_off.length () > 100 CM)
- {
- warning (_f("Improbable offset for object type `%s\'", nm));
- Axis a =X_AXIS;
- while (a < NO_AXES)
- {
- if (abs(a_off[a]) > 50 CM)
- a_off[a] = 50 CM;
- incr (a);
- }
- }
-
- if (i->font_)
- {
- output_scheme (gh_list (ly_symbol ("select-font"),
- gh_str02scm (symbol_to_string (i->font_).ch_C()),
- SCM_UNDEFINED));
- }
-
- SCM box_scm
- = gh_list (placebox_scm_sym,
- gh_double2scm (a_off.x ()),
- gh_double2scm (a_off.y ()),
- SCM(i->func_),
- SCM_UNDEFINED);
-
- output_scheme (box_scm);
- }
-}