X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsimple-spacer.cc;h=bf64413a8a4eb28badd8d1e969d6ecd5b4601703;hb=cf11a6cd3300b5ed7e6cbe8c461adebc3bab1618;hp=ada16593aa7e6b1441360413f714cc58d2a1afc5;hpb=658c44d32fe6406c472152875346d63211c7bae2;p=lilypond.git diff --git a/lily/simple-spacer.cc b/lily/simple-spacer.cc index ada16593aa..bf64413a8a 100644 --- a/lily/simple-spacer.cc +++ b/lily/simple-spacer.cc @@ -195,7 +195,8 @@ Simple_spacer::expand_line () if (inv_hooke == 0.0) /* avoid division by zero. If springs are infinitely stiff */ 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_; } @@ -219,8 +220,8 @@ Simple_spacer::compress_line () fits_ = true; - assert (line_len_ <= cur_len); - + if (line_len_ > (1 + 1e-6) * cur_len) + programming_error ("misuse of compress_line"); vector sorted_springs = springs_; sort (sorted_springs.begin (), sorted_springs.end (), greater ()); @@ -248,7 +249,9 @@ Simple_spacer::compress_line () /* 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; } @@ -380,7 +383,7 @@ get_column_description (vector const &cols, vsize col_index, bool line_s for (SCM s = Spaceable_grob::get_minimum_distances (col); scm_is_pair (s); s = scm_cdr (s)) { - Grob *other = Grob::unsmob (scm_caar (s)); + Grob *other = unsmob (scm_caar (s)); vsize j = binary_search (cols, other, Paper_column::less_than, col_index); if (j != VPOS) {