X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fspacing-basic.cc;h=659d3f8b8e8c2a24660dafd5c424f7a50de2667f;hb=331b672c5e6a98e5d0a6ee1395bc26b33b42ab05;hp=86dd575d1ec9ea15c53d3b84473a1b748acc840a;hpb=e012a172277f78d4954d269fd4973ad3fd6e5d60;p=lilypond.git

diff --git a/lily/spacing-basic.cc b/lily/spacing-basic.cc
index 86dd575d1e..659d3f8b8e 100644
--- a/lily/spacing-basic.cc
+++ b/lily/spacing-basic.cc
@@ -192,3 +192,27 @@ Spacing_spanner::note_spacing (Grob *me, Grob *lc, Grob *rc,
 }
 
 /****************************************************************/
+
+void
+Spacing_options::init_from_grob (Grob *me)
+{
+  increment_ = robust_scm2double (me->get_property ("spacing-increment"), 1);
+
+  packed_ = to_boolean (me->get_property ("packed-spacing"));
+  stretch_uniformly_ = to_boolean (me->get_property ("uniform-stretching"));
+  float_nonmusical_columns_
+    = to_boolean (me->get_property ("strict-note-spacing"));
+  shortest_duration_space_ = robust_scm2double (me->get_property ("shortest-duration-space"), 1);
+}
+
+void
+Spacing_options::init ()
+{
+  increment_ = 1.2;
+  packed_ = false;
+  stretch_uniformly_ = false;
+  float_nonmusical_columns_ = false;
+  shortest_duration_space_ = 2.0;
+
+  global_shortest_ = Rational (1, 8);
+}