input/test/slur-attachment.ly

   1 \version "1.7.18"
   2 % covered by slur-attachment-override.  delete  -gp
   3
   4 fragment = \notes {
   5   \property Voice.Slur \set #'direction = #1
   6   \property Voice.Stem \set #'length = #5.5
   7   g''8(g g4-)
   8   g4(g8 g-)
   9   \property Voice.Slur \set #'attachment = #'(stem . stem)
  10   g8(g g4-)
  11   g4(g8 g-)
  12 }
  13
  14 \paper { raggedright = ##t}
  15
  16 \score {
  17   \notes\relative c \fragment
  18   \paper { }
  19 }
  20 %% new-chords-done %%