-LY_DEFINE (ly_paper_get_font, "ly:paper-get-font", 2, 0, 0,
- (SCM paper, SCM chain),
-
- "Return a font metric satisfying the font-qualifiers "
- "in the alist chain @var{chain}.\n"
- "(An alist chain is a list of alists, containing grob properties).\n")
-{
- Paper_def *pap = unsmob_paper (paper);
- SCM_ASSERT_TYPE (pap, paper, SCM_ARG1, __FUNCTION__, "paper definition");
-
- Font_metric *fm = select_font (pap, chain);
- return fm->self_scm ();
-}
-
-LY_DEFINE (ly_paper_get_number, "ly:paper-get-number", 2, 0, 0,
- (SCM paper, SCM name),
- "Return the paper variable @var{name}.")
-{
- Paper_def *pap = unsmob_paper (paper);
- SCM_ASSERT_TYPE (pap, paper, SCM_ARG1, __FUNCTION__, "paper definition");
- return scm_make_real (pap->get_dimension (name));
-}
-
-bool
-wild_compare (SCM field_val, SCM val)
-{
- return (val == SCM_BOOL_F || field_val == ly_symbol2scm ("*") || field_val == val);
-}
-
-
-/*
- TODO: this triggers a great number of font-loads (feta11 upto
- parmesan23). We could make a Delayed_load_font_metric for which the
- design size is specced in advance.
- */
-Font_metric*
-get_font_by_design_size (Paper_def* paper, Real requested,
- SCM font_vector)