- Box b(Interval (0, 0 >? (width - 2 * ythick)), Interval (-y, y));
-
- Real blot = width ? (.8 * (y <? ythick)) : 0.0;
-
- Molecule m = Lookup::round_filled_box (b, blot);
- Molecule yb = Lookup::round_filled_box (Box (Interval (-0.5, 0.5)* ythick, Interval (-ss, ss)), blot);
+ Box b (Interval (0.0, max (0.0, (width - 2 * ythick))), Interval (-y, y));
+
+ Real blot = width ? (.8 * min (y, ythick)) : 0.0;
+
+ Stencil m = Lookup::round_filled_box (b, blot);
+ Stencil yb = Lookup::round_filled_box (Box (Interval (-0.5, 0.5) * ythick, Interval (-ss, ss)), blot);