- int h1 = (gh_number_p (s1))? gh_scm2int (s1) :0;
- int h2 = (gh_number_p (s2)) ? gh_scm2int (s2):0;
- return h1 - h2;
-}
-
-void
-Note_column::set_interface (Score_element* me)
-{
- me->set_elt_property ("note-heads", SCM_EOL);
- me->set_interface (ly_symbol2scm ("note-column-interface"));
-
- Axis_group_interface::set_interface (me);
- Axis_group_interface::set_axes (me, X_AXIS, Y_AXIS);
+ int h1 = (scm_is_number (s1)) ? scm_to_int (s1) : 0;
+ int h2 = (scm_is_number (s2)) ? scm_to_int (s2) : 0;
+ return h1 < h2;