X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=scm%2Fdefine-grobs.scm;h=3ad6b22bff125b113e77982f4eac300a2ae2340d;hb=24715a584c7ddb96a671942b3d24884b71265eaa;hp=37277a762ac70a8fec386f0144aaa2f5d5cd4692;hpb=68f62070ed2c03b8532a0ee714e537abd72269aa;p=lilypond.git

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 37277a762a..3ad6b22bff 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -803,9 +803,10 @@
      . (
 	(stencil  . ,ly:tie::print)
 	(control-points . ,ly:semi-tie::calc-control-points)
-	(direction . ,ly:semi-tie::calc-direction)
+	(direction . ,ly:tie::calc-direction)
 	(details . ((ratio . 0.333)
 		    (height-limit . 1.0)))
+	(head-direction . ,LEFT)
 	(thickness . 1.0)
 	(meta . ((class . Item)
 		 (interfaces . (semi-tie-interface))
@@ -1277,10 +1278,11 @@
      . (
 	(stencil  . ,ly:tie::print)
 	(control-points . ,ly:semi-tie::calc-control-points)
-	(direction . ,ly:semi-tie::calc-direction)
+	(direction . ,ly:tie::calc-direction)
 	(details . ((ratio . 0.333)
 		    (height-limit . 1.0)))
 	(thickness . 1.0)
+	(head-direction . ,RIGHT)
 	(meta . ((class . Item)
 		 (interfaces . (semi-tie-interface))
 		 ))
@@ -1290,7 +1292,9 @@
      . (
 	(X-extent . #f)
 	(Y-extent . #f)
+	(direction . ,ly:tie::calc-direction)
 	(head-direction . ,RIGHT)
+	
 	(positioning-done . ,ly:semi-tie-column::calc-positioning-done)
 	(meta . ((class . Item)
 		 (interfaces . (semi-tie-column-interface))