- Grob *me = unsmob_grob (smob);
- int l = gh_scm2int (me->get_grob_property ("duration-log"));
-
- int b = (l >= 2);
- SCM at = scm_list_n (ly_symbol2scm ("ez-ball"),
- me->get_grob_property ("note-character"),
- gh_int2scm (b),
- gh_int2scm (1-b),
- SCM_UNDEFINED);
- Box bx (Interval (0, 1.0), Interval (-0.5, 0.5));
- Molecule m (bx, at);
- int p = (int) rint (Staff_symbol_referencer::position_f (me));
-
- int sz = Staff_symbol_referencer::line_count (me)-1;
- int streepjes_i = abs (p) < sz
- ? 0
- : (abs (p) - sz) /2;
-
- if (streepjes_i)
- {
- Direction dir = (Direction)sign (p);
- Interval hd = m.extent (X_AXIS);
- Real hw = hd.length ()/4;
- m.add_molecule (ledger_lines (me, streepjes_i, dir,
- Interval (hd[LEFT] - hw,
- hd[RIGHT] + hw)));
- }