font math_font (scheme_tree t, font base_fn, font error_fn, double zf) { string full_name= "compound-" * scheme_tree_to_string (t); if (zf != 1.0) full_name= full_name * "-zoom=" * as_string (zf); return make (font, full_name, tm_new<math_font_rep> (full_name, t, base_fn, error_fn, zf)); }
font math_font (scheme_tree t, font base_fn, font error_fn) { string full_name= "compound-" * scheme_tree_to_string (t); return make (font, full_name, tm_new<math_font_rep> (full_name, t, base_fn, error_fn)); }