2 font-interface-scheme.cc -- implement Font_interface bindings
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "font-interface.hh"
15 LY_DEFINE (ly_grob_default_font, "ly:grob-default-font",
17 "Return the default font for grob @var{gr}.")
19 Grob *gr = unsmob_grob (grob);
20 SCM_ASSERT_TYPE (gr, grob, SCM_ARG1, __FUNCTION__, "grob");
22 return Font_interface::get_default_font (gr)->self_scm ();