예제 #1
0
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));
}
예제 #2
0
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));
}