X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpage-spacing-result.cc;h=72164cc2bd7758c405d89a91dbba03cd83e6b497;hb=7c83ac2d86066ca8f41260d37e792e166ad5dbb6;hp=9a05ef802b1c87e9a05aaa95e32ec76e9059adb6;hpb=651887bf80f7d060457ef46a97341eec46688b44;p=lilypond.git

diff --git a/lily/page-spacing-result.cc b/lily/page-spacing-result.cc
index 9a05ef802b..72164cc2bd 100644
--- a/lily/page-spacing-result.cc
+++ b/lily/page-spacing-result.cc
@@ -24,3 +24,29 @@ Page_spacing_result::system_count () const
 
   return total;      
 }
+
+vsize
+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]);
+}