-Lookup const *
-Paper_def::lookup_l (int i) const
-{
- SCM l = scm_assq (gh_int2scm(i), lookup_alist_);
- return l == SCM_BOOL_F ? 0 : unsmob_lookup (gh_cdr (l));
-}
+ SCM table = get_pango_font_table (layout);
+ SCM sizes = scm_hash_ref (table, descr, SCM_EOL);
+ SCM size_key = scm_from_double (factor);
+ SCM handle = scm_assoc (size_key, sizes);
+ if (scm_is_pair (handle))
+ return unsmob_metrics (scm_cdr (handle));