- Spanner *me = unsmob_spanner (smob);
- Spanner *parent = unsmob_spanner (me->get_property ("parent-spanner"));
- Spanner *p;
- message (_f ("foo %d", robust_scm2int (me->get_property ("spanner-to-annotate"), 0)));
- message (_f ("bar %d", robust_scm2int (me->broken_intos_[0]->get_property ("spanner-to-annotate"), 0)));
- if (parent->broken_intos_.size () == 0)
- p = parent;
- else
- p = parent->broken_intos_[robust_scm2int (me->get_property ("spanner-to-annotate"), 0) % parent->broken_intos_.size ()];
-
-
- Drul_array<Item *> bounds;
- Direction d = LEFT;
-
- do
- {
- bounds[d] = me->get_bound (d);
- }
- while (flip (&d) != LEFT);
-
- Grob *commonx = bounds[LEFT]->common_refpoint (bounds[RIGHT], X_AXIS);
-
- Offset off (me->relative_coordinate (commonx, X_AXIS),
- me->relative_coordinate (p, Y_AXIS));
-