]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/spacing-spanner.cc
* lily/tuplet-bracket.cc (after_line_breaking): don't suicide if
[lilypond.git] / lily / spacing-spanner.cc
index 703337bd0bd46dbd6030783e0758089490e6db04..861522122eb5d7f75b7dd9da975b7da7b73ff290 100644 (file)
 
 
 
-void
-Spacing_options::init (Grob *me)
-{
-  increment_ = robust_scm2double (me->get_property ("spacing-increment"), 1);
-  packed_ = to_boolean (me->get_layout ()->c_variable ("packed"));
-  stretch_uniformly_ = to_boolean (me->get_property ("uniform-stretching"));
-  float_nonmusical_columns_
-    = to_boolean (me->get_property ("strict-note-spacing"));
-}
-
-
 Rational
 Spacing_spanner::effective_shortest_duration (Grob *me, Link_array<Grob> const &all)
 {
@@ -70,7 +59,7 @@ Spacing_spanner::set_springs (SCM smob)
   set_explicit_neighbor_columns (all);
 
   Spacing_options options;
-  options.init (me);
+  options.init_from_grob (me);
   options.global_shortest_ = effective_shortest_duration (me, all);
   
   prune_loose_columns (me, &all, &options);
@@ -462,7 +451,8 @@ ADD_INTERFACE (Spacing_spanner, "spacing-spanner-interface",
               "quarter note is followed by  3 NHW, the half by 4 NHW, etc.\n",
               
               "grace-space-factor spacing-increment base-shortest-duration strict-note-spacing "
-              "shortest-duration-space common-shortest-duration uniform-stretching"
+              "shortest-duration-space common-shortest-duration uniform-stretching "
+              "packed-spacing "
 
               );