/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1999--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1999--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
TODO:
- add support for different stretch/shrink constants?
#include "spring.hh"
#include "warn.hh"
+using std::vector;
+
/*
A simple spacing constraint solver. The approach:
return;
}
- force_ = max (force_, block_force);
+ force_ = std::max (force_, block_force);
for (int i = l; i < r; i++)
- springs_[i].set_blocking_force (max (block_force, springs_[i].blocking_force ()));
+ springs_[i].set_blocking_force (std::max (block_force, springs_[i].blocking_force ()));
}
Real
return l;
}
+void
+Simple_spacer::set_force (Real force)
+{
+ force_ = force;
+}
+
void
Simple_spacer::solve (Real line_len, bool ragged)
{
inv_hooke += springs_[i].inverse_stretch_strength ();
if (inv_hooke == 0.0) /* avoid division by zero. If springs are infinitely stiff */
- return 0.0; /* anyway, then it makes no difference what the force is */
+ inv_hooke = 1e-6; /* then report a very large stretching force */
- assert (cur_len <= line_len_);
+ if (cur_len > (1 + 1e-6) * line_len_)
+ programming_error ("misuse of expand_line");
return (line_len_ - cur_len) / inv_hooke + force_;
}
fits_ = true;
- assert (line_len_ <= cur_len);
-
+ if (line_len_ > (1 + 1e-6) * cur_len)
+ programming_error ("misuse of compress_line");
vector<Spring> sorted_springs = springs_;
- sort (sorted_springs.begin (), sorted_springs.end (), greater<Spring> ());
+ sort (sorted_springs.begin (), sorted_springs.end (), std::greater<Spring> ());
/* inv_hooke is the total flexibility of currently-active springs */
double inv_hooke = 0;
/*
Paranoia check.
*/
- assert (fabs (configuration_length (cur_force) - cur_len) < 1e-6);
+ if (fabs (configuration_length (cur_force) - cur_len) > 1e-6 * cur_len)
+ programming_error (to_string ("mis-predicted force, %.6f ~= %.6f",
+ cur_len, configuration_length(cur_force)));
return cur_force;
}
void
Simple_spacer::add_spring (Spring const &sp)
{
- force_ = max (force_, sp.blocking_force ());
+ force_ = std::max (force_, sp.blocking_force ());
springs_.push_back (sp);
}
but according to the amount of whitespace that is present after the end
of the line. */
if (ragged)
- return max (0.0, line_len_ - configuration_length (0.0));
+ return std::max (0.0, line_len_ - configuration_length (0.0));
/* Use a convex compression penalty. */
Real f = force_;
if (next_col)
description.spring_ = Spaceable_grob::get_spring (col, next_col);
- Grob *end_col = dynamic_cast<Item *> (cols[col_index + 1])->find_prebroken_piece (LEFT);
- if (end_col)
- description.end_spring_ = Spaceable_grob::get_spring (col, end_col);
+ if (col_index + 1 < cols.size ())
+ {
+ Grob *end_col = dynamic_cast<Item *> (cols[col_index + 1])->find_prebroken_piece (LEFT);
+ if (end_col)
+ description.end_spring_ = Spaceable_grob::get_spring (col, end_col);
+ }
for (SCM s = Spaceable_grob::get_minimum_distances (col);
scm_is_pair (s); s = scm_cdr (s))
{
- Grob *other = unsmob_grob (scm_caar (s));
+ Grob *other = unsmob<Grob> (scm_caar (s));
vsize j = binary_search (cols, other, Paper_column::less_than, col_index);
if (j != VPOS)
{
if (cols[j] == other)
description.rods_.push_back (Rod_description (j, scm_to_double (scm_cdar (s))));
else /* it must end at the LEFT prebroken_piece */
+ /* see Spanner::set_spacing_rods for more comments on how
+ to deal with situations where we don't know if we're
+ ending yet on the left prebroken piece */
description.end_rods_.push_back (Rod_description (j, scm_to_double (scm_cdar (s))));
}
}
for (vsize i = 1; i + 1 < ret.cols_.size (); i++)
{
SCM p = ret.cols_[i]->get_property ("line-break-permission");
- if (p == ly_symbol2scm ("force"))
+ if (scm_is_eq (p, ly_symbol2scm ("force")))
ret.satisfies_constraints_ = false;
}
return ret;
}
-