-struct Quant_score
-{
- Real yl;
- Real yr;
- Real demerits;
-};
-
-
-/*
- TODO:
-
- - Make all demerits customisable
-
- - One sensible check per demerit (what's this --hwn)
-
- - Add demerits for quants per se, as to forbid a specific quant
- entirely
-
-*/
-MAKE_SCHEME_CALLBACK (Beam, quanting, 1);
-SCM
-Beam::quanting (SCM smob)
-{
- Grob *me = unsmob_grob (smob);
-
- SCM s = me->get_grob_property ("positions");
- Real yl = gh_scm2double (gh_car (s));
- Real yr = gh_scm2double (gh_cdr (s));
-
- Real ss = Staff_symbol_referencer::staff_space (me);
- Real thickness = gh_scm2double (me->get_grob_property ("thickness")) / ss;
- Real slt = me->paper_l ()->get_var ("linethickness") / ss;
-
-
- SCM sdy = me->get_grob_property ("least-squares-dy");
- Real dy_mus = gh_number_p (sdy) ? gh_scm2double (sdy) : 0.0;
-
- Real straddle = 0.0;
- Real sit = (thickness - slt) / 2;
- Real inter = 0.5;
- Real hang = 1.0 - (thickness - slt) / 2;
- Real quants [] = {straddle, sit, inter, hang };
-
- int num_quants = int (sizeof (quants)/sizeof (Real));
- Array<Real> quantsl;
- Array<Real> quantsr;
-
- /*
- going to REGION_SIZE == 2, yields another 0.6 second with
- wtk1-fugue2.
-
-
- (result indexes between 70 and 575) ? --hwn.
-
- */
-
-
-
- /*
- Do stem computations. These depend on YL and YR linearly, so we can
- precompute for every stem 2 factors.
- */
- Link_array<Grob> stems=
- Pointer_group_interface__extract_grobs (me, (Grob*)0, "stems");
- Array<Stem_info> stem_infos;
- Array<Real> lbase_lengths;
- Array<Real> rbase_lengths;
-
- Drul_array<bool> dirs_found(0,0);
-
- bool french = to_boolean (me->get_grob_property ("french-beaming"));
- for (int i= 0; i < stems.size(); i++)
- {
- Grob*s = stems[i];
- stem_infos.push (Stem::calc_stem_info (s));
- dirs_found[stem_infos.top ().dir_] = true;
-
- Real b = calc_stem_y (me, s, Interval (1,0), french && i > 0&& (i < stems.size () -1));
- lbase_lengths.push (b);
-
- Real a = calc_stem_y (me, s, Interval (0,1), french && i > 0&& (i < stems.size () -1));
- rbase_lengths.push (a);
- }
-
- Direction ldir = Direction (stem_infos[0].dir_);
- Direction rdir = Direction (stem_infos.top ().dir_);
- bool knee_b = dirs_found[LEFT] && dirs_found[RIGHT];
-
-
- int region_size = REGION_SIZE;
- /*
- Knees are harder, lets try some more possibilities for knees.
- */
- if (knee_b)
- region_size += 2;
-
- for (int i = -region_size ; i < region_size; i++)
- for (int j = 0; j < num_quants; j++)
- {
- quantsl.push (i + quants[j] + int (yl));
- quantsr.push (i + quants[j] + int (yr));
- }
-
- Array<Quant_score> qscores;
-
- for (int l =0; l < quantsl.size (); l++)
- for (int r =0; r < quantsr.size (); r++)
- {
- Quant_score qs;
- qs.yl = quantsl[l];
- qs.yr = quantsr[r];
- qs.demerits = 0.0;
-
- qscores.push (qs);
- }
-
-
- /*
- This is a longish function, but we don't separate this out into
- neat modular separate subfunctions, as the subfunctions would be
- called for many values of YL, YR. By precomputing various
- parameters outside of the loop, we can save a lot of time.
-
- */
- for (int i = qscores.size (); i--;)
- if (qscores[i].demerits < 100)
- {
- qscores[i].demerits
- += score_slopes_dy (me, qscores[i].yl, qscores[i].yr,
- dy_mus, yr- yl);
- }
-
- Real rad = Staff_symbol_referencer::staff_radius (me);
- int beam_count = get_beam_count (me);
- Real beam_space = beam_count < 4
- ? (2*ss + slt - thickness) / 2.0
- : (3*ss + slt - thickness) / 3.0;
-
- for (int i = qscores.size (); i--;)
- if (qscores[i].demerits < 100)
- {
- qscores[i].demerits
- += score_forbidden_quants (me, qscores[i].yl, qscores[i].yr,
- rad, slt, thickness, beam_space,
- beam_count, ldir, rdir);
- }
-
-
- for (int i = qscores.size (); i--;)
- if (qscores[i].demerits < 100)
- {
- qscores[i].demerits
- += score_stem_lengths (stems, stem_infos,
- lbase_lengths, rbase_lengths,
- knee_b,
- me, qscores[i].yl, qscores[i].yr);
- }
-
-
- Real best = 1e6;
- int best_idx = -1;
- for (int i = qscores.size (); i--;)
- {
- if (qscores[i].demerits < best)
- {
- best = qscores [i].demerits ;
- best_idx = i;
- }
- }
-
-
- me->set_grob_property ("positions",
- gh_cons (gh_double2scm (qscores[best_idx].yl),
- gh_double2scm (qscores[best_idx].yr))
- );
-
-#if DEBUG_QUANTING
-
- // debug quanting
- me->set_grob_property ("quant-score",
- gh_double2scm (qscores[best_idx].demerits));
- me->set_grob_property ("best-idx", gh_int2scm (best_idx));
-#endif
-
- return SCM_UNSPECIFIED;
-}
-
-Real
-Beam::score_stem_lengths (Link_array<Grob>stems,
- Array<Stem_info> stem_infos,
- Array<Real> left_factor,
- Array<Real> right_factor,
- bool knee,
- Grob*me,
- Real yl, Real yr)