- /* Tab notation feature: make stem end extend out of staff. */
- SCM up_to_staff = me->get_grob_property ("up-to-staff");
- if (to_boolean (up_to_staff))
- {
- int line_count = Staff_symbol_referencer::line_count (me);
- Direction dir = get_direction (me);
- Real ideal_y = dir * (line_count + 1.5);
- Real shortest_y = ideal_y;
-
- me->set_grob_property ("stem-info",
- scm_list_n (gh_double2scm (ideal_y),
- gh_double2scm (shortest_y),
- SCM_UNDEFINED));
- return;
- }
-
- Direction my_dir = Directional_element_interface::get (me);