From: hanwen <hanwen>
Date: Thu, 28 Mar 2002 18:17:33 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/1.5.59~188
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cb5cba7746917f76aca0b227ccfc39659fb0261a;p=lilypond.git

*** empty log message ***
---

diff --git a/ChangeLog b/ChangeLog
index 5c59e4bc87..f08663ac0d 100644
--- 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 a002d50dc2..cd05e16f5b 100644
--- 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);