- Direction d = LEFT;
- Drul_array<Note_head *> new_head_drul;
- new_head_drul[LEFT] = head(LEFT);
- new_head_drul[RIGHT] = head(RIGHT);
- do {
- if (!head (d))
- new_head_drul[d] = head((Direction)-d);
- } while (flip(&d) != LEFT);
+SCM
+Tie::get_control_points (SCM smob)
+{
+ Spanner*me = dynamic_cast<Spanner*> (unsmob_grob (smob));
+ Direction headdir = CENTER;
+ if (head (me,LEFT))
+ headdir = LEFT;
+ else if (head(me,RIGHT))
+ headdir = RIGHT;
+ else
+ {
+ programming_error ("Tie without heads.");
+ me->suicide ();
+ return SCM_UNSPECIFIED;
+ }
+
+ if (!Directional_element_interface::get (me))
+ Directional_element_interface::set (me, Tie::get_default_dir (me));
+
+ Real staff_space = Staff_symbol_referencer::staff_space (me);
+
+ Real x_gap_f = gh_scm2double (me->get_grob_property ("x-gap"));