+ SCM brewer = me->get_property ("print-function");
+ Font_metric * fm = Font_interface::get_default_font (me);
+
+ if (brewer == Note_head::print_proc)
+ {
+ SCM style = me->get_property ("style");
+ if (!ly_c_symbol_p (style))
+ {
+ return 0.0;
+ }
+
+ SCM log = scm_int2num (Note_head::get_balltype (me));
+ SCM proc = me->get_property ("glyph-name-procedure");
+ SCM scm_font_char = scm_call_2 (proc, log, style);
+ String font_char = "noteheads-" + ly_scm2string (scm_font_char);