input/test/drarn-slurs.ly

   1 \version "1.7.18"
   2 % possible rename to slurs-?
   3 % TODO: find out what drarn means, and if there's an overlap with drarn.ly
   4 \header{
   5 texidoc="@cindex Drarn Slurs
   6 Slurs can be forced to always attach to note heads.
   7 "
   8 }
   9
  10 fragment = \notes {
  11   \property Voice.Slur \set #'direction = #1
  12   \property Voice.Slur \set #'attachment = #'(head . head)
  13   g''16(g-)(g-)(g-)(d'-)(d-)(d-)(d-)
  14 }
  15
  16 \paper { raggedright = ##t}
  17
  18 \score {
  19   \notes\relative c \fragment
  20   \paper { raggedright = ##t}
  21 }
  22