-
-IMPLEMENT_SMOBS (Font_metric);
-IMPLEMENT_DEFAULT_EQUAL_P (Font_metric);
-IMPLEMENT_TYPE_P (Font_metric, "ly:font-metric?");
-
-
-LY_DEFINE (ly_find_glyph_by_name, "ly:find-glyph-by-name",
- 2, 0, 0,
- (SCM font, SCM name),
- "This function retrieves a Stencil for the glyph named @var{name} "
- "in "
- "@var{font}. "
- "The font must be available as an AFM file. If the glyph "
- "is not found, @code{#f} is returned. ")
-{
- Font_metric *fm = unsmob_metrics (font);
- SCM_ASSERT_TYPE (fm, font, SCM_ARG1, __FUNCTION__, "font-metric");
- SCM_ASSERT_TYPE (ly_string_p (name), name, SCM_ARG2, __FUNCTION__, "string");
-
- Stencil m = fm->find_by_name (ly_scm2string (name));
-
- /* TODO: make optional argument for default if not found. */
- return m.smobbed_copy ();
-}
-
-LY_DEFINE (ly_get_glyph, "ly:get-glyph",
- 2, 0, 0,
- (SCM font, SCM index),
- "Retrieve a Stencil for the glyph numbered @var{index} "
- "in @var{font}.")
-{
- Font_metric *fm = unsmob_metrics (font);
- SCM_ASSERT_TYPE (fm, font, SCM_ARG1, __FUNCTION__, "font-metric");
- SCM_ASSERT_TYPE (ly_number_p (index), index, SCM_ARG2, __FUNCTION__, "number");
-
- return fm->get_ascii_char_stencil (ly_scm2int (index)).smobbed_copy ();
-}
-
-LY_DEFINE (ly_text_dimension,"ly:text-dimension",
- 2, 0, 0,
- (SCM font, SCM text),
- "Given the font metric in @var{font} and the string @var{text}, "
- "compute the extents of that text in that font. "
- "The return value is a pair of number-pairs.")
-{
- 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_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]));
-}
-
-LY_DEFINE (ly_font_name,"ly:font-name",
- 1, 0, 0,
- (SCM font),
- "Given the font metric @var{font}, "
- "return the corresponding file name.")