- Item * p = dynamic_cast<Item*> (unsmob_element (smob));
-
- SCM d= p->get_elt_property ("dot-count");
- if (gh_number_p (d) && gh_scm2int (d))
- {
- if (!Directional_element_interface (p).get ())
- Directional_element_interface (p).set (UP);
-
- Staff_symbol_referencer_interface si (p);
- int pos = int (si.position_f ());
- if (!(pos % 2))
- si.set_position (pos + Directional_element_interface (p).get ());
- }
-
- return SCM_UNDEFINED;
-}