Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / multi-measure-rest.cc

diff --git a/lily/multi-measure-rest.cc b/lily/multi-measure-rest.cc
index f3430479944c9571993a6c526304ce22d70a6ce9..997e76105d2a1764d8d2cdc8915375ec331b2a3d 100644 (file)
--- a/lily/multi-measure-rest.cc
+++ b/lily/multi-measure-rest.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1998--2005 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include "multi-measure-rest.hh"
@@ -16,7 +16,7 @@
 #include "misc.hh"
 #include "spanner.hh"
 #include "staff-symbol-referencer.hh"
-#include "text-item.hh"
+#include "text-interface.hh"
 #include "percent-repeat-item.hh"
 #include "lookup.hh"
 #include "separation-item.hh"
@@ -100,9 +100,7 @@ Multi_measure_rest::print (SCM smob)
   int measures = 0;
   SCM m (me->get_property ("measure-count"));
   if (scm_is_number (m))
-    {
-      measures = scm_to_int (m);
-    }
+    measures = scm_to_int (m);
 
   mol.translate_axis (x_off, X_AXIS);
   return mol.smobbed_copy ();
@@ -114,9 +112,7 @@ Multi_measure_rest::symbol_stencil (Grob *me, Real space)
   int measures = 0;
   SCM m (me->get_property ("measure-count"));
   if (scm_is_number (m))
-    {
-      measures = scm_to_int (m);
-    }
+    measures = scm_to_int (m);
   if (measures <= 0)
     return Stencil ();
 
@@ -133,7 +129,7 @@ Multi_measure_rest::symbol_stencil (Grob *me, Real space)
 
   Real staff_space = Staff_symbol_referencer::staff_space (me);
   Font_metric *musfont
-    = select_font (me->get_layout (), alist_chain);
+    = select_font (me->layout (), alist_chain);
 
   SCM sml = me->get_property ("use-breve-rest");
   if (measures == 1)
@@ -162,9 +158,7 @@ Multi_measure_rest::symbol_stencil (Grob *me, Real space)
        }
     }
   else
-    {
-      return church_rest (me, musfont, measures, space);
-    }
+    return church_rest (me, musfont, measures, space);
 }
 
 /*
@@ -177,7 +171,7 @@ Multi_measure_rest::big_rest (Grob *me, Real width)
   Real hair_thick = robust_scm2double (me->get_property ("hair-thickness"), .1);
 
   Real ss = Staff_symbol_referencer::staff_space (me);
-  Real slt = me->get_layout ()->get_dimension (ly_symbol2scm ("linethickness"));
+  Real slt = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness"));
   Real y = slt * thick_thick / 2 * ss;
   Real ythick = hair_thick * slt * ss;
   Box b (Interval (0.0, max (0.0, (width - 2 * ythick))), Interval (-y, y));
@@ -285,17 +279,14 @@ Multi_measure_rest::add_column (Grob *me, Item *c)
   add_bound_item (dynamic_cast<Spanner *> (me), c);
 }
 
-MAKE_SCHEME_CALLBACK (Multi_measure_rest, set_spacing_rods, 1);
-SCM
-Multi_measure_rest::set_spacing_rods (SCM smob)
+void
+Multi_measure_rest::calculate_spacing_rods (Grob *me, Real length)
 {
-  Grob *me = unsmob_grob (smob);
-
   Spanner *sp = dynamic_cast<Spanner *> (me);
   if (! (sp->get_bound (LEFT) && sp->get_bound (RIGHT)))
     {
       programming_error ("Multi_measure_rest::get_rods (): I am not spanned!");
-      return SCM_UNSPECIFIED;
+      return ;
     }
 
   Item *li = sp->get_bound (LEFT)->get_column ();
@@ -308,8 +299,6 @@ Multi_measure_rest::set_spacing_rods (SCM smob)
                              {li, rb},
                              {lb, rb}};
 
-  Real sym_width = symbol_stencil (me, 0.0).extent (X_AXIS).length ();
-
   for (int i = 0; i < 4; i++)
     {
       Item *li = combinations[i][0];
@@ -324,17 +313,51 @@ Multi_measure_rest::set_spacing_rods (SCM smob)
 
       rod.distance_ = li->extent (li, X_AXIS)[BIGGER]
        - ri->extent (ri, X_AXIS)[SMALLER]
-       /* 2.0 = magic! */
-       + sym_width + 2.0;
+       + length
+       + 2 * robust_scm2double (me->get_property ("bound-padding"), 1.0);
 
       Real minlen = robust_scm2double (me->get_property ("minimum-length"), 0);
       rod.distance_ = max (rod.distance_, minlen);
       rod.add_to_cols ();
     }
+}
+
+MAKE_SCHEME_CALLBACK (Multi_measure_rest, set_spacing_rods, 1);
+SCM
+Multi_measure_rest::set_spacing_rods (SCM smob)
+{
+  Grob *me = unsmob_grob (smob);
+  Real sym_width = symbol_stencil (me, 0.0).extent (X_AXIS).length ();
+  calculate_spacing_rods (me, sym_width);
+
+  return SCM_UNSPECIFIED;  
+}
+  
+MAKE_SCHEME_CALLBACK (Multi_measure_rest, set_text_rods, 1);
+SCM
+Multi_measure_rest::set_text_rods (SCM smob)
+{
+  Grob *me = unsmob_grob (smob);
+  Stencil *stil = me->get_stencil ();
+
+  /* FIXME uncached */
+  Real len = (stil && !stil->extent (X_AXIS).is_empty ())
+    ? stil->extent (X_AXIS).length ()
+    : 0.0;
+  calculate_spacing_rods (me, len);
+
   return SCM_UNSPECIFIED;
 }
 
 ADD_INTERFACE (Multi_measure_rest, "multi-measure-rest-interface",
               "A rest that spans a whole number of measures.",
-              "expand-limit measure-count hair-thickness thick-thickness use-breve-rest minimum-length");
+
+              /* properties */
+              "expand-limit "
+              "measure-count "
+              "hair-thickness "
+              "thick-thickness "
+              "use-breve-rest "
+              "bound-padding "
+              "minimum-length");