2 %% oops, weird small ties
5 \context Staff \notes <
7 \context Voice=one \relative c'' {
8 \property Voice.Stem \set #'direction = #1
9 \property Voice.Tie \set #'direction = #1
10 \property Voice.Slur \set #'direction = #1
11 \property Voice.Slur \set #'attachment = #'(head . head)
14 \context Voice=two \relative c'' {
15 \property Voice.Stem \set #'direction = #-1
16 \property Voice.Tie \set #'direction = #-1
17 \property Voice.Slur \set #'direction = #-1
18 \property Voice.Slur \set #'attachment = #'(head . head)
22 \paper { linewidth = -1. }
23 % \paper { linewidth = 40*\staffspace }