- if (!has_interface_b ())
- {
- elt_l_->set_elt_property ("elements", SCM_EOL);
- elt_l_->set_elt_property ("transparent", SCM_BOOL_T); // junk this?
- elt_l_->set_elt_property ("axes" , SCM_EOL);
- group (elt_l_, "interfaces").add_thing (ly_symbol2scm ("Axis_group"));
- }
-}
-
-void
-Axis_group_interface::set_axes (Axis a1, Axis a2)
-{
- // set_interface () ?
-
- SCM ax = gh_cons (gh_int2scm (a1), SCM_EOL);
- if (a1 != a2)
- ax= gh_cons (gh_int2scm (a2), ax);