- 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"),
- ly_ch_C_to_scm (symbol_to_string (i->font_).ch_C()),
- SCM (i->magn_),
- 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);
- }
-}