- // UGH. First try: just make the hyphen take 1/3 of the available space
- // for length, use a geometric mean of the available space and some minimum
- Real l = paper_l ()->get_var ("hyphen_minimum_length");
- if(l < w)
- l = sqrt(l*w);
- Molecule a = lookup_l ()->filledbox ( Box (Interval ((w-l)/2,(w+l)/2), Interval (h,h+th)));
- a.translate (Offset (dx_f_drul_[LEFT], 0));
+ // interval?
+
+ Real dp = robust_scm2double (sp->get_grob_property ("dash-period"), 1.0);
+ Real dl = robust_scm2double (sp->get_grob_property ("length"), .5 );