Run `make grand-replace'.

[lilypond.git] / lily / page-spacing-result.cc

diff --git a/lily/page-spacing-result.cc b/lily/page-spacing-result.cc
index 510567e1ac5584ba69f320f23f270f8d70b0ed41..93c737c83949786f2289904c94cac371138f5c7a 100644 (file)
--- a/lily/page-spacing-result.cc
+++ b/lily/page-spacing-result.cc
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2007 Han-Wen Nienhuys <hanwen@lilypond.org>
+  (c) 2007--2008 Han-Wen Nienhuys <hanwen@lilypond.org>
   
 */
 
@@ -30,3 +30,23 @@ Page_spacing_result::page_count () const
 {
   return systems_per_page_.size();
 }
+
+Real
+Page_spacing_result::average_force () const
+{
+  Real average_force = 0;
+  for (vsize i = 0; i < page_count (); i++)
+    average_force += force_[i];
+
+  average_force /= page_count ();
+  return average_force;
+}
+
+void
+Page_spacing_result::print () const
+{
+  printf ("penalty %lf, demerits %lf\n" , penalty_, demerits_);
+  for (vsize i = 0; i < page_count (); i++)
+    printf (" %d:  #sys=%d, force=%lf\n", int (i), int (systems_per_page_[i]),
+           force_[i]);
+}