use staff-position/direction property from single ties. This fixes

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 37277a762ac70a8fec386f0144aaa2f5d5cd4692..3ad6b22bff125b113e77982f4eac300a2ae2340d 100644 (file)
--- 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))