-\version "1.5.68"
-\header{
-texidoc="
-When tieing chords, the outer slurs point outwards, the inner slurs
-point away from the center of the staff. Override with
-@code{tieVerticalDirection}.
-"
+\header {
+
+
+ texidoc = "In chords, ties keep closer to the note head vertically,
+but never collide with heads or stems. Seconds are formatted up/down;
+the rest of the ties are positioned according to their vertical
+position.
+
+The code does not handle all cases. Sometimes ties will printed on top
+of or very close to each other. This happens in the last chords of
+each system. "
+
+
}
+\version "2.7.13"
-t = \notes \relative c' { <c e g> ~ <c e g> }
+\paper {
+ indent = #0.0
+ raggedright = ##t
+}
- \score {
-\notes \context Voice {
- \t
- \transpose g' \t
+testShort =
+{
+ \time 4/4
+ \key c \major
+ \relative c'' {
+ % c ~ c
+ <c e> ~ <c e>
+ <b c e> ~ <b c e>
+ <a c e> ~ <a c e>
+ <a b e> ~ <a b e>
+ <a b e f> ~ <a b e f>
+ }
- \property Voice.TieColumn \override #'direction = #-1
- \t
+ \relative c' {
+ <c e f a> ~ <c e f a>
+ <c e g a> ~ <c e g a>
+
+ <a' c d f> ~ <a c d f>
+ <a c e f> ~ <a c e f>
+ <f b e a>4 ~ <f b e a>
+ }
+}
+
+testLong =
+{
+ \time 5/8
+ \key c \major
+ \relative c'' {
+ <c e>2 ~ <c e>8
+ <b c e>2 ~ <b c e>8
+ <a c e>2 ~ <a c e>8
+ <a b e>2 ~ <a b e>8
+ <a b e f>2 ~ <a b e f>8
+ }
+ \relative c' {
+ <c e f a>2 ~ <c e f a>8
+ <c e g a>2 ~ <c e g a>8
+ <a' c d f>2 ~ <a c d f>8
+ <a c e f>2 ~ <a c e f>8
+ <f b e a>2 ~ <f b e a>8
}
+}
+
+\new Voice
+{ \testShort \break
+ \transpose c d \testShort \break
+ \testLong \break
+ \transpose c d \testLong \break
}
+