+%% oops, weird small ties
+
+\score {
+ \context Staff \notes <
+ \time 3/8;
+ \context Voice=one \relative c'' {
+ \property Voice.Stem \set #'direction = #1
+ \property Voice.Tie \set #'direction = #1
+ \property Voice.Slur \set #'direction = #1
+ \property Voice.Slur \set #'attachment = #'(head . head)
+ c8~c()c
+ }
+ \context Voice=two \relative c'' {
+ \property Voice.Stem \set #'direction = #-1
+ \property Voice.Tie \set #'direction = #-1
+ \property Voice.Slur \set #'direction = #-1
+ \property Voice.Slur \set #'attachment = #'(head . head)
+ a8()a~a
+ }
+ >
+ \paper { linewidth = -1.; }
+% \paper { linewidth = 40*\staffspace; }
+}