Merge branch 'master' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond into lilypond...

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

diff --git a/lily/page-spacing-result.cc b/lily/page-spacing-result.cc
index f677476b34a731abfcdddd6e3a09b5b61dd219d1..f3d5b21e22c82b818d7a24d00e8a7e9c3200bc52 100644 (file)
--- a/lily/page-spacing-result.cc
+++ b/lily/page-spacing-result.cc
@@ -3,11 +3,12 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2007 Han-Wen Nienhuys <hanwen@lilypond.org>
+  (c) 2007--2009 Han-Wen Nienhuys <hanwen@lilypond.org>
   
 */
 
 #include "page-spacing-result.hh"
+#include <cstdio>
 
 Page_spacing_result::Page_spacing_result ()
 {
@@ -41,3 +42,12 @@ Page_spacing_result::average_force () const
   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]);
+}