*** empty log message ***

diff --git a/ChangeLog b/ChangeLog
index 5c59e4bc87cd6079001e17396c898ba6c86caba9..f08663ac0dbe94d3084e78554c0a9eaea1f7a42e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -6,6 +6,9 @@
 
 2002-03-28  Han-Wen  <hanwen@cs.uu.nl>
 
+       * lily/note-spacing.cc (stem_dir_correction): don't correct when
+       there is a flag on the stem.
+
        * lily/multi-measure-rest.cc (brew_molecule): variable width molecule.
 
        * scm/grob-property-description.scm (measure-length):

diff --git a/lily/note-spacing.cc b/lily/note-spacing.cc
index a002d50dc25ed0f8922768ab1beffbea12bffb10..cd05e16f5b031dd8d9533e2a959f05ef5189e252 100644 (file)
--- a/lily/note-spacing.cc
+++ b/lily/note-spacing.cc
@@ -248,6 +248,19 @@ Note_spacing::stem_dir_correction (Grob*me, Item * rcolumn,
            }
          stem_dirs[d] = sd;
 
+         /*
+           Correction doesn't seem appropriate  when there is a large flag
+           hanging from the note.
+          */
+         if (d == LEFT
+             && Stem::flag_i (stem) && !Stem::beam_l (stem))
+           {
+             correct = false;
+             goto exit_func;
+           }
+         
+
+         
          Interval hp  = Stem::head_positions (stem);
          Real chord_start = hp[sd];      
          Real stem_end = Stem::stem_end_position (stem);