- set_elt_property ("transparent", SCM_BOOL_T);
- set_empty (true, X_AXIS, Y_AXIS);
- }
- else
- {
- if (!get_direction ())
- set_direction (UP);
-
- int p = int (position_f ());
- if (!(p % 2))
- set_position (p + get_direction ());
+ Stencil d = Font_interface::get_default_font (sc)->find_by_name (String ("dots-dot"));
+ Real dw = d.extent (X_AXIS).length ();
+
+
+ /*
+ we need to add a real blank box, to assure that
+ side-positioning doth not cancel the left-most padding. */
+
+ /*
+ TODO: this should be handled by side-position padding.
+ */
+ mol = Lookup::blank (Box (Interval (0,0),
+ Interval (0,0)));
+
+ for (int i = ly_scm2int (c); i--;)
+ {
+ d.translate_axis (2*dw,X_AXIS);
+ mol.add_at_edge (X_AXIS, RIGHT, d, dw, 0);
+ }