+ PangoFontDescription *description
+ = pango_font_description_from_string (scm_i_string_chars (descr));
+
+ pango_font_description_set_size
+ (description,
+ gint (my_round (factor * pango_font_description_get_size (description))));
+
+ Font_metric *fm = all_fonts_global->find_pango_font (description,
+ output_scale (layout));
+
+ pango_font_description_free (description);
+
+ sizes = scm_acons (size_key, fm->self_scm (), sizes);
+ scm_hash_set_x (table, descr, sizes);
+
+ return fm;