-
- SCM font_size = ly_assoc_chain (ly_symbol2scm ("font-size"), chain);
- Real req = 0.0;
- if (gh_pair_p (font_size))
- req = gh_scm2double (ly_cdr (font_size));
-
- return get_font_by_mag_step (paper, req,
- vec, gh_scm2double (base_size));
+
+ SCM font_size = ly_chain_assoc (ly_symbol2scm ("font-size"), chain);
+ Real req = 0;
+ if (scm_is_pair (font_size))
+ req = scm_to_double (scm_cdr (font_size));
+
+ SCM font_encoding
+ = scm_cdr (ly_chain_assoc (ly_symbol2scm ("font-encoding"), chain));
+
+ return get_font_by_mag_step (layout, req, vec,
+ scm_to_double (base_size) * point_constant,
+ font_encoding, input_encoding);