-MAKE_SCHEME_CALLBACK (Clef,brew_molecule,1)
-SCM
-Clef::brew_molecule (SCM smob)
-{
- Grob * sc = unsmob_grob (smob);
- SCM glyph = sc->get_grob_property ("glyph-name");
- if (gh_string_p (glyph))
- {
- return Font_interface::get_default_font (sc)->find_by_name (String (ly_scm2string (glyph))).smobbed_copy ();
- }
- else
- {
- return SCM_EOL;
- }
-}
+ADD_INTERFACE (Clef, "clef-interface",
+ "A clef sign",
+ "non-default full-size-change glyph-name");
+