-Real
-Paper_def::geometric_spacing(Moment d) const
-{
- Real dur_f = (d) ?pow (get_var ("geometric"), log_2(d)) : 0;
- return get_var ("basicspace") + get_var ("unitspace") * dur_f;
-}
+ 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<Font_metric> (scm_cdr (handle));