#include "system.hh"
#include "font-interface.hh"
-
LY_DEFINE (ly_grob_set_property_x, "ly:grob-set-property!",
3, 0, 0, (SCM grob, SCM sym, SCM val),
"Set @var{sym} in grob @var{grob} to value @var{val}")
return sc->internal_get_object (sym);
}
-
LY_DEFINE (ly_spanner_get_bound, "ly:spanner-get-bound",
2, 0, 0, (SCM slur, SCM dir),
"Get one of the bounds of @var{spanner}. @var{dir} is @code{-1} "
if (global == SCM_UNDEFINED)
global = SCM_EOL;
}
-
+
return sc->get_property_alist_chain (global);
}
}
-
LY_DEFINE (ly_grob_default_font, "ly:grob-default-font",
1, 0, 0, (SCM grob),
"Return the default font for grob @var{gr}.")