From: fred <fred>
Date: Tue, 26 Mar 2002 23:24:47 +0000 (+0000)
Subject: lilypond-1.3.73
X-Git-Tag: release/1.5.59~1478
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9d8542920238d721395c5e81e83e90a3cc301ecc;p=lilypond.git

lilypond-1.3.73
---

diff --git a/lily/tie.cc b/lily/tie.cc
index 8e1cacf486..4eae4439cb 100644
--- a/lily/tie.cc
+++ b/lily/tie.cc
@@ -84,11 +84,21 @@ Tie::get_default_dir (Score_element*me)
   Item * sl =  head(me,LEFT) ? Rhythmic_head::stem_l (head (me,LEFT)) :0;
   Item * sr =  head(me,RIGHT) ? Rhythmic_head::stem_l (head (me,RIGHT)) :0;  
 
-  if (sl && Directional_element_interface (sl).get () == UP
-      && sr && Directional_element_interface (sr).get () == UP)
-    return DOWN;
-  else
-    return UP;
+
+  if (sl && sr)
+    {
+      if (Directional_element_interface (sl).get () == UP
+	  && Directional_element_interface (sr).get () == UP)
+	return DOWN;
+    }
+  else if (sl || sr)
+    {
+      Item *s = sl ? sl : sr;
+      return - Directional_element_interface (s). get ();
+    }
+
+  
+  return UP;
 }