(print): take common refpoint of dots

into account as well.

diff --git a/ChangeLog b/ChangeLog
index 7be0283c96a3b8b6c0f951c5eda991aa532e0ec0..59dbb8e25f6168bf269c14b0278ae3fe0da77da2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-06  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+       * lily/ottava-bracket.cc (print): take common refpoint of dots
+       into account as well.
+
 2004-09-05  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
        * lily/lookup.cc (triangle): translate by interval.

diff --git a/lily/ottava-bracket.cc b/lily/ottava-bracket.cc
index ef2df3a9f704edc7da97f6e89bf582868cc8ed29..01b452d933d57604710ee89ff76d596602bf1390 100644 (file)
--- a/lily/ottava-bracket.cc
+++ b/lily/ottava-bracket.cc
@@ -56,7 +56,15 @@ Ottava_bracket::print (SCM smob)
 
       if (Note_column::has_interface (b))
        {
-         common = common_refpoint_of_list (b->get_property ("heads"), common, X_AXIS);
+         SCM heads = b->get_property ("note-heads");
+         common = common_refpoint_of_list (heads, common, X_AXIS);
+         for (SCM s = heads; ly_c_pair_p (s); s =ly_cdr (s))
+           {
+             Grob * h = unsmob_grob (ly_car (s));
+             Grob * dots = Rhythmic_head::get_dots (h);
+             if (dots)
+               common = dots->common_refpoint (common, X_AXIS);
+           }
        }
     }
   while (flip (&d) != LEFT);