- /*
- ugh: use gh_call () / scm_apply ().
-
- UGH: use grob-property.
- */
- SCM log = gh_int2scm (Rhythmic_head::balltype_i (me));
- SCM exp = scm_list_n (ly_symbol2scm ("find-notehead-symbol"), log,
- ly_quote_scm (style),
- SCM_UNDEFINED);
- String name = "noteheads-" + ly_scm2string (scm_primitive_eval (exp));
- Molecule out = Font_interface::get_default_font (me)->find_by_name (name);
-
- if (streepjes_i)
- {
- Direction dir = (Direction)sign (p);
- Interval hd = out.extent (X_AXIS);
- Real hw = hd.length ()/4;
- out.add_molecule (Note_head::ledger_lines (me, ledger_take_space, streepjes_i, dir,
- Interval (hd[LEFT] - hw,
- hd[RIGHT] + hw)));
- }