-
-Item *
-make_item_from_properties (Engraver *tr, SCM x, SCM cause, const char *name)
-{
- Context *context = tr->context ();
-
- SCM props = updated_grob_properties (context, x);
-
- Object_key const *key = context->get_grob_key (name);
- Item *it = new Item (props, key);
-
- dynamic_cast<Engraver *> (tr)->announce_grob (it, cause);
-
- return it;
-}
-
-Spanner *
-make_spanner_from_properties (Engraver *tr, SCM x, SCM cause, const char *name)
-{
- Context *context = tr->context ();
-
- SCM props = updated_grob_properties (context, x);
- Spanner *it = new Spanner (props, context->get_grob_key (name));
-
- dynamic_cast<Engraver *> (tr)->announce_grob (it, cause);
-
- return it;
-}