+MAKE_SCHEME_CALLBACK (Multi_measure_rest,percent,1);
+SCM
+Multi_measure_rest::percent (SCM smob)
+{
+
+ Grob *me = unsmob_grob (smob);
+ Spanner *sp = dynamic_cast<Spanner*> (me);
+
+ Molecule r = Percent_repeat_item_interface::x_percent (me, 1, 0.75, 1.6);
+
+ // ugh copy & paste.
+
+ Interval sp_iv;
+ Direction d = LEFT;
+ do
+ {
+ Item * col = sp->get_bound (d)->column_l ();
+
+ Interval coldim = col->extent (0, X_AXIS);
+
+ sp_iv[d] = coldim[-d] ;
+ }
+ while ((flip (&d)) != LEFT);
+ Real x_off = 0.0;
+
+ Real rx = sp->get_bound (LEFT)->relative_coordinate (0, X_AXIS);