- // hmm, without Interval/Drul_array, you get ~ 4x same code...
- if (fabs (y[LEFT] - dirs[LEFT] * beam_translation) < radius + inter)
- {
- if (dirs[LEFT] == UP && dy <= BEAM_EPS
- && fabs (my_modf (y[LEFT]) - sit) < BEAM_EPS)
- dem += extra_demerit;
-
- if (dirs[LEFT] == DOWN && dy >= BEAM_EPS
- && fabs (my_modf (y[LEFT]) - hang) < BEAM_EPS)
- dem += extra_demerit;
- }