- Real step = robust_scm2double (ly_symbol2scm ("font-size"), 0.0);
- Real size = layout->get_dimension (ly_symbol2scm ("text-font-size"))
- * pow (2.0, step / 6.0) * point_constant;
- pango_font_description_set_size (description,
- gint (size * PANGO_SCALE));
-
- Font_metric * fm = all_fonts_global->find_pango_font (description);
-
- return find_scaled_font (layout, fm, 1.0,
- ly_symbol2scm ("latin1"),
- ly_symbol2scm ("latin1"));
+ Real step = robust_scm2double (ly_chain_assoc_get (ly_symbol2scm ("font-size"), chain, SCM_BOOL_F),
+ 0.0);
+ Real size = text_size * pow (2.0, step / 6.0);
+
+ pango_font_description_set_size (description, gint (size * PANGO_SCALE));
+ return description;