- Box b;
- Modified_font_metric*fm = dynamic_cast<Modified_font_metric*>
- (unsmob_metrics (font));
- SCM_ASSERT_TYPE (fm, font, SCM_ARG1, __FUNCTION__, "modified font metric");
- SCM_ASSERT_TYPE (ly_c_string_p (text), text, SCM_ARG2, __FUNCTION__, "string");
-
- b = fm->text_dimension (ly_scm2string (text));
-
- return scm_cons (ly_interval2scm (b[X_AXIS]), ly_interval2scm (b[Y_AXIS]));