- int balltype = gh_scm2int (balltype_scm);
-
- String style;
- SCM style_sym =me->get_grob_property ("style");
- if (gh_symbol_p (style_sym))
- {
- style = ly_scm2string (scm_symbol_to_string (style_sym));
- }
+ string style;
+ SCM style_scm = me->get_property ("style");
+ if (scm_is_symbol (style_scm))
+ style = ly_scm2string (scm_symbol_to_string (style_scm));
+
+ Font_metric *fm = Font_interface::get_default_font (me);
+ string font_char = glyph_name (me, balltype, style, ledgered);
+ Stencil out = fm->find_by_name (font_char);
+ if (out.is_empty ())
+ me->warning (_f ("rest `%s' not found", font_char.c_str ()));
+
+ return out.smobbed_copy ();
+}
+
+SCM
+Rest::print (SCM smob)
+{
+ return brew_internal_stencil (unsmob_grob (smob), true);
+}